vb.net例程集锦(4)

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

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

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

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

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

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = \"c:\\\"
openFileDialog1.Filter = \"PNG(*.png)|*.png|Gif(*.gif)|*.gif|Jpg(*.jpg)|*.jpg|所有图象文件(*.*)|*.*\"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
MyFile = openFileDialog1.FileName()
MyFileExt = MyFile.Substring(MyFile.LastIndexOf(\".\") + 1)
End If
End Sub

Public Function GetImageType(ByVal str As String) As System.Drawing.Imaging.ImageFormat
Select Case str.ToLower()
Case \"jpg\"
Return System.Drawing.Imaging.ImageFormat.Jpeg
Case \"gif\"
Return System.Drawing.Imaging.ImageFormat.Gif
Case \"tiff\"
Return System.Drawing.Imaging.ImageFormat.Tiff()
Case \"icon\"
Return System.Drawing.Imaging.ImageFormat.Icon
Case \"image/png\"
Return System.Drawing.Imaging.ImageFormat.Png
Case Else
Return System.Drawing.Imaging.ImageFormat.MemoryBmp
End Select
End Function

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
Handles MyBase.Closing
System.Diagnostics.Process.Start(\"IExplore.exe\", \"http://xml.sz.luohuedu.net/\")
End Sub
End Class

遍历主机的所有IP地址
.NET Framework类库的System.Net名称空间提供了一个简单的网络编程接口。Dns类提供了简单的域名解析功能，它是一个静态的类，可以通过Internet Domain Name System（DNS）得到指定主机的信息，DNS查询得到的主机信息是一个IPHostEntry类的实例。如果指定的主机在DNS数据库中有多于一个的Entry，IPHostEntry将包含多个地址及其别名。下面的代码实现了得到机器所有IP的功能。

Imports System
Imports System.Net

Module Module1

Sub Main()
Dim strMachineName As String

\'得到主机名
strMachineName = Dns.GetHostName()
Console.WriteLine(\"Host Name: \" + strMachineName)

\'通过名字得到主机
Dim ipHost As IPHostEntry
ipHost = Dns.GetHostByName(strMachineName)

\'你可以得到网络上任何站点的DNS数据信息。
\'语法如下：
\'ipHost = Dns.GetHostByName(\"xml.sz.luohuedu.net\")
Console.WriteLine(\"Host Aliases: \" + ipHost.Aliases.Length.ToString())

\'以数组的形式返回相关主机的地址信息
Dim ipAddr() As IPAddress = ipHost.AddressList
Dim count As Integer

\'Enumerate the IP Addresses
For count = 0 To ipAddr.GetUpperBound(0)
Console.Write(\"IP 地址 {0}：{1} \", count, _
ipAddr(count).ToString)
Next
End Sub

End Module

从Window系统托盘控制Windows服务
从Window系统托盘控制Windows服务
VB.NET有许多内建的类，可以让我们轻松创建Windows服务程序，但如何轻松控制这些服务呢？一般是到管理工具里面进行控制。本文将描述如何创建一个运行在系统托盘里的程序来轻松控制一个服务程序。至于如何创建服务程序，可以参考.NET SDK或其它创建服务程序的文章，本文的例子利用IIS的W3SVC服务来做例子，来控制IIS的停止与启动。

要开发这样的程序，我们先打开Microsoft Visual Studio.NET，新建一个名为ServiceController的解决方案，然后新建名为WinForm的Visual Basic类型的Windows应用程序，然后把VS.NET自动创建的Form1.vb删除掉，因为我们创建的应用程序没有用户界面，我们在Sub Main运行程序。

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

本页地址