大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
打开VS点虐
专注于为中小企业提供成都做网站、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业文圣免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千多家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
2008
,打开工程,点击菜单项目
在点XX属性,就可以看到启动对象,选择卖坦相穗配逗应的启动模块猜卖
在宽卜右侧解决方案资源管理器窗口下右击工程慎搜穗名,点击属性对话框,在出现的界面中点击应用程序选项卡,里面有一个启动窗体选项,漏旅你可以自由设置。
Private Declare Function ExitWindowsEx Lib user (ByVal uFlags As Integer ByVal dwReserved As Integer) As IntegerConst EWX_FORCE As Short = Const EWX_LOGOFF As Short = Const EWX_REBOOT As Short = Const EWX_SHUTDOWN As Short = Dim retval As Integer 定义Esc按键Const VK_ESCAPE As Short = H BsPrivate Sub Command _Click(ByVal eventSender As System Object ByVal eventArgs As System EventArgs) Handles Command ClickIf Option Checked Then 注销当前用户冲拿段retval = ExitWindowsEx(EWX_FORCE )ElseIf Option Checked Then 关闭计算机retval = ExitWindowsEx(EWX_SHUTDOWN )ElseIf Option Checked Then 重新启动retval = ExitWindowsEx(EWX_REBOOT )End IfEnd SubPrivate Sub Command _Click(ByVal eventSender As System Object ByVal eventArgs As System EventArgs) Handles Command ClickMe Close()End Sub 按Esc键时 结束应用程序Private Sub Form _KeyPress(ByVal eventSender As System Object ByVal eventArgs As System Windows Forms KeyPressEventArgs) Handles MyBase KeyPressDim KeyAscii As Short = Asc(eventArgs KeyChar)If KeyAscii = VK_ESCAPE ThenMe Close()End IfIf KeyAscii = TheneventArgs Handled = TrueEnd IfEnd Sub本实例通过使用ExitWindowEx()API函数来达到关机和重新启动的目的 在ExitWindowEx()函数中 参数敏蠢uFlags指定要进行何种操作 在表 中列出了参数uFlags的值及散誉其说明 表 参数uFlags的值及说明 lishixinzhi/Article/program/net/201311/13585
修改注迟渣稿册表Run键
Dim Reg As Microsoft.Win32.RegistryKey
'修改注码孝册表,用于启动时加载梁轿
Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Reg.SetValue("testSoft", Application.ExecutablePath)