做软件嘛,就少不了要做一个关于窗体,即About窗口。
当然,你如果对关于窗口要求简单,并不要求关于窗口有自己网站的超链接和联系邮箱,也可以用MsgBox语句做一个弹出提示,代码如下。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strAbzz As String
strAbzz = "软件名称:五笔打字通" & vbCrLf
strAbzz = strAbzz + Chr(10) & Chr(13)
strAbzz = strAbzz + "官方网站:www.wb98.com" & vbCrLf
strAbzz = strAbzz + Chr(10) & Chr(13)
strAbzz = strAbzz + "联系邮箱:hyf64@sohu.com" & vbCrLf
MsgBox(strAbzz, , "关于")
End Sub