AI时代，找源码已成为过去式，纪念我过去的十年0(回)
69天前
还有人吗2(回)
87天前会python真的可以为所欲为0(回)
567天前
这里还有人吗2(回)
752天前这里还有人吗0(回)
752天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
977天前Form1.vb |
Imports Microsoft.Win32.Registry |
Public Class Form1 |
Inherits System.Windows.Forms.Form |
#Region " Windows 窗体设计器生成的代码 " |
Public Sub New() |
MyBase.New() |
'该调用是 Windows 窗体设计器所必需的。 |
InitializeComponent() |
'在 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 |
'注意：以下过程是 Windows 窗体设计器所必需的 |
'可以使用 Windows 窗体设计器修改此过程。 |
'不要使用代码编辑器修改它。 |
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox |
Friend WithEvents btnSave As System.Windows.Forms.Button |
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() |
Me.CheckBox1 = New System.Windows.Forms.CheckBox() |
Me.btnSave = New System.Windows.Forms.Button() |
Me.SuspendLayout() |
' |
'CheckBox1 |
' |
Me.CheckBox1.BackColor = System.Drawing.SystemColors.Control |
Me.CheckBox1.Checked = True |
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked |
Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlText |
Me.CheckBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl |
Me.CheckBox1.Name = "CheckBox1" |
Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes |
Me.CheckBox1.Size = New System.Drawing.Size(142, 15) |
Me.CheckBox1.TabIndex = 21 |
Me.CheckBox1.Text = "Windows开机即运行" |
Me.CheckBox1.TextAlign = System.Drawing.ContentAlignment.MiddleRight |
' |
'btnSave |
' |
Me.btnSave.BackColor = System.Drawing.SystemColors.Control |
Me.btnSave.Font = New System.Drawing.Font("宋体", 10.0!) |
Me.btnSave.ForeColor = System.Drawing.SystemColors.ControlText |
Me.btnSave.ImeMode = System.Windows.Forms.ImeMode.NoControl |
Me.btnSave.Location = New System.Drawing.Point(0, 16) |
Me.btnSave.Name = "btnSave" |
Me.btnSave.Size = New System.Drawing.Size(144, 24) |
Me.btnSave.TabIndex = 32 |
Me.btnSave.Text = "保存设置" |
' |
'Form1 |
' |
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) |
Me.ClientSize = New System.Drawing.Size(144, 40) |
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSave, Me.CheckBox1}) |
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow |
Me.Name = "Form1" |
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen |
Me.Text = "Windows开机即运行" |
Me.ResumeLayout(False) |
End Sub |
#End Region |
Dim Reg As Microsoft.Win32.RegistryKey |
Private Sub InitVar() |
If btnSave.Visible = True Then |
End If |
Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) |
If Reg.GetValue("MengXianHui") <> "" Then |
CheckBox1.Checked = True |
Else |
CheckBox1.Checked = False |
End If |
End Sub |
Private Sub SaveSettings() |
If CheckBox1.Checked = True Then |
Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) |
Reg.SetValue("MengXianHui", Application.ExecutablePath) |
Else |
Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) |
Reg.SetValue("MengXianHui", "") |
End If |
InitVar() |
MessageBox.Show("您已经设置了，请重新启动计算机看效果。", "提示", _ |
MessageBoxButtons.OK, MessageBoxIcon.Information) |
If CheckBox1.Checked = True Then |
Me.Dispose(True) |
End If |
End Sub |
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ |
Handles btnSave.Click |
SaveSettings() |
End Sub |
End Class |
