[DouBl3K]

I need to create a CommandButton to Scroll Down in my WebBrowser Form, but i've no idea how to solve this.
Can someone help me?

[GavinO]

Well, how do you scroll now? If its a scrollbar, just have the command button adjust the Value property of the scrollbar. If its a scrollbar internal to a webbrowser control, it will be a bit more complicated. Some specifics, please.

[DouBl3K]

i create my own webbrowser, it will be used on a touchscreen, so i need 2 Buttons for scroll up/down ... atm the scrollbar isn't active, all html and php files are optimized for 1024 x 768 and my webbrowser too. But when I open a pdf file I need to scroll. I don't know if its a scrollbar internal to a webbrowser control ... I'm new in programming with vb, i think it's the normal scrollbar of the webbrowser control.

thx 4 helping

[GavinO]

So, there is already a scrollbar in the browser? Then your touchscreen should be able to use that scrollbar. A stock control should be fully equipped to scroll if necessary. Specifically, are you using the WebBrowser control, or something else?

[DouBl3K]

Yeah there is an auto scrollbar and I use the Webbrowser Control. But the Problem is, that the normal scrollbar is very small to touch with a finger, i think. So i want to put this control in a bigger button ...

I hope u can help me

[GavinO]

There are accesiblity settings within windows that will allow you make all UI elements easier to manipulate with the touchscreen. Specificlly, I think you want scrollbar width and titlebar width under control panel->display->appearance. This should be much easier than digging into the webbrowser control to adjust the scrollbars. If you need to change the settings programatically, I think you can do so through registry manipulation.

[Aspen2K]

If you find the x and y position of the top and botton of the scrollbar I bet you could use:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
    
   
 ' Moves mouse...
    SetCursorPos X, Y
    mouse_event MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0

Just a thought,
Aspen2K

[DouBl3K]

@Aspen2k
When I paste your code in my project I get compilation errors

@GavinO
Where can I change the width of the scrollbar, when I set
Const vbBoth = 6 nothing changed ...

[GavinO]

The little kludge of changing display settings will work pretty much only if you are running this on one machine or multiple identical machines off of a Ghost image (or if you have a masochistic level of dedication ) Pretty much, you go into the Windows display properties and bump up the default scrollbar width. It isn't a VB solution, unfortunately. For that, Aspen2K's solution is far more elegant.

[DouBl3K]

thx, but when I past Aspen's code i get compilation errors ... can u explain it?

[SGR]

Hey, dont be complicated!

use the following in your button

webbrowser1.Document.body.doscroll("down")

works with "left" "right" and "up" also...

I leave in Argentina please send me money, i ll die en 1 week if i do not eat !!!

[Aspen2K]

SGR, you are the man ! I knew there would be a WB solution !

* Aspen2K Bows down and praises SGR

Aspen2K

[DouBl3K]

thx 4 ur help

But when I open a pdf file, i can't scroll again ... but this is important.
How can I scroll through a pdf file with these buttons?

[SGR]

I just trying to determine why it cant scroll down in a pdf.

I think that the pdf is "contained" in te webbrowser control, the doscroll method doesnt apply to the pdf, have you test in .doc or another document type if is the same?,

currently i don't see any way to scroll the pdf. Have you tried to make a page in html to frame pdfs and test if it works? i think it only scrolls the not visible part of the pdf even of the pdf itself, but keep a try!

meanwhile i keep testing...