dotNETportal.cz

Private Sub Obrázek0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

V každém případě děkuji za rady.

Nicméně jsem nakonec přece jen něco objevil.

Nejsou to sice souřadnice v rámci obrázku, nýbrž v rámci celé pracovní plochy. Nicméně funguje to bezvadně. Je tam i simulace kliknutí, což já osobně nepotřebuji a nezkoušel jsem to.

Část pro zjištění pozice je však mnou ověřená a už ji používám.

Možná se to bude hodit i někomu dalšímu...

' Access the GetCursorPos function in user32.dll
      Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
      ' Access the GetCursorPos function in user32.dll
      Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

      ' GetCursorPos requires a variable declared as a custom data type
      ' that will hold two integers, one for x value and one for y value

      Private Type POINTAPI
      X_Pos As Long
      Y_Pos As Long
      End Type
          
      ' Main routine to dimension variables, retrieve cursor position,
      ' and display coordinates
Private Sub Příkaz1_Click()
      ' Dimension the variable that will hold the x and y cursor positions
      Dim Hold As POINTAPI
      ' Place the cursor positions in variable Hold
      GetCursorPos Hold
      ' Display the cursor position coordinates
      MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
         "Y Position is : " & Hold.Y_Pos
End Sub
      
      ' Routine to set cursor position
Private Sub Příkaz1_DblClick(Cancel As Integer)
      ' Looping routine that positions the cursor
         For x = 1 To 480 Step 20
            SetCursorPos x, x
            For y = 1 To 40000: Next
         Next x
End Sub

Přeji příjemný všem den.