今後、ＤＬＬ作成にも多次元配列を引き渡せるように希望します。

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: 今後、ＤＬＬ作成にも多次元配列を引き渡せるように希望します。

うまく私のパソコンで動きました、有難うございました。

by iwao » 2005年6月07日(火) 15:11

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

by 山本 » 2005年6月07日(火) 14:26

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

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

一部修正

by iwao » 2005年6月07日(火) 11:48

Test(data0)の間違えです。

今後、ＤＬＬ作成にも多次元配列を引き渡せるように希望します。

by iwao » 2005年6月07日(火) 11:41

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

ページトップ