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

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

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

栏目列表