Public Class Form2
Private Property T1 As Object
Private Property T2 As Object
Private Sub Command1_Click()
Dim usename As String, pwd As String
usename = LCase(Trim(T1.Text))
pwd = T2.Text
If usename = "admin" Then
If pwd = "123456" Then
Unload(Me)
Form.Show()
Else
MsgBox"密碼錯誤！"vbOKOnly+vbInformation:"提示"
T2.SetFocus()
T2.SelLengtth = 99
End If
Else
MsgBox("用戶名錯誤！ ")
End If
End Sub
Private Sub Unload(ByVal form2 As Form2)
Throw New NotImplementedException
End Sub
End Class
求教各路大神，請指教，我是初學者，很多不懂，請多指教
uj5u.com熱心網友回復：
問題描述清楚一點，比如現在報什么錯？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/65395.html
標籤：VB基礎類
上一篇：VB 代碼