Registered ActiveX Controls 中的 "Microsoft Web 浏览器 "行不? 或者从网上 down 一个类似的类。
调用这个函数: HINSTANCE ret = 0; ret = ShellExecute(NULL, NULL, "http://www.XXXX.com", NULL, "C:\\", SW_SHOWNORMAL);
如果想转向的网页是http://www.123.com,那么可以把一下代码加在按钮或标签单击等事件中: dim ret as long dim sUrl as string sUrl = "http://www.123.com" ret = shellexecute(0&, vbNullString, sUrl, vbNullString, vbNullString, vbNormalFocus)即可实现用默认浏览器打开http://www.123.com这个网页
"Microsoft Web 浏览器 "行不?
或者从网上 down 一个类似的类。
HINSTANCE ret = 0;
ret = ShellExecute(NULL, NULL, "http://www.XXXX.com", NULL, "C:\\", SW_SHOWNORMAL);
dim sUrl as string
sUrl = "http://www.123.com"
ret = shellexecute(0&, vbNullString, sUrl, vbNullString, vbNullString, vbNormalFocus)即可实现用默认浏览器打开http://www.123.com这个网页