เมื่อเรากำหนด
Private Sub Button1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Button1.Enabled = False
End Sub
Private Sub Button2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Button2.Enabled = False
End Sub
Private Sub Button3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Button3.Enabled = False
End Sub
Private Sub SplitButton2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
SplitButton2.Enabled = False
End Sub
มันจะทำการปิดไว้ไม่ให้สามมารถเลือกได้
และพอเราทำการล็อกอินแล้ว จะ ให้ มันแสดงส่วนที่เราปิดไว้อะครับ ควรทำอย่างไรครับ
VB2008 ครับ ผม
ช่วยทีครับผม!!Code (VB.NET)
Tag : .NET, VB.NET
Date :
2011-03-25 18:03:09
By :
colamax
View :
1061
Reply :
2
No. 1
Guest
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim login = UserupTableAdapter1.usernameup(TextBox1.Text, TextBox2.Text)
If login Is Nothing Then
MsgBox("Username หรือ Password ผิดกรุณากรอกใหม่อีกครั้ง")
Else
MsgBox("ยินดีต้อนรับเข้าสู่ระบบ")
Me.Close()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class
Code (VB.NET)