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

Question

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';

Answer 1

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

Answer 2

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

Answer 3

to: tonylk
 
 你还没看完,下面还有一些 在VB里怎么表示pchar类型呢

Answer 4

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自己解决

Answer 5

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