ab.com コミュニティ

'DLL用のソース
Function Export Test(k[2,2] As Long)
MessageBox(0, Str$(k[0,0])+":"+Str$(k[0,1])+":"+Str$(k[1,0])+":"+Str$(k[1,1]), "表示テスト", 0)
End Function

'メインソース
Declare Function Test Lib "sougi" (k[2,2] As Long) As Long

Dim data0[2,2] As Long
data0[0,0]= 1
data0[0,1]= 2
data0[1,0]= 3
data0[1,1]= 4
Test(data1)

Test(data0)の間違えです。

返信の内容は、下記フォーラムに書いておきました。機能要望は、なるべく「開発アナウンス」にお願いしますm(__)m

http://www.discoversoft.net/forum/viewt ... ?p=255#255

'DLL用のソース
'Function Export Test1(k[2,2] As Long)
' MessageBox(0, Str$(k[0,0])+":"+Str$(k[0,1])+":"+Str$(k[1,0])+":"+Str$(k[1,1]), "表示テスト", 0)
'End Function

'メインソース
Declare Function Test1 Lib "sougi" (k As *Long) As Long

Dim data0[2,2] As Long
data0[0,0]= 1
data0[0,1]= 2
data0[1,0]= 3
data0[1,1]= 4
Test1(data0)