vb.net例程集锦(7)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:44 来源：互联网

本文章共28074字，分19页，当前第7页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《vb.net例程集锦(7)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

Try
mobTimer.Stop()
mobTimer.Dispose()
mobNotifyIcon.Visible = False
mobNotifyIcon.Dispose()
mobServiceController.Dispose()
Application.Exit()
Catch obEx As Exception
Throw obEx
End Try
End Sub

\'//定时器停止
Public Sub mobTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) _
Handles mobTimer.Elapsed
Try
GetServiceStatus()
Catch obEx As Exception
Throw obEx
End Try
End Sub

\'//系统托盘图标单击事件
Public Sub mobNotifyIcon_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles mobNotifyIcon.Click
System.Diagnostics.Process.Start(\"IExplore.exe\", \"http://xml.sz.luohuedu.net/\")
End Sub

下面就是主程序：

Public Sub Main()
Try
\'//建立与服务程序的连接
mobServiceController = New System.ServiceProcess.ServiceController(\"IISAdmin\")
\'//隐藏图标，知道菜单项和图标准备好以后。
mobNotifyIcon = New NotifyIcon()
mobNotifyIcon.Visible = False
mobContextMenu = New ContextMenu()
CreateMenu()
mobNotifyIcon.ContextMenu = mobContextMenu
mobNotifyIcon.Text = \"【孟宪会之精彩世界】\" + _
Microsoft.VisualBasic.ChrW(10) + \"http://xml.sz.luohuedu.net/\"
SetUpTimer()
mobNotifyIcon.Visible = True
Application.Run()
Catch obEx As Exception
MsgBox(obEx.Message.ToString, MsgBoxStyle.Critical)
End
End Try
End Sub

运行结果如下：

捕捉DataGrid的双击事件(VB.NET版本)
Option Strict Off
Option Explicit On

Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms

Namespace DataGridDoubleClick
Public Class Form1
Inherits Form
Private WithEvents dataGrid1 As DataGrid
Private WithEvents myDataSet As DataSet
Private gridMouseDownTime As DateTime
Private components As Container

Public Sub New()
MyBase.New()
InitializeComponent()
gridMouseDownTime = DateTime.Now
SetUp()

End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then
If (Not (components) Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)

End Sub
Private Sub SetUp()
MakeDataSet()
dataGrid1.SetDataBinding(myDataSet, \"Customers\")
AddCustomDataTableStyle()
End Sub
Private Sub MakeDataSet()
myDataSet = New DataSet(\"myDataSet\")
Dim tCust As DataTable
tCust = New DataTable(\"Customers\")
Dim cCustID As DataColumn
cCustID = New DataColumn(\"custID\")
Dim cCustName As DataColumn
cCustName = New DataColumn(\"custName\")
Dim cCurrent As DataColumn
cCurrent = New DataColumn(\"custCity\")
tCust.Columns.Add(cCustID)
tCust.Columns.Add(cCustName)
tCust.Columns.Add(cCurrent)
myDataSet.Tables.Add(tCust)
Dim newRow1 As DataRow
Dim i As Integer
i = 1

Do While (i < 4)
newRow1 = tCust.NewRow
newRow1(\"custID\") = i.ToString()
tCust.Rows.Add(newRow1)
i = (i + 1)
Loop
tCust.Rows(0)(\"custName\") = \"【孟宪会之精彩世界】\"

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 下一页>>

本页地址