VB如何让一个程序后台运行
答案:2 悬赏:30 手机版
解决时间 2021-03-23 00:44
- 提问者网友:皆是孤独
- 2021-03-22 10:43
我就是想制作一个外壳,在壳子里面载入另外一个程序,然后我运行外壳的时候,壳子里面的另外一个程序会也会跟着运行,但是是后台运行的,就是别人看的时候是看见我的壳子,而不是另外一个程序!!就是这个样子! 求助,呵呵!应该怎么弄!
最佳答案
- 五星知识达人网友:归鹤鸣
- 2021-03-22 10:59
1添加一个Timer时间控件
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'申明api
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = ((GetAsyncKeyState(vKeyCode) < 0))
End Function
Private Sub Form_Load()
Timer1.Interval = 100 '定时检测
Me.Visible = False
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyO) Then Me.Visible = True
'还可以换成调用其他函数
End Sub
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'申明api
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = ((GetAsyncKeyState(vKeyCode) < 0))
End Function
Private Sub Form_Load()
Timer1.Interval = 100 '定时检测
Me.Visible = False
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyO) Then Me.Visible = True
'还可以换成调用其他函数
End Sub
全部回答
- 1楼网友:春色三分
- 2021-03-22 12:22
大概不是很清楚你的问题 你是vb的里面有很多vb相关解决的 希望能帮到你 http://www.8tvs.com.cn/list.asp?id=60 你要在后台运行一个exe,看你怎么运行了.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯