Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim id, pw As String
        id = TextBox1.Text
        pw = TextBox2.Text
        If id = "jack" And pw = "luck007" Then
            MsgBox("歡迎進入圖書資訊系統", , "系統提示")
        Else
            MsgBox("帳號或密碼輸入錯誤", , "系統提示")
        End If
    End Sub

請注意：密碼欄要隱藏

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 台中家商 小柯 的頭像
    台中家商 小柯

    小柯的文章貼簿

    台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄