メインウインドウにはったスタティックテキスト(ラベル)の文字を変える。
ボタンが押されたときに文字列を変えるなどの応用が可


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