|
分類:[VB.NET]
分類:[VB.NET]
某所でまいどお世話になっています＾＾；
HPのライブラリ > ReadOnlyComboBox クラス を使わせていただいているのですが、
ReadOnly=Trueとして、編集不可にするのはよいんですが、
ReadOnly=Falseとしてときに、ComboBoxとして機能しません。
ReadOnly=Trueとしたときに、NumericUpDownのような見た目になってしまっているのですが、ここからおかしいのでしょうか？
環境は WINXP、VB(VS2005)です。
行った手順としては、プロジェクト＞クラスの追加 で作成して
公開していただいてるソースを貼り付けました。
Me.BackColor = Color.White
と色指定のみ変えました。
Set
Me._ReadOnly = Value
If value Then
Me.oldBackColor = Me.BackColor
Me.BackColor = Color.White
Me.ContextMenu = New System.Windows.Forms.ContextMenu()
Me.SetStyle(ControlStyles.Selectable, False)
Me.SetStyle(ControlStyles.UserMouse, True)
Me.UpdateStyles()
Else
Me.BackColor = Me.oldBackColor
Me.ContextMenu = Nothing
Me.SetStyle(ControlStyles.Selectable, True)
Me.SetStyle(ControlStyles.UserMouse, False)
Me.UpdateStyles()
End If
End Set
デバックしてみると、ReadOnly=Falseとしたときは ELSE にいって、
編集可能になっているのですが、NumericUpDownのような見た目のままで
キーボードからの入力はうけつけます。
以上のような状態です。
すいません、なにかわかることがあれば教えてください。
|