/*
豆腐制作，都是精品
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中

作者:豆腐

评论 (0) All

登陆 还没注册？