VB6窗体挡住东西
解决时间 2021-05-02 16:54
- 提问者网友:眉目添风霜
- 2021-05-02 06:16
例如我用VB6打开网页,打开之后,窗体却把网页挡住了!
我想用VB6启动东西,然后启动的东西显示在最前面!
最佳答案
- 五星知识达人网友:行雁书
- 2021-05-02 06:25
这个简单,不就个窗体置前么! Option Explicit''使指定窗口总在最前 Private Declare Function SetWindowPos Lib"user32"(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const HWND_TOPMOST = -1 Const SWP_NOMOVE =&H2 Const SWP_NOSIZE =&H1 Const SWP_NOZORDER =&H8 Sub SetFormTopmost(TheForm As Form) SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE End Sub Sub Form_Load() SetFormTopmost Me ''只需要改动这里,ME换成你想放在最前的窗体名 End SUB
全部回答
几种实现方法
1.启动另一个程序后,将用API setwindowpos将自己置于窗体后面,
2.如果不会用API可以程序自身最小化。
3.启动另一个程序,获取此程序句柄,用API将此程序置于所有窗体前面
- 2楼网友:你哪知我潦倒为你
- 2021-05-02 07:16
你可以这样写
Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe www.baidu.com", 1
End Sub
我要举报
大家都在看
推荐资讯