Win32プロジェクトを新規作成、コモンコントロールを使う、にちえっく。
メインウインドウにチェックボックスを貼る。
ボタンを貼る。

ボタンのイベントハンドらを書き、チェックボックスの状態を知る。
戻り値は、TRUE/FALSEで判定。
あとはチェックボックスの数だけ同じしょりをおこなう


Sub MainWnd_CommandButton1_Click()
Dim rtn As Long
Dim hcheck As HWND
hcheck=GetDlgItem(hMainWnd,CheckBox1)

rtn=SendMessage(hcheck,BM_GETCHECK,0,0)
msgbox hMainWnd,Str$(rtn)
End Sub

タグ:

+ タグ編集
  • タグ:
最終更新:2010年10月22日 06:42