使用
Form1.Hide
隐藏窗体
正常来说吧,一个程序肯定有它的窗体,通过窗体才能进行一系列的操作
但某些自动化的功能,不需要窗体的话
可以在Sub Form_Load中
使用代码
Form1.Hide
这样窗体就不会显示出来,不显示出来不代表不存在,只是看不到
至于保持程序运行,VB程序只要打开了,没有死掉没有关闭,就会一直保持程序运行,等待接收消息并且作出相应的反应。具体看代码了
新建一个工程,在Project Explorer内的Form1上点击右键->Remove Form1,然后再添加一个Module,方法是在Project Explorer内的Project1上点击右键->Add->Module。
Module内的代码如下即可保持运行:
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
Private Declare Function TranslateMessage Lib "user32" (lpMsg As MSG) As Long
Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As MSG) As Long
Sub Main()
Dim m As MSG
Do While (GetMessage(m, 0, 0, 0))
‘这里可以根据m对应的不同消息作相应处理
TranslateMessage m
DispatchMessage m
Loop
End Sub
在sub main里做个无限循环