神马品牌网熊出没之熊大快跑破解:如何从VC向VB传递数组(一个整型数组)
来源：百度文库 编辑：神马品牌网 时间：2024/05/02 08:48:43
最好能写一个完整的简单示例，谢谢
试过好几种方法都不行，下面是其中一种
EXPORT void CALLBACK sendint(int *r)
{
int i=0;
int a[10];
for(i=0;i<10;i++)
{
a[i]=i+6;
}
r=a;
return;
}
在vb里
Private Declare Function sendint Lib "MyDll.dll" (ByRef arr As Long)
Private Sub Command4_Click()
Dim iArr(10) As Long
Dim i As Integer
On Error GoTo errs
Text1.Text = ""
sendint iArr(0)
For i = 0 To 10
Text1.Text = Text1.Text & vbCrLf & iArr(i)
Next i
Exit Sub
errs:
MsgBox Err.Description
End Sub
vb里错误提示：Bad DLL calling convention
试过好几种方法都不行，下面是其中一种
EXPORT void CALLBACK sendint(int *r)
{
int i=0;
int a[10];
for(i=0;i<10;i++)
{
a[i]=i+6;
}
r=a;
return;
}
在vb里
Private Declare Function sendint Lib "MyDll.dll" (ByRef arr As Long)
Private Sub Command4_Click()
Dim iArr(10) As Long
Dim i As Integer
On Error GoTo errs
Text1.Text = ""
sendint iArr(0)
For i = 0 To 10
Text1.Text = Text1.Text & vbCrLf & iArr(i)
Next i
Exit Sub
errs:
MsgBox Err.Description
End Sub
vb里错误提示：Bad DLL calling convention
int a[10];
EXPORT void _stdcall sendint(int *r)
{
int i=0;
For i = 0 To 9
Text1.Text = Text1.Text & vbCrLf & iArr(i)