UC知道VB 激活另一个窗体
来源：百度知道 编辑：UC知道 时间：2024/05/24 15:33:40
我做了一个按钮,想实现以下功能:
1.单击这个按钮时激活另一个窗体,这个窗体是网页的窗体.(注意是网页的,其他文本文件的我也会)
2.最好用纯代码,不用模块也不用API函数.(符合第2点要求的追加5分)
代码是这样的:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
AppActivate "VB笔记.txt - 记事本"
End Sub
把上面的"VB笔记.txt - 记事本"换成一个"百度搜索 - 傲游[Maxthon]"就不行了,请问为什么?
1.单击这个按钮时激活另一个窗体,这个窗体是网页的窗体.(注意是网页的,其他文本文件的我也会)
2.最好用纯代码,不用模块也不用API函数.(符合第2点要求的追加5分)
代码是这样的:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
AppActivate "VB笔记.txt - 记事本"
End Sub
把上面的"VB笔记.txt - 记事本"换成一个"百度搜索 - 傲游[Maxthon]"就不行了,请问为什么?
....傲游[Maxthon]"
.........↑
似乎少了个空格哦
我测试是可以的
Private Sub Command1_Click()
AppActivate "VB 激活另一个窗体_百度知道 - 傲游 [Maxthon]"
End Sub
你自己连问题都没写准确
你说的不是很清楚的哦.
首先你这个这个窗体是不是你程序自带的.如果你是调用浏览器的话代码是不一样的.
如果你是程序自带的话就直接用
form x .show
这个就可以调出了.
如果是调用浏览器就用下面的
声明部分:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
按钮部分:
Call ShellExecute(hwnd, "open", "网站地址", "", App.Path, 1)
注意不要掉了分号.
是要注意空格。