工作原因,需要将vb.net的程序代码分享出去,但是一些核心的算法又不能够让太多的人知道,所以想了一个办法,将核心的代码进行封装DLL文件,然后在程序里面进行调用。
上网查找了一些资料,然后测试了一下,还算顺利。
在这里做个记录,留个备忘。
工具:VS 2010
步骤:
1、新建项目——类库,名称改为mydll;
2、如我在里面添加一段或许本地计算机IP地址的代码,代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Public Class GetIP Function str_IP() As String Dim a As String , b As String Dim ipa As System.Net.IPAddress() Dim HostName As String = System.Net.Dns.GetHostName str_IP = "" a = My.Computer.Clock.LocalTime b = My.Computer.Info.OSFullName ipa = System.Net.Dns.GetHostAddresses(HostName) For i = 0 To ipa.Length - 1 str_IP += ipa(i).ToString + vbCrLf Next End Function End Class |
点击菜单栏生成,生成mydll.dll
3、下面是如何调用这个dll;
再新建一个项目,这次我们新建一个窗口程序,在窗口上加一个button按钮,在对这个button按钮编程之前,必须先引用上面生成的mydll.dll文件,在“解决方案资源管理器中”选中项目右键“添加引用”,将刚刚生成的哪个mydll.dll引用过来,这样后面就可以使用了,下面面向button按钮编程,代码如下:
1 2 3 4 5 6 7 8 9 | Imports mydll '引用mydll.dll Public Class Form1 PRivate Sub Button1_Click( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles Button2.Click Dim getip As New GetIP MsgBox(getip.str_IP) End Sub End Class |
启动调试,运行程序,点击button按钮,这时候会弹出对话框,显示我们需要的IP地址,程序成功运行。