你用的都是vb6的代碼,改成:
我們提供的服務有:網站設計制作、做網站、微信公眾號開發、網站優化、網站認證、東海ssl等。為近1000家企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務,是有科學管理、有技術的東海網站制作公司
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("輸入有非數字字符,請重新輸入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
1、安裝文件沒有做好
2、生成的目錄中有多個文件,必須都放在同一目錄下
msgbox就可以,很大一部分就是msgbox做的。
或者可以添加一個紅色標簽,用來提示輸入錯誤并清空密碼輸入框。