哪位大侠可以帮我把这段DELPHI的申明转成VB的,先谢谢啦

[luoming]

procedure AT(my:dword;tak:integer);stdcall;external 'dll1.dll';

procedure rs(my:dword);stdcall;external 'dll1.dll';

procedure pu(my:dword);stdcall;external 'dll1.dll';

procedure pr(my:dword);stdcall;external 'dll1.dll';

procedure st(my:dword);stdcall;external 'dll1.dll';

function pson(my:dword):integer;stdcall;external 'dll1.dll';

procedure adv(my:dword;vl:boolean);stdcall;external 'dll1.dll';

function py(filename:pchar):dword;stdcall;external 'dll1.dll';

procedure crv(mystream:dword);stdcall;external 'dll1.dll';

function ov:boolean;stdcall;external 'dll1.dll';

[luoming]

怎么没有人回答啊

[ehom]

你VB中怎么调用API?举一反三咯!

[luoming]

我不知道怎么转类型啊,请大侠指点

[tonylk]

Public Declare sub AT Lib "dlll.dll" (my as long,tak as integer)

public declare sub rs lib "dlll.dll" (my as long)

[luoming]

to: tonylk

你还没看完,下面还有一些

在VB里怎么表示pchar类型呢

[luoming]

Public Declare sub AT Lib "dlll.dll" (my as long,tak as integer)
public declare sub rs lib "dlll.dll" (my as long)
public declare sub pu lib "dlll.dll" (my as long)
public declare sub pr lib "dlll.dll" (my as long)
public declare sub st lib "dlll.dll" (my as long)
public declare function pson lib "dlll.dll" (my as long) as integer
public declare adv rs lib "dlll.dll" (my as long,vl as integer)
public py sub rs lib "dlll.dll" (filename as string)
public declare sub crv lib "dlll.dll" (my as long)
public declare function ov lib "dlll.dll" as integer

自己解决

[tonylk]

pchar 好像应该是 (val x as char) 吧

[luoming]

呵呵,不知道