ab.com コミュニティ

コード: 全て選択

#N88BASIC
Dim A As String,B As Double
Input "文字列を入力",A
Print "入力された文字列 = ";A
Input "数値を入力",B
Print "入力された数値 = ";B
Sleep(-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

コード: 全て選択

'ダイアログが終了した時、このString型変数に入力された文字列が格納されている。
Dim InputBox_ReturnString As String

Sub InputBox_CommandButton1_Click()

'文字を取得するためのバッファを用意
    Dim A[255] As Byte

'最大文字バイト数に255を指定して、[InputBox]の[EditBox1]から文字列をロードし、用意してあったバッファにストア。
    GetWindowText(GetDlgItem(hInputBox,EditBox1),A,255)

'取得した文字列を、String型に変換。戻り値取得用のグローバル変数に代入。
    InputBox_ReturnString=MakeStr(A)

'[InputBox]ダイアログを終了する。
    EndDialog(hInputBox,0)
End Sub