scroll buttons

[mehlar]

I'm making a webbrowser and need to make buttons for the scroll functions. (up, down, left, right).

I can not figure out how to make them.

Can someone please help.

Lars

[davidrobin]

I am not sure why you need to put scroll buttons on yourself. If you navigate to a page like in the example below the scroll bars will appear automatically on the webbrowser control.

 WebBrowser1.Navigate ("http://www.microsoft.com")

[mehlar]

Oh.
It's because I'm making a touch screen application, and I need separat buttons for this.

Lars

You can use SendKeys.

Private Sub Command1_Click()
Webbrowser1.SetFocus
SendKeys "{UP}"
End Sub

Private Sub Command2_Click()
Webbrowser1.SetFocus
SendKeys "{DOWN}"
End Sub

Private Sub Command3_Click()
Webbrowser1.SetFocus
SendKeys "{LEFT}"
End Sub

Private Sub Command4_Click()
Webbrowser1.SetFocus
SendKeys "{RIGHT}"
End Sub

[mehlar]

Thank you Matthew!

Yes this looks good, and is similar to what I figured out, but I still have two problems.

1.
On som html-pages Mr. Setfocus doesn't his job. I often have to put the cursor in the web myself before I can scroll.

2.
I'd like to have the scroll on the mousedown so that it scrolls as long as I hold the button in, and stops on mouseup. I have tried a getTickcount method, but I'm not to familiar with it.

Anyone have any ideas?

Lars

What you want to do is purdy simple .

Dim MouseUp As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseUp = False Then
        Webbrowser1.SetFocus
        Do
        DoEvents
        SendKeys "{UP}", True
        Loop Until MouseUp = True
    End If
    If MouseUp = True Then MouseUp = False
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseUp = True
End Sub

Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseUp = False Then
        Webbrowser1.SetFocus
        Do
        DoEvents
        SendKeys "{DOWN}", True
        Loop Until MouseUp = True
    End If
    If MouseUp = True Then MouseUp = False
End Sub

Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseUp = True
End Sub

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseUp = False Then
        Webbrowser1.SetFocus
        Do
        DoEvents
        SendKeys "{LEFT}", True
        Loop Until MouseUp = True
    End If
    If MouseUp = True Then MouseUp = False
End Sub

Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseUp = True
End Sub

Private Sub Command4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseUp = False Then
        Webbrowser1.SetFocus
        Do
        DoEvents
        SendKeys "{RIGHT}", True
        Loop Until MouseUp = True
    End If
    If MouseUp = True Then MouseUp = False
End Sub

Private Sub Command4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseUp = True
End Sub

[mehlar]

Thanxs Matthew!

The code looks great, but we need to set MouseUp to false somewhere so that the browser scrolls, don't we?

Lars

MouseUp is set to false.

'Private Sub Command_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'If MouseUp = False Then
        'Webbrowser1.SetFocus
        'Do
        'DoEvents
        'SendKeys "{....}", True
        'Loop Until MouseUp = True
    'End If
    If MouseUp = True Then MouseUp = False
'End Sub

All of the code I gave works. I tested it before I posted .