ab.com コミュニティ

ボタンをクリックでエディトボックスの内容をダイアログで表示したいのですが、


    Sub Main_CommandButton1_Click()
        Dim Num As DWord
        Dim BoxStr As Long
        Num=SendMessage(GetDlgItem(hMainWnd,EditBox1),WM_GETTEXTLENGTH,0,0)
        SendMessage(GetDlgItem(hMainWnd,EditBox1),WM_GETTEXT,Num,BoxStr)
        MsgBox hMainWnd,BoxStr,"内容"
    End Sub

では取得できませんでした。どのようにすれば良いでしょうか。

コード: 全て選択

    Sub hMainWnd_CommandButton1_Click()
        Dim Num As DWord
        Dim BoxStr As Long
        Num=SendMessage(GetDlgItem(hMainWnd,EditBox1),WM_GETTEXTLENGTH,0,0)
        SendMessage(GetDlgItem(hMainWnd,EditBox1),WM_GETTEXT,Num,BoxStr)
        MsgBox hMainWnd,BoxStr,"内容"
    End Sub

BoxStrがLong型なのが最大の原因です。
文字列を扱う型にして、SendMessageではそれをLong型にキャストして使います。
しかもBoxStrにはNumの文字数分のメモリを確保する必要があります。

というのは面倒なんでこれ使ってください。
http://www.activebasic.com/forum/viewtopic.php?t=432
こうなります。

コード: 全て選択

Sub hMainWnd_CommandButton1_Click()
    Dim BoxStr As String
    GetDlgItemTextStr(hMainWnd, EditBox1, BoxStr)
    MsgBox hMainWnd, BoxStr, "内容" 
End Sub

BoxStrを、数値として扱う場合はどのようにすれば良いのでしょうか。

コード: 全て選択

BoxStr=Val(BoxStr)
BoxStr=2*BoxStr
BoxStr=Str$(BoxStr)

では駄目でした。
あと、Sub hMainWnd... で、hは要りませんでしたね。失礼しました。

GetDlgItemInt関数を使えば直接数値として受け取ることができます。
過去ログを検索すれば幾つか例も見つかります。

或いはString型のBoxStrに対してVal関数を呼ぶと言う方法もありますが。

ab.com コミュニティ

エディトボックスの内容の取得方法

エディトボックスの内容の取得方法

訂正です。