Discussion :

[Clo72]

Bonjour à tous,
Suis nouveau ici.

Je travaille sur une application VB6 de fuseaux horaires avec des ronds rouges dans une picturebox désignant les principale villes.

Ai une picturebox Top = 120, Let = 120, Width = 11865
Au démarrage (Form_Load), je voudrais que mon curseur se positionne automatiquement sur le rond Paris (x = 5940, y = 1935) dans la picturebox.
Actuellement mon curseur complètement ailleurs dans la Form.

Quelqu'un a-t-il déjà eu ce problème ?
Si oui, merci d'avance pour la réponse.

Claude

[OhMonBato]

Dans un module ajoute cette déclaration de fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Puis là où tu vuex positionner ton curseur de souris, utilise ensuite ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim MousePos As Long
MousePos = SetCursorPos(50, 100)

Là j'ai mis 50 et 100 mais à toi d'adapter bien sûr en utilisant les coordonnées de ton controle Picture.

[ProgElecT]

en utilisant les coordonnées de ton controle Picture.

Je dirais même plus les coordonnées de ton Form et les coordonnées de ton controle Picture dans ton Form.

[Clo72]

Dans un module .BAS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Type POINTAPI
    x As Long
    y As Long
End Type
Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
 
Public Function SetCursorPosition(Window As Object, xPos As Long, yPos As Long) As Boolean
    Dim x As Long, y As Long
    Dim lRet As Long
    Dim lHandle As Long
    Dim typPoint As POINTAPI
 
    On Error GoTo ErrorHandler
    lHandle = Window.hwnd
    With Screen
        x = CLng(xPos / .TwipsPerPixelX)
        y = CLng(yPos / .TwipsPerPixelY)
    End With
    typPoint.x = x
    typPoint.y = y
    lRet = ClientToScreen(lHandle, typPoint)
    lRet = SetCursorPos(typPoint.x, typPoint.y)
    SetCursorPosition = (lRet <> 0)
    Exit Function
 
ErrorHandler:
    SetCursorPosition = False
    Exit Function
End Function

Dans le code du Form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Option Explicit
Dim lCoordX As Long, lCoordY As Long
 
Private Sub Form_Load()
 Me.Show
 Call SetCursorPosition(picTZI, lCoordX, lCoordY)
End Sub

Mettre les coordonnées voulues pour avoir le curseur sur l'image là où vous le souhaitezvoulez