表示/非表示の部分 ----------------------------------------------------------- ''' <summary> ''' モニターForm ''' </summary> Private IOM As IOMonitor
Private _IOMonitor = False
''' <summary> ''' IOモニター表示設定 ''' </summary> ''' <returns>True:表示、False:非表示</returns> Public Overridable Property IOMonitor As Boolean Set(value As Boolean) _IOMonitor = value If _IOMonitor Then IOM = New IOMonitor(Me) IOM.Show() Else IOM.Close() IOM = Nothing End If End Set Get Return _IOMonitor End Get End Property -------------------------------------------
メインクラスからモニターFormへはイベントで情報を渡しています。 ------------------------------------------- #Region "イベント定義" Public Delegate Sub DIODataEventHandler(ByVal sender As Object, ByVal e As NetDataEventArgs) ''' <summary> ''' ネット接続時のイベント ''' </summary> Public Event NetOpen As DIODataEventHandler ''' <summary> ''' ネット切断時のイベント ''' </summary> Public Event NetClose As DIODataEventHandler ''' <summary> ''' ネットエラー時のイベント ''' </summary> Public Event NetError As DIODataEventHandler ''' <summary> ''' データ送信時のイベント ''' </summary> Public Event SendData As DIODataEventHandler #End Region -------------------------------------------