チェックボックス付きのリストボックスについて(その２） (ID:117357)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 もしかして、ItemCheckイベント中で MsgBox を表示されているのでしょうか? で、選択項目自体は(Item引数などから)取得できるけれども、 MsgBoxを閉じるまで、レ点が付かないので悩んでいるとか。 もしそうなら、MsgBoxのタイミングをずらす事で回避できるかもしれません。 Private Sub List1_ItemCheck(Item As Integer) List1.Tag = CStr(Item) Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Timer1.Enabled = False MsgBox List1.Tag End Sub