2007-04-18 09:52:07騷涵*
程式*
Private Sub Command1_Click()
If Text2 = "5566" Then
MsgBox "密碼正確！您即將進入系統。", vbOKOnly + vbInformation, "歡迎蒞臨本系統"
End
Else
MsgBox "密碼錯誤！請重新輸入。", vbOKOnly + vbCritical, "錯誤訊息"
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
End
End Sub
酷(!)
這個真是酷(!)
累死我了---*
If Text2 = "5566" Then
MsgBox "密碼正確！您即將進入系統。", vbOKOnly + vbInformation, "歡迎蒞臨本系統"
End
Else
MsgBox "密碼錯誤！請重新輸入。", vbOKOnly + vbCritical, "錯誤訊息"
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
End
End Sub
酷(!)
這個真是酷(!)
累死我了---*
哈哈！！
今天謝謝你的幫忙喔！
嘻嘻～～
：］ 2007-04-19 10:14:44