Public Class SystemManeger
Private m_bolSystemMenuAlived As Boolean ''メニューシステム起動確認用フラグ
''メニューシステム起動用フラグ
Public Property SytemMenuAlived() As Boolean
Get
SytemMenuAlived = m_bolSystemMenuAlived
End Get
Set(ByVal Value As Boolean)
m_bolSystemMenuAlived = Value
End Set
End Property
End Property
End Class
Public Class DemoMenu
Private KyCon As New DemoMenuClass.SystemManeger()
Private Sub DemoMenu_Load
''画面起動フラグにTrue を設定
KyCon.SytemMenuAlived = True
End Sub
End Class
BApli.vbp(Apli.exeになります。)
参照設定の追加でMenuClass.vbp.DLLを参照
Public Class HDAAG001
Private objcon As DemoMenuClass.SystemManeger
Private Sub ApriForm_Load
If objcon.SytemMenuAlived = False Then
MessageBox.Show("メニューから起動してください。")
Me.Close()
Exit Sub
End If
End Sub
End Class
@MenuClass.vbp(ビルドしMenuClass.vbp.DLLになります。)
Public Class SystemManeger
Private m_bolSystemMenuAlived As Boolean ''メニューシステム起動確認用フラグ
''メニューシステム起動用フラグ
Public Property SytemMenuAlived() As Boolean
Get
SytemMenuAlived = m_bolSystemMenuAlived
End Get
Set(ByVal Value As Boolean)
m_bolSystemMenuAlived = Value
End Set
End Property
End Property
End Class
Amenu.vbp(menu.exeになります。)
参照設定の追加でMenuClass.vbp.DLLを参照
Public Class DemoMenu
Private KyCon As New DemoMenuClass.SystemManeger()
Private Sub DemoMenu_Load
''画面起動フラグにTrue を設定
KyCon.SytemMenuAlived = True
End Sub
End Class
BApli.vbp(Apli.exeになります。)
参照設定の追加でMenuClass.vbp.DLLを参照
Public Class HDAAG001
Private objcon As DemoMenuClass.SystemManeger
Private Sub ApriForm_Load
If objcon.SytemMenuAlived = False Then
MessageBox.Show("メニューから起動してください。")
Me.Close()
Exit Sub
End If
End Sub
End Class
Bで必ずobjcon.SytemMenuAlivedの値がFalseになってしまいます。
複数のプロジェクトで同一のDLLの値等を参照したいのですが、
何か方法はありますか?
よろしくお願いします。