重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
点击“解决方案资源管理器”中那个窗体左侧的小三角,再点下面下拉出来的与窗体同名的图标就行了。如图:
十多年的江口网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整江口建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联公司从事“江口网站设计”,“江口网站推广”以来,每个客户项目都认真落实执行。
你需要两个创建两个程序...
首先在你的主程序的代码里面添加它们:
'main program
public sub restart()
shell app.path "\restart.exe " app.path "你的主程序的名字.exe",vbhide
end
end sub
用于重启的程序,叫做restart.exe
先创建标准exe工程
然后再在右边的工程资源管理器中右键点击form1
在弹出的菜单中选择移除form1
然后点击菜单条上面的添加模块
在新添加的module1里添加它们
'restart program
sub main
shell command
end sub
生成exe到你的主程序所在的目录
这时你便可以在主程序的任意地方添加一行restart来重新启动你的程序了
VB6.0窗体重新加载可使用Load语句、Show方法等实现。
1)Show 方法,用以显示 MDIForm 或 Form 对象。
窗体名.Show
2)Load 语句,把窗体或控件加载到内存中。
Load.窗体名
3)Visual Basic 窗体经历的状态
通常地,Visual Basic 窗体在整个存活期中有四种状态:
创建,但不加载。
加载,但不显示。
显示。
内存和资源完全收回。
在一定环境下,窗体可有第五种状态:当其中有一个控件仍被引用时,窗体处于卸载和未引用状态。
4)在其他程序运行时,当代码涉及到完全卸载窗体上的控件事件或属性,被卸载窗体会被加载到内存。
Private Sub Command1_Click()
Form1.Text1 = "Abc"
End Sub
上述代码执行,Form1就被加载于内存。
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