ab.com コミュニティ

コード: 全て選択

dwLength = GetWindowTextLength(hEdit1)
EditString = ZeroString(dwLength + 1)
GetWindowText(hEdit1,EditString,dwLength +1)

コード: 全て選択

Sub MainWnd_CommandButton1_Click()
Dim hEdit1 As Long
Dim hEdit2 As Long
Dim Answer As String
Dim EditString As String
Dim dwLength As Long

hEdit1=GetDlgItem(hMainWnd, EditBox1)
hEdit2=GetDlgItem(hMainWnd, EditBox2)
dwLength = GetWindowTextLength(hEdit1)
GetWindowText(hEdit1, EditString, dwLength + 1)

If EditString="a" Then
Answer="x"

ElseIf EditString="b" Then
Answer="y"

Else
Answer="z"

End If
    SetWindowText(hEdit2,Answer)
End Sub