AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: add app state

Browse Source
This commit is contained in:
Jonathan Jenne
2019-01-30 15:27:07 +01:00
parent 1ae788f52e
commit 7d691246f5
11 changed files with 90 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
EDMI_ClientSuite/frmMain.vb
View File

@@ -28,9 +28,10 @@ Public Class frmMain
End Sub
Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
LabelCurrentUser.Caption = Environment.UserName
LabelCurrentMachine.Caption = Environment.MachineName
LabelCurrentUser.Caption = My.Application.User.UserName
LabelCurrentMachine.Caption = My.Application.User.MachineName
LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
LabelCurrentLanguage.Caption = My.Application.User.Language
Dim oDashboard = New frmDashboard()
oDashboard.MdiParent = DocumentManager.MdiParent
@@ -97,7 +98,7 @@ Public Class frmMain
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Dim frm As New frmFileTest(MyLogConfig)
Dim frm As New frmFileTest(My.LogConfig)
frm.MdiParent = DocumentManager.MdiParent
frm.Show()
End Sub