VB_圖書館資訊系統-寫法2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim id$ = "jack"

        Dim pw$ = "luck007"

        If TextBox1.Text = id And TextBox2.Text = pw Then

            MsgBox("歡迎進入圖書資訊系統", , "系統提示")

        Else

            MsgBox("帳號或密碼輸入錯誤，請重新輸入", , "系統提示")

        End If