30 lines
1.1 KiB
VB.net
30 lines
1.1 KiB
VB.net
Imports DevExpress.XtraBars.Docking2010.Views
|
|
Imports DevExpress.XtraBars.Docking2010
|
|
Imports DevExpress.XtraBars.Docking2010.Views.Widget
|
|
|
|
Public Class frmMain2
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
|
|
Dim oForm As New frmSplash()
|
|
oForm.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub BarButtonUserSettings_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonUserSettings.ItemClick
|
|
Dim frm As New frmUserBasics()
|
|
'frm.MdiParent = DocumentManager1.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub frmMain2_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
LabelCurrentUser.Caption = Environment.UserName
|
|
LabelCurrentMachine.Caption = Environment.MachineName
|
|
LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Dim frm As New frmFileTest(MyLogConfig)
|
|
frm.MdiParent = DocumentManager1.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
End Class |