VB.NETでComboBoxをLocked = Trueにするには？ (ID:89143)

名前

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

本文 以前解決したと言った問題なのですが、修正が入りましたので、再度入力しておきます。 Public Class MyComboBox Inherits System.Windows.Forms.ComboBox #Region " Windows フォーム デザイナで生成されたコード " '中略 Private blReadOnly As Boolean = False Private orgDropDownStyle As ComboBoxStyle = ComboBoxStyle.DropDown Private iSelectedIndex As Integer Property isReadOnly() As Boolean Get Return blReadOnly End Get Set(ByVal Value As Boolean) blReadOnly = Value If blReadOnly Then orgDropDownStyle = Me.DropDownStyle Me.DropDownStyle = ComboBoxStyle.DropDownList iSelectedIndex = Me.SelectedIndex Else Me.DropDownStyle = orgDropDownStyle End If End Set End Property Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs) Me.SelectedIndex = iSelectedIndex End Sub End Class