知识大全如何编写随Windows启动运行的程序

Posted 2022-07-21 知

篇首语：学习知识要善于思考，思考，再思。我就是靠这个方法成为科学家的。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何编写随Windows启动运行的程序相关的知识，希望对你有一定的参考价值。

如何编写随Windows启动运行的程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　通过设置和读取注册表可以实现我们的应用程序随Windows的启动即可执行的功能下面就是实现的代码

　　Form vb

　　Imports Microsoft Win RegistryPublic Class Form 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 (ponents Is Nothing) Then ponents Dispose() End If End If MyBase Dispose(disposing) End Sub

　　 Windows 窗体设计器所必需的 Private ponents As System ComponentModel IContainer

　　注意以下过程是 Windows 窗体设计器所必需的可以使用 Windows 窗体设计器修改此过程不要使用代码编辑器修改它 Friend WithEvents CheckBox As System Windows Forms CheckBox Friend WithEvents btnSave As System Windows Forms Button <System Diagnostics DebuggerStepThrough()> Private Sub InitializeComponent() Me CheckBox = New System Windows Forms CheckBox() Me btnSave = New System Windows Forms Button() Me SuspendLayout() CheckBox Me CheckBox BackColor = System Drawing SystemColors Control Me CheckBox Checked = True Me CheckBox CheckState = System Windows Forms CheckState Checked Me CheckBox ForeColor = System Drawing SystemColors ControlText Me CheckBox ImeMode = System Windows Forms ImeMode NoControl Me CheckBox Name = CheckBox Me CheckBox RightToLeft = System Windows Forms RightToLeft Yes Me CheckBox Size = New System Drawing Size( ) Me CheckBox TabIndex = Me CheckBox Text = Windows开机即运行 Me CheckBox TextAlign = System Drawing ContentAlignment MiddleRight btnSave Me btnSave BackColor = System Drawing SystemColors Control Me btnSave Font = New System Drawing Font( 宋体 !) Me btnSave ForeColor = System Drawing SystemColors ControlText Me btnSave ImeMode = System Windows Forms ImeMode NoControl Me btnSave Location = New System Drawing Point( ) Me btnSave Name = btnSave Me btnSave Size = New System Drawing Size( ) Me btnSave TabIndex = Me btnSave Text = 保存设置 Form Me AutoScaleBaseSize = New System Drawing Size( ) Me ClientSize = New System Drawing Size( ) Me Controls AddRange(New System Windows Forms Control() Me btnSave Me CheckBox ) Me FormBorderStyle = System Windows Forms FormBorderStyle FixedToolWindow Me Name = Form Me StartPosition = System Windows Forms FormStartPosition CenterScreen Me Text = Windows开机即运行 Me ResumeLayout(False)

　　End Sub

　　#End Region

　　Dim Reg As Microsoft Win RegistryKey Private Sub InitVar() If btnSave Visible = True Then

　　End If Reg = CurrentUser OpenSubKey( Sofare\\Microsoft\\Windows\\CurrentVersion\\Run True) If Reg GetValue( MengXianHui ) <> Then CheckBox Checked = True Else CheckBox Checked = False End If End Sub Private Sub SaveSettings() If CheckBox Checked = True Then Reg = CurrentUser OpenSubKey( Sofare\\Microsoft\\Windows\\CurrentVersion\\Run True) Reg SetValue( MengXianHui Application ExecutablePath) Else Reg = CurrentUser OpenSubKey( Sofare\\Microsoft\\Windows\\CurrentVersion\\Run True) Reg SetValue( MengXianHui ) End If InitVar() MessageBox Show( 您已经设置了请重新启动计算机看效果提示 _ MessageBoxButtons OK MessageBoxIcon Information) If CheckBox 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 SubEnd Class

cha138/Article/program/ASP/201311/21708

知识大全 如何编写随Windows启动运行的程序

知识大全如何编写随Windows启动运行的程序