If～ について

[Susisu]

コード: 全て選択

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

このようにすると全てElse～の条件処理になり、zしか表示されません。
どなたか教えていただけませんか？

[Kaz]

条件分岐に余分なスペースが入ってますよ
×　Else If
○　ElseIf

[Susisu]

直りません。
やはりzが表示されてしまいます。

[Kaz]

条件がおかしいです。
正しくはこうかな？

[ここをクリックすると内容が表示されます]

[雷電]

コード: 全て選択

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

取得の部分って、Stringだけど領域確保はいらないんですか

もしいるならば、こうすべきです。

修正コード [ここをクリックすると内容が表示されます]

[Kaz]

いつもString型でアクセス違反がでてて、なぜかな？
って思ってたんですがZeroStringを忘れてたんですね！

雷電さんありがとうございます！

[Susisu]

ありがとうございます!
正常に動作するようになりました!