すみません、イメージが付きません・・・。
現在、Form1として以下のような感じです。
Private mSystemTrayUsable As Boolean = False
Private mNotify As NotifyIcon = Nothing
<Browsable(True), DefaultValue(False), Category("System Tray Support Property"), Description("システムトレイの利用を示します。")> _
Public Property SystemTrayUsable() As Boolean
Get
Return mSystemTray
End Get
Set(ByVal value As Boolean)
mSystemTray = value
If value Then
mNotify = New NotifyIcon()
Else
mNotify = Nothing
End If
End Set
End Property
<Browsable(True), Category("System Tray Support Property"), Description("システムトレイを操作します。")> _
Public ReadOnly Property Notify() As NotifyIcon
Get
If mNotify Is Nothing Then
Return Nothing
End If
Return mNotify
End Get
End Property
これを継承元としたForm2のプロパティで、SystemTrayUsableプロパティを
Trueに設定すると初めてNotifyプロパティが操作できる、というイメージ
です。
(逆にFalseにすると設定が一切できない)
Notifyプロパティ自体はReadOnlyですが、そこから取得されるオブジェクト
の各プロパティ(BalloonTipTitleやIconなど)は設定もできる為、
継承先のForm2でそれらをいじったらForm2.Designer.vbでそれらが
質問にあるように書かれればいいんですけど・・・。
どこをどのようにすれば良いでしょうか?
お礼
色々な対応方法を教えていただき、ありがとうございます。 私も何か一辺倒な作り方に固執していたような感があります。 教えていただいた方法を参考に、実現することが出来ました。