首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么显示正在运行的EXE的特定Form

2012-02-01 
如何显示正在运行的EXE的特定Form现在写了一个程序A.EXE有两个FormFormA程序主界面FormB系统隐藏界面,用于

如何显示正在运行的EXE的特定Form
现在写了一个程序   A.EXE
有两个   Form  
FormA   程序主界面
FormB   系统隐藏界面,用于捕捉快捷键后显示   FormA

现在运行   A.EXE
系统显示   FormA
之后点关闭
仅仅   Unload   FormA  
FormB   依旧运行

当按下指定快捷键时   显示   FormA

当再次运行   A.EXE   时
系统检测   A.EXE   已经运行
自动退出
并且打开已经运行的   A.EXE   中的   FormA         此问题需要解决

求助如何显示已经运行的   A.EXE   中的   FormA

[解决办法]
Unload FormA 后,就无法load FORMA了,建议formA.visible=false
[解决办法]
为了显示或隐藏某窗体么!

其实不需要第2个窗体来 show 吧...

只要一个窗体 加个热键功能就可以了呀!

下面是个例题 看看吧!

1.建立一个窗体后添加一个 时间控件
2.复制下面代码到代码窗口后 启动看效果
================================================
Private Declare Function GetAsyncKeyState Lib "user32 " (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean '热键部分 声明的自定义函数
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
If MyHotKey(vbKeyF9) Then '按下F9
Me.Hide
End If
If MyHotKey(vbKeyF10) Then '按下F10
Me.Show
End If
End Sub
=======================================
效果是启动程序后 按F9后 隐藏程序 按F10显示程序

cike技术交流群 16874787 支持论坛:http://www.hexi5.com/bbs

热点排行