41 lines
1.5 KiB
VB.net
41 lines
1.5 KiB
VB.net
Public Class frmConfigBasic
|
|
Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
LoadScreens()
|
|
CheckButtonDEBUG.Checked = My.LogConfig.Debug
|
|
End Sub
|
|
|
|
Private Sub LoadScreens()
|
|
'cmbScreens.Properties.Items.Clear()
|
|
'For Each oScreen In Screen.AllScreens
|
|
' cmbScreens.Properties.Items.Add(oScreen.DeviceName)
|
|
'Next
|
|
End Sub
|
|
|
|
Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs)
|
|
'My.UIConfig.SidebarScreen = cmbScreens.EditValue
|
|
My.UIConfigManager.Save()
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
|
Process.Start(My.LogConfig.LogDirectory)
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Process.Start(Windows.Forms.Application.LocalUserAppDataPath)
|
|
End Sub
|
|
|
|
Private Sub CheckButtonDEBUG_Click(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub CheckButtonDEBUG_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.CheckedChanged
|
|
If CheckButtonDEBUG.Checked Then
|
|
CheckButtonDEBUG.Text = "DEBUG is active"
|
|
My.LogConfig.Debug = True
|
|
Else
|
|
CheckButtonDEBUG.Text = "DEBUG not active"
|
|
My.LogConfig.Debug = False
|
|
End If
|
|
My.UIConfigManager.Save()
|
|
End Sub
|
|
End Class |