UC知道把Delphi7代码转成VB代码
来源：百度知道 编辑：UC知道 时间：2024/05/05 18:14:31
Delphi7调用的DLL动态库怎么在VB里调用？
Function V_(COMID :Integer; Var u :Integer):Integer;stdcall
Far;External 'DLL.dll' name 'V_';
Function _R_CSBH(COMID :Integer;Var CS :I
/////
procedure TForm1.Button9Click(Sender: TObject);
var
CS :Integer;
i:integer;
begin
i:= _R_CSBH(combobox1.ItemIndex+1,CS);
memo1.Clear;
if i = 0 then
Memo1.Lines.Add('yes');
memo1.Lines.Add('编号：'+inttostr(csbh));
end;
end.
没有回答，能实现吗？
Function V_(COMID :Integer; Var u :Integer):Integer;stdcall
Far;External 'DLL.dll' name 'V_';
Function _R_CSBH(COMID :Integer;Var CS :I
/////
procedure TForm1.Button9Click(Sender: TObject);
var
CS :Integer;
i:integer;
begin
i:= _R_CSBH(combobox1.ItemIndex+1,CS);
memo1.Clear;
if i = 0 then
Memo1.Lines.Add('yes');
memo1.Lines.Add('编号：'+inttostr(csbh));
end;
end.
没有回答，能实现吗？
不懂Delphi,建议你直接说要实现什么功能.没几个人同时会VB和Delphi吧
你要说明一下,你要将上面的函数修改成VB的,还有Button9Click也修改成VB的代码是吗?
你的_R_CSBH怎么少了一部分,还有代码也没有出来,