数値を入力してもらう事が目的なら、#N88BASIC等+Input命令で十分かもしれません。
コード:
#N88BASIC
Dim A As String,B As Double
Input "文字列を入力",A
Print "入力された文字列 = ";A
Input "数値を入力",B
Print "入力された数値 = ";B
Sleep(-1)
ダイアログを作る場合は、エディットボックス1個コマンドボタン1個からなるウインドウを作り入力して貰って、
ボタンを押した時に入力されている文字列を回収するコード(下のような)を実装すればいいと思います。
コード:
Dim InputBox_ReturnString As String
Sub InputBox_CommandButton1_Click()
Dim A[255] As Byte
GetWindowText(GetDlgItem(hInputBox,EditBox1),A,255)
InputBox_ReturnString=MakeStr(A)
EndDialog(hInputBox,0)
End Sub
_________________
Website→
http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。