vb.net 教程 4-10 XML文件操作 4-5

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

查看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 教程 目录