vb.net例程集锦(9)

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

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

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

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

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

End Sub
_
Public Shared Sub Main()

Application.Run(New Form1())

End Sub
Private Sub TextBoxDoubleClickHandler(ByVal sender As Object, ByVal e As EventArgs)

MessageBox.Show(\"TrueDoubleClick\")

End Sub
Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As MouseEventArgs)

If (DateTime.Now < gridMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then
MessageBox.Show(\"GridDoubleClick：\" + CType(sender, TextBox).Text)
End If
Label1.Text = \"TextBoxMouseDownHandler \"

End Sub
Private Sub dataGrid1_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles dataGrid1.MouseDown

gridMouseDownTime = DateTime.Now
Label1.Text = \"dataGrid1_MouseDown \"

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Label1.Click
Label1.Text = \"\"
End Sub

Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Click
Label1.Text = \"\"
End Sub
End Class
End Namespace

VB.NET中得到计算机硬件信息
本文汇集了在.NET中得到计算机硬件信息的一些功能。

得到显示器分辨率
Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
MsgBox(\"您的显示器分辨率是：\" & X & \" X \" & Y)

得到特殊文件夹的路径
\'\"Desktop\"桌面文件夹路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))
\'\"Favorites\"收藏夹路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
\'\"Application Data\"路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))

\'通用写法
\'Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)
\'XXXXXXX是特殊文件夹的名字

得到操作系统版本信息
MsgBox(Environment.OSVersion.ToString)

得到当前登录的用户名
MsgBox(Environment.UserName)

得到当前应用程序的路径
MsgBox(Environment.CurrentDirectory)

打开和关闭CD-ROM
\'先新建模块
Module mciAPIModule
Declare Function mciSendString Lib \"winmm.dll\" Alias \"mciSendStringA\" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
End Module

\'打开CD-ROM
Dim lRet As Long
lRet = mciSendString(\"set cdAudio door open\", 0&, 0, 0)

\'关闭CD-ROM
Dim lRet As Long
lRet = mciSendString(\"set cdAudio door Closed\", 0&, 0, 0)
\'更多请参见
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp

得到计算机IP和计算机全名
Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
MsgBox(\"您的IP地址：\" & (MYIP.AddressList.GetValue(0).ToString))
MsgBox(\"您的计算机全名：\" & (MYIP.HostName.ToString))

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

本页地址