VB.NET一个秘密的类:简单但强大
2011-09-20 21:51
148 查看
Namespace My '右击解决方案的属性时,在“Application(应用)”中,单击“View Application Events”便自动产生一个新的ApplicationEvents.vb。在此 '里面共有五个事件。 '这是特别的类,几乎被很多开发者忽略,但是功能最简单,却是却实用的类, ' The following events are available for MyApplication: ' ' Startup: Raised when the application starts, before the startup form is created. ' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally. ' UnhandledException: Raised if the application encounters an unhandled exception. ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. Partial Friend Class MyApplication '检测计算是否接入网络 Private Sub MyApplication_NetworkAvailabilityChanged(sender As Object, e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged SetConnectionStatus(e.IsNetworkAvailable) End Sub '当应用程序各个窗体都关闭了。这个程序才运行,也是最后运行的程序 Private Sub MyApplication_Shutdown(sender As Object, e As System.EventArgs) Handles Me.Shutdown MsgBox("程序已经关闭运行!") End Sub '当应用程序最开始启动时就运行了。早于任何窗体,在这个地方来初始化变量是最好的 Private Sub MyApp_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup ' When the application starts, set the connection status on the status strip MsgBox("程序将要开始启动") End Sub Public Sub SetConnectionStatus(ByVal connected As Boolean) 'With My.Forms.MainForm.ConnectedStatusLabel ' If (connected) Then ' .Image = My.Resources.connected.ToBitmap ' .Text = My.Resources.ConnectedText ' Else ' .Image = My.Resources.disconnected.ToBitmap ' .Text = My.Resources.DisconnectedText ' End If 'End With End Sub Private Sub MyApplication_StartupNextInstance(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance MsgBox("程序已经启动一次了") End Sub '当程序在运行中出错,而未作处理时,它是来收集错误并提示错误内容 Private Sub MyApplication_UnhandledException(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException MsgBox("程序在运行中出现错误") End Sub End Class End Namespace
相关文章推荐
- 推荐一个简单、轻量、功能非常强大的C#/ASP.NET定时任务执行管理器组件–FluentScheduler
- 使用VB.Net写一个简单的数据访问层(不能称ORM):前言
- VB.net做的一个简单的聊天的例
- .net c# 一个简单但是功能强大动态模板引擎
- 使用VB.Net写一个简单的数据访问层:T-Sql函数的支持。
- 我与VB.net再次重逢,最简单的一个小程序
- 使用VB.Net写一个简单的数据访问层(不能称ORM):前言
- 使用VB.Net写一个简单的数据访问层:T-Sql函数的支持。
- [VB.NET]请教一个比较简单的问题
- 使用VB.Net写一个简单的数据访问层(不能称ORM):CRUD操作
- [转]推荐一个简单、轻量、功能非常强大的C#/ASP.NET定时任务执行管理器组件–FluentScheduler
- 章鱼哥出品_VB.NET 线程委托应用实例 一个简单的例子让你轻松掌握委托的用法
- 使用VB.Net写一个简单的数据访问层(不能称ORM):CRUD操作
- 推荐一个简单、轻量、功能非常强大的C#/ASP.NET定时任务执行管理器组件–FluentScheduler
- 推荐一个简单、轻量、功能非常强大的C#/ASP.NET定时任务执行管理器组件–FluentScheduler
- [VB.NET]一个简单的问题?
- 推荐一个简单、轻量、功能非常强大的C#/ASP.NET定时任务执行管理器组件–FluentScheduler定时器
- 一个简单的动态编译器,支持C#和VB.NET。当你想测试一些简单的代码的时候可以使用。
- 一个VB.NET写的简单图片缩放处理组件源代码,支持添加半透明效果小图标
- [VB.Net]委托的一个简单示例