如何控制WebBrowser控件的滚动条
编号：QA002145
建立日期: 1999年12月2日 最后修改日期：1999年12月2日
所属类别：
Jade:
操作系统：WIN98
编程工具：VB6 中文版
问题：我编了一个网页浏览器，是用WebBrowser控件做的，但我想控制WebBrowser控件的滚动条，使它变为自动，比如说每隔一分钟滚动条就会自动向下滚动一页，有好方法吗？拜托。
回答:
这个问题可以这样解决：
1、加入一个Timer定时器控件，设置为你所需要翻页的时间
2、利用API函数产生模拟按键
下面为程序代码：
Private Declare Function GetForegroundWindow& Lib "user32" ()
Private Declare Function GetWindowText& Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan _
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub MyCapture() '生成一次模拟击键Pagedown
keybd_event vbKeyPageDown, 0, 0, 0
End Sub
Private Sub Timer_Timer()
Dim dl1&, dl2&
Dim Canp As String * 255
dl1& = GetForegroundWindow&() '获取当前活动窗口的句柄
dl2& = GetWindowText&(dl1&, Canp$, 255) '获取窗口的标题
If Canp$ <> Me.CaptionThen: Exit Sub '如当前活动窗体不
'为本窗体，则不作处理
MyCapture
End Sub
另外，也可以用SENDKEYS语句来实现：
sendkeys "{PGDN}"
此问题由point回答。
| |
|
|
| |
|
|
