《VB常用经典代码大全》.pdf

VB 常用经典代码大全 隐藏form1 ： form1.hide 显示form1 ： form1.show 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox(真要退出吗?, vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub 叧能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub 点击command1 打开33IQ 网： Dim strURL Private Sub Command1_Click() strURL = Shell explorer.exe strURL, 1 End Sub 运行c:\1.exe shell c:\ 1.exe 执行c:\1.bat shell c:\ 1.bat 注：叧适用亍大部分exe 和全部bat。 把labe