コード: 全て選択
Sub MainWnd_CommandButton1_Click()
Dim hEdit1 As Long
Dim hEdit2 As Long
Dim Answer As String
hEdit1=GetDlgItem(hMainWnd, EditBox1)
hEdit2=GetDlgItem(hMainWnd, EditBox2)
If hEdit1="a" Then
Answer="x"
Else If hEdit1="b" Then
Answer="y"
Else
Answer="z"
End If
SetWindowText(hEdit2,Answer)
End Sub
コード: 全て選択
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
コード: 全て選択
dwLength = GetWindowTextLength(hEdit1)
GetWindowText(hEdit1, EditString, dwLength + 1) コード: 全て選択
dwLength = GetWindowTextLength(hEdit1)
EditString = ZeroString(dwLength + 1)
GetWindowText(hEdit1,EditString,dwLength +1)