メイン
ウインドウにはったスタティックテキスト(
ラベル)の文字を変える。
ボタンが押されたときに
文字列を変えるなどの応用が可
Sub MainWnd_CommandButton1_Click()
Dim hlabel1 As HWND
hlabel1=GetDlgItem(hMainWnd,Static1)
SetWindowText(hlabel1,"hello")
End Sub
Sub LabelText(hlbl As HWND,str As String)
SetWindowText(hlbl,str)
End Sub
SetDlgItemTextを使ってもいいかもね。
Sub MainWnd_CommandButton1_Click()
SetDlgItemText(hMainWnd,Static1,"hello")
End Sub
一番安全な方法はこれ
Sub MainWnd_CommandButton1_Click()
SendMessage(GetDlgItem(hMainWnd, Static1), WM_SETTEXT, -1, "hello")
End Sub
スタティックをはじめとするコントロールは全てウインドウであり。
ボタンとかエディットボックスとかも同じ方法で文字を変更することができるのよ。
最終更新:2010年10月22日 01:43