版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

其他需要完善的地方：

 

查看Log文件

 

    Private Sub btnLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLog.Click

        Dim logfile As String = Application.StartupPath.TrimEnd("\") & "\err.txt"

        If File.Exists(logfile) = False Then

            tsslInfo.Text = "日志文件不存在"

            Exit Sub

        End If

 

        Process.Start(logfile)

    End Sub

显示关于窗口：

 

    Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click

        FormAbout.ShowDialog()

    End Sub

 

退出程序：

 

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Application.Exit()

    End Sub

 

关于窗体中的代码：

 

    Private Sub FormAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lblProgram.Text = Application.ProductName

        lblAuthor.Text = "http://blog.csdn.net/uruseibest"

    End Sub

 

 

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

        Me.Close()

    End Sub

 

至此，一个完整的程序就完成了。

 

运行时如下图：

 

 

 

 

 

 

 

 

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看vb.net 教程 目录

 

 

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/79028576