|
/*
豆腐制作，都是精品
http://www.asp888.net 豆腐技术站
如转载 请注明出处
*/
下面我们来看一些 vb7 的简单应用,我们仍然从 hello world 开始
Imports System
Imports System.Runtime.InteropServices
Namespace ClassLibrary1
Public Class Foo
Shared Function <DllImport("user32.dll")> MessageBoxA (ByVal h As Integer, ByVal m As String, ByVal c As String, ByVal type As Integer) As Integer
End Function
Public Shared Sub Main()
MessageBoxA(0, "Hello World2!", "www.asp888.net", 0)
Console.WriteLine("Hello World!!!")
End Sub
End Class
End Namespace
在这个例子，我们调用了 user.dll 中的 MessageBoxA 的api 函数，这样的方法同样适用与我们自己作的
dll中
作者:豆腐
|
