用VB.NET做关于窗口 用vbs写一个窗口

做软件嘛，就少不了要做一个关于窗体，即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

在visual studio 2022环境下，按F5测试运行，结果如下：

如果你对关于窗体要求不高，这种方式也行，我用 vbCrLf 增加换行，调整间距；如果你对这个弹出提示窗口的宽度不满意，就只能在代码中的文本的前后增加空格来解决这个问题了，如：

strAbzz = " 软件名称：五笔打字通 " & vbCrLf

下面还是来讲讲比较正规做关于窗体的方法吧。

在以前在VB6.0环境下，都是ShellExecute方法来做的，这种方法的代码在VB.NET也可以用，用它来打开网站，打开联系邮箱都简单而管用。在用ShellExecute方法前，先导入API；还有，在关于窗体建立4个Label控件（其中1个Label标签控件用来模拟分割线）、2个LinkLabel控件用于建立超链接、1个Button确定控件，代码如下。

Public Class Form1
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Private Const SW_SHOW As Short = 5

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "关于"
        Label1.Text = "软件版本：五笔打字通 1.0"
        Label2.Text = "官方网站："
        Label3.Text = "联系邮箱："
        LinkLabel1.Text = "www.wb98.com"
        LinkLabel2.Text = "hyf64@sohu.com"

        Label4.BackColor = Color.Gray  '模拟一个分割线
        Label4.Width = 250
        Label4.Height = 1

        Button1.Text = "确定"
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Call ShellExecute(Me.Handle.ToInt32, "open", "http://www.wb98.com", "", "", SW_SHOW)
    End Sub

    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Call ShellExecute(Me.Handle.ToInt32, "open", "mailto:hyf64@sohu.com", "", "", SW_SHOW)
    End Sub
End Class

在visual studio 2022环境下，按F5测试运行，结果如下：

点击界面上的2个超链接，就可以打开官网和邮箱了，当然还可以上窗体的最上面加入软件相应的图片装饰一下就更完美了。

有些朋友不想用 ShellExecute 方法，也可以用 shell 方法。

将代码

 Call ShellExecute(Me.Handle.ToInt32, "open", "http://www.wb98.com", "", "", SW_SHOW)

替换成

        Dim url As String
        url = "http://www.wb98.com" ' 网址前一定要加入http://
        Shell("explorer.exe " & url, vbNormalFocus)

同理，将代码

Call ShellExecute(Me.Handle.ToInt32, "open", "mailto:hyf64@sohu.com", "", "", SW_SHOW)

替换成

        Dim url As String
        url = "mailto:hyf64@sohu.com"
        Shell("explorer.exe " & url, vbNormalFocus)

按F5测试运行，运行效果是一样的。

既然是用VB.NET来做关于窗口，也可以用VB.NET的知识来打开超链接，而且只要一句就可以打开超链接，很是方便。

用下面一句代码的打开网址：

System.Diagnostics.Process.Start("explorer.exe", "http://www.wb98.com") '网址一定要加上http://

用下面一句代码的打开邮箱客户端软件：

System.Diagnostics.Process.Start("explorer.exe", "mailto:hyf64@sohu.com")

其实用这个语句还可以打开文本文件，打开目录，如下代码。

        System.Diagnostics.Process.Start("notepad", "D:\1.txt")  
        System.Diagnostics.Process.Start("notepad")  
        System.Diagnostics.Process.Start("notepad.exe")  
        System.Diagnostics.Process.Start("explorer", "C:\") 
        System.Diagnostics.Process.Start("explorer.exe", "d:\") 

System.Diagnostics.Process.Start还可以做很多事，但这篇文章主要是写关于窗体的内容，就止打住。