What do you guys like to use for mouse mapping?

[Pete]

Steve is correct. This is a nearly all-purpose keyboard / mouse subroutine. Autokey$ is my way of not having to code for what is already present in parts.

Say you need to paste new text into an existing filled text field. We need "Select all" chr$(4) followed by "Paste" chr$(22) to accomplish that. So I just use: autokey$ = "chr$(4),chr$(22)" and send it through the routine.

Example:

Code: (Select All)

autokey$ = "1,2,4" ' Let's print choices 1, 2, and 4.

Do

    If Len(autokey$) Then

        b$ = Mid$(autokey$, 1, InStr(autokey$ + ",", ",") - 1) ' Coded autokey$ + "," to allow us not to have to add a trailing comma to our autokey string.

        autokey$ = Mid$(autokey$, InStr(autokey$ + ",", ",") + 1)

    Else

        b$ = InKey$

    End If

    Select Case b$

        Case "1": Print "Pete is tremendous!"

        Case "2": Print "Steve is just amazing."

        Case "3": Print "Note to Steve, buy more buckshot."

        Case "4": Print "What? Steve was writing code before Pete was in diapers!"

    End Select

Loop

Oh, edited in...

@bplus

You asked about the variable 'nob' Number of buttons. My routine allows for mapped button arrays to be recognized. The calling routine then uses the hover variable to highlight or unhighlight the button(s). btl is button top left. btr is button bottom right. I think Steve does something same or similar to map buttons. It sure beats plotting out all four corners with arrays.

Code: (Select All)

For i = 1 To nob ' number of buttons.

    If my >= y_btl(i) And my <= y_bbr(i) And mx >= x_btl(i) And mx <= x_bbr(i) Then

        b_hover = i

        Exit For

    End If

Next

Pete