📄 fsetting.vb
字号:
Option Strict Off
Option Explicit On
Friend Class FSetting
Inherits System.Windows.Forms.Form
#Region "Windows 窗体设计器生成的代码"
Public Sub New()
MyBase.New()
If m_vb6FormDefInstance Is Nothing Then
If m_InitializingDefInstance Then
m_vb6FormDefInstance = Me
Else
Try
'对于启动窗体，所创建的第一个实例为默认实例。
If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
m_vb6FormDefInstance = Me
End If
Catch
End Try
End If
End If
'此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
End Sub
'窗体重写处置，以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents Check1 As System.Windows.Forms.CheckBox
Public WithEvents Slider1 As AxMSComctlLib.AxSlider
Public WithEvents Text1 As System.Windows.Forms.TextBox
Public WithEvents Command2 As System.Windows.Forms.Button
Public WithEvents _Command1_0 As System.Windows.Forms.Button
Public WithEvents Label3 As System.Windows.Forms.Label
Public WithEvents Label2 As System.Windows.Forms.Label
Public WithEvents Label1 As System.Windows.Forms.Label
Public WithEvents Command1 As Microsoft.VisualBasic.Compatibility.VB6.ButtonArray
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器来修改它。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FSetting))
Me.components = New System.ComponentModel.Container()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
Me.ToolTip1.Active = True
Me.Check1 = New System.Windows.Forms.CheckBox
Me.Slider1 = New AxMSComctlLib.AxSlider
Me.Text1 = New System.Windows.Forms.TextBox
Me.Command2 = New System.Windows.Forms.Button
Me._Command1_0 = New System.Windows.Forms.Button
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Command1 = New Microsoft.VisualBasic.Compatibility.VB6.ButtonArray(components)
CType(Me.Slider1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Command1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Text = "设置"
Me.ClientSize = New System.Drawing.Size(289, 171)
Me.Location = New System.Drawing.Point(3, 22)
Me.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ControlBox = True
Me.Enabled = True
Me.KeyPreview = False
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.HelpButton = False
Me.WindowState = System.Windows.Forms.FormWindowState.Normal
Me.Name = "FSetting"
Me.Check1.Text = "系统自动维护用户列表"
Me.Check1.Size = New System.Drawing.Size(161, 25)
Me.Check1.Location = New System.Drawing.Point(32, 96)
Me.Check1.TabIndex = 7
Me.Check1.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Check1.BackColor = System.Drawing.SystemColors.Control
Me.Check1.CausesValidation = True
Me.Check1.Enabled = True
Me.Check1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Check1.Cursor = System.Windows.Forms.Cursors.Default
Me.Check1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Check1.Appearance = System.Windows.Forms.Appearance.Normal
Me.Check1.TabStop = True
Me.Check1.CheckState = System.Windows.Forms.CheckState.Unchecked
Me.Check1.Visible = True
Me.Check1.Name = "Check1"
Slider1.OcxState = CType(resources.GetObject("Slider1.OcxState"), System.Windows.Forms.AxHost.State)
Me.Slider1.Size = New System.Drawing.Size(185, 25)
Me.Slider1.Location = New System.Drawing.Point(64, 48)
Me.Slider1.TabIndex = 3
Me.Slider1.Name = "Slider1"
Me.Text1.AutoSize = False
Me.Text1.Size = New System.Drawing.Size(97, 20)
Me.Text1.Location = New System.Drawing.Point(72, 16)
Me.Text1.TabIndex = 2
Me.Text1.Tag = "1"
Me.Text1.Text = "Text1"
Me.Text1.AcceptsReturn = True
Me.Text1.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
Me.Text1.BackColor = System.Drawing.SystemColors.Window
Me.Text1.CausesValidation = True
Me.Text1.Enabled = True
Me.Text1.ForeColor = System.Drawing.SystemColors.WindowText
Me.Text1.HideSelection = True
Me.Text1.ReadOnly = False
Me.Text1.Maxlength = 0
Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
Me.Text1.MultiLine = False
Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Text1.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.Text1.TabStop = True
Me.Text1.Visible = True
Me.Text1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Text1.Name = "Text1"
Me.Command2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Command2.Text = "取消"
Me.Command2.Size = New System.Drawing.Size(65, 25)
Me.Command2.Location = New System.Drawing.Point(184, 136)
Me.Command2.TabIndex = 1
Me.Command2.BackColor = System.Drawing.SystemColors.Control
Me.Command2.CausesValidation = True
Me.Command2.Enabled = True
Me.Command2.ForeColor = System.Drawing.SystemColors.ControlText
Me.Command2.Cursor = System.Windows.Forms.Cursors.Default
Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Command2.TabStop = True
Me.Command2.Name = "Command2"
Me._Command1_0.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me._Command1_0.Text = "确定"
Me._Command1_0.Size = New System.Drawing.Size(65, 25)
Me._Command1_0.Location = New System.Drawing.Point(40, 136)
Me._Command1_0.TabIndex = 0
Me._Command1_0.BackColor = System.Drawing.SystemColors.Control
Me._Command1_0.CausesValidation = True
Me._Command1_0.Enabled = True
Me._Command1_0.ForeColor = System.Drawing.SystemColors.ControlText
Me._Command1_0.Cursor = System.Windows.Forms.Cursors.Default
Me._Command1_0.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._Command1_0.TabStop = True
Me._Command1_0.Name = "_Command1_0"
Me.Label3.Text = "0 60 120 180 240 300"
Me.Label3.Size = New System.Drawing.Size(193, 17)
Me.Label3.Location = New System.Drawing.Point(75, 72)
Me.Label3.TabIndex = 6
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me.Label3.BackColor = System.Drawing.SystemColors.Control
Me.Label3.Enabled = True
Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label3.UseMnemonic = True
Me.Label3.Visible = True
Me.Label3.AutoSize = False
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Label3.Name = "Label3"
Me.Label2.Text = "间隔"
Me.Label2.Size = New System.Drawing.Size(33, 17)
Me.Label2.Location = New System.Drawing.Point(32, 54)
Me.Label2.TabIndex = 5
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me.Label2.BackColor = System.Drawing.SystemColors.Control
Me.Label2.Enabled = True
Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label2.UseMnemonic = True
Me.Label2.Visible = True
Me.Label2.AutoSize = False
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Label2.Name = "Label2"
Me.Label1.Text = "端口"
Me.Label1.Size = New System.Drawing.Size(33, 17)
Me.Label1.Location = New System.Drawing.Point(32, 21)
Me.Label1.TabIndex = 4
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me.Label1.BackColor = System.Drawing.SystemColors.Control
Me.Label1.Enabled = True
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label1.UseMnemonic = True
Me.Label1.Visible = True
Me.Label1.AutoSize = False
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Label1.Name = "Label1"
Me.Controls.Add(Check1)
Me.Controls.Add(Slider1)
Me.Controls.Add(Text1)
Me.Controls.Add(Command2)
Me.Controls.Add(_Command1_0)
Me.Controls.Add(Label3)
Me.Controls.Add(Label2)
Me.Controls.Add(Label1)
Me.Command1.SetIndex(_Command1_0, CType(0, Short))
CType(Me.Command1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Slider1, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
#End Region
#Region "升级支持"
Private Shared m_vb6FormDefInstance As FSetting
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As FSetting
Get
If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
m_InitializingDefInstance = True
m_vb6FormDefInstance = New FSetting()
m_InitializingDefInstance = False
End If
DefInstance = m_vb6FormDefInstance
End Get
Set
m_vb6FormDefInstance = Value
End Set
End Property
#End Region
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim Index As Short = Command1.GetIndex(eventSender)
srvport = Val(Text1.Text)
waittime = FSetting.DefInstance.Slider1.SelStart * 60
SysAutoM = Check1.CheckState
FSetting.DefInstance.Hide()
End Sub
Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
FSetting.DefInstance.Hide()
End Sub
Private Sub FSetting_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Text1.Text = Str(srvport)
Slider1.SelStart = waittime \ 60
Check1.CheckState = SysAutoM
End Sub
End Class⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -