掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListBox(チェックボックスstyle)で強調表示とチェックを連動させるには？ (ID:101756)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでどうかな…。 Option Explicit Private Function GetTag(ByVal lb As ListBox) As String GetTag = IIf(lb.Selected(lb.ListIndex), "T", "F") & CStr(lb.ListIndex) End Function Private Sub List1_Click() If List1.Tag <> GetTag(List1) Then List1.Selected(List1.ListIndex) = Not List1.Selected(List1.ListIndex) End If End Sub Private Sub List1_ItemCheck(Item As Integer) List1.Tag = GetTag(List1) End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.