2 dingen in 1 if

[otie]

Heey, ik ben met een project bezig voor een crosshair

Declare Function GetKeyState Lib "user32.dll" (ByVal KeyCode As Long) As Integer
    Const VK_LBUTTON = &H1
    Const VK_RBUTTON = &H2

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If GetAsyncKeyState(VK_LBUTTON) Then
            Form3.BackgroundImage = My.Resources.Shoot
        ElseIf GetAsyncKeyState(VK_RBUTTON) & GetAsyncKeyState(VK_LBUTTON) Then
            Form3.BackgroundImage = My.Resources.Zoom_in_and_shoot
        ElseIf GetAsyncKeyState(VK_RBUTTON) Then
            Form3.BackgroundImage = My.Resources.Zoom_in
        Else
            Form3.BackgroundImage = My.Resources.Normal
            End If
    End Sub

alles werkt, behalve:

ElseIf GetAsyncKeyState(VK_RBUTTON) & GetAsyncKeyState(VK_LBUTTON) Then
            Form3.BackgroundImage = My.Resources.Zoom_in_and_shoot

dat werkt niet, het geeft geen errors, maar het werkt gewoon niet. want als ik rechter en linker muis tegelijk indruk, komt er gewoon dezelfde crosshair als dat je Linker alleen inhoud...


Iemand een idee?? of wat er fout is???


Crosshair = Kruis in het midden om aan te geven waar je op richt/schiet.

 

[CaptainBri]

Probeer eens het '&' teken door 'And' te vervangen? Hopelijk werkt het

 

[otie]

Dat hoorde ik ook op een ander forum, maar het werkt niet

 

[otie]

Zelf opgelost (Y)

If GetAsyncKeyState(VK_RBUTTON) Then
            If GetAsyncKeyState(VK_LBUTTON) Then
                Form3.BackgroundImage = My.Resources.Zoom_In-And-Shoot
            Else
                Form3.BackgroundImage = My.Resources.Zoom_In
            End If

        ElseIf GetAsyncKeyState(VK_LBUTTON) Then
            Form3.BackgroundImage = My.Resources.Shoot
        Else
            Form3.BackgroundImage = My.Resources.Normal
        End If