コンボボックスをいじられないように（テキスト表示のまま） (ID:116917)

名前

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

本文 う〜ん。自己レスで全然綺麗ではありませんが、値を変更前に戻す方法で。。。 Private comIndex As Integer '現在の値を保持 Private comLocked As Boolean = False 'ロックの状態 'LOCKのON/OFF切替 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If comLocked Then comLocked = False Else comLocked = True End If End Sub 'LOCK状態なら値を変更させない。（元に戻す） Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted If comLocked Then ComboBox1.SelectedIndex = comIndex End If End Sub 'GotFocus時に現在の値を保持 Private Sub ComboBox1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.GotFocus comIndex = ComboBox1.SelectedIndex() End Sub