自制了一个全屏的浏览器,只要求做到两点:
1、浏览固定页面,如http://www.baidu.com,不能右键打开另外窗口,所有窗口都在自身窗口打开。
2、按特定快捷键打开自定义窗口,如 adBox.frm,输入相关信息,保存到本地文件夹。
3、如果可以,模拟鼠标手势,进行关闭窗口,刷新、向前,倒退窗口操作,如果麻烦,则可以在浏览器上单击右键显示自定义的右键菜单,选择相关的操作。本人是新手(只会使用简单的窗体,不会使用模块,不会用API),有高手点评,感激不尽,凡能说到VB技巧的,就散分。非常感谢!!!
1、浏览固定页面,如http://www.baidu.com,不能右键打开另外窗口,所有窗口都在自身窗口打开。
2、按特定快捷键打开自定义窗口,如 adBox.frm,输入相关信息,保存到本地文件夹。
3、如果可以,模拟鼠标手势,进行关闭窗口,刷新、向前,倒退窗口操作,如果麻烦,则可以在浏览器上单击右键显示自定义的右键菜单,选择相关的操作。本人是新手(只会使用简单的窗体,不会使用模块,不会用API),有高手点评,感激不尽,凡能说到VB技巧的,就散分。非常感谢!!!
2.
private sub form_keyDown(.........)
if keycode=asc("A") and shift=1 then'shift+A调用窗体
adbox.show
end if
end sub
'=====写adbox窗体上的text1控件的内容到磁盘文件d:\d.txt 文件中
open "d:\d.txt" for output as #1
print #1,adbox.text1.text
close #1
3.不知道在说什么
不能打开窗口好办,可以在webbrower上面做一picture控件盖住他就可以了。2、按特定快捷键打开自定义窗口,如 adBox.frm,输入相关信息,保存到本地文件夹。
这个用VB的菜单或API的定义热键应该可以实现吧。
3、如果可以,模拟鼠标手势,进行关闭窗口,刷新、向前,倒退窗口操作,如果麻烦,则可以在浏览器上单击右键显示自定义的右键菜单,选择相关的操作。
模拟鼠标可以用mouse_event 或是直接用程序控制就可以了。比如刷新就是webbrower.Refresh就可以了吧。我也是新手一块研究吧。
litaoa(青云) ,能不能详细说一下如何在webbrowser控件上加载mouse_event呢?还有API热键又如何定义,本人新手中的新手,初次接触,请多多指教!