|
分類:[VB.NET/VB2005 以降]
VB2008を使っています。
ボタンに値を持たせたいと思い、既存のButtonコントロールを継承したExButtonというクラスを作成してみました。
以下はそのクラスの内容です。
Public Class ExButton
Inherits Button
Private m_objVal As Object
Public Property Value() As Object
Get
Return m_objVal
End Get
Set(ByVal strVal As Object)
m_objVal = strVal
End Set
End Property
End Class
これをフォームデザイナで別のフォームに貼りつけ(名前をbtn1, btn2とします)、このフォームのコンストラクタで
ボタンのVisibleプロパティを設定しようとすると、想定外のおかしな動きをしたので、以下のように調べてみると、
Public Sub New()
' この呼び出しは、Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
btn1.Visible = True 'ブレークポイント
btn2.Visible = True
End Sub
デバッグで上記ブレークポイントよりステップ動作で確認すると、btn1とbtn2のVisibleプロパティはずっとFalseのままでした。
どうしてVisible = Trueとしているにも関わらずFalseのままになるのでしょうか?
ご回答宜しくお願い致します。
|