ab.com コミュニティ

'EditBox1のEN_CHANGEイベント
Sub MainWnd_EditBox1_Change()
    Dim strEdit1 As String
    Dim strEdit2 As String
    Dim strEdit3 As String

    GetWindowTextStr( GetDlgItem(hMainWnd, EditBox1), strEdit1 ) 'strEdit1の内容を取得
    GetWindowTextStr( GetDlgItem(hMainWnd, EditBox2), strEdit2 ) 'strEdit2の内容を取得
    strEdit3 = strEdit1 + strEdit2
    SetWindowText( GetDlgItem(hMainWnd, EditBox3), StrPtr(strEdit3) )'strEdit3に内容をセット
End Sub


'実践コードモジュールから「String型のGetWindowText」転載
Function GetWindowTextStr(hwnd As HWND, ByRef str As String) As Long
    Dim Length As Long
    Length = GetWindowTextLength(hwnd)
    str = ZeroString(Length)
    If Length = 0 Then
        GetWindowTextStr = 0
        Exit Function
    End If
    GetWindowTextStr = GetWindowText(hwnd, StrPtr(str), Length + 1)
    SetDWord(StrPtr(str) - SizeOf (DWord), GetWindowTextStr)
End Function