Afficher sur une image dans userform un curseur en croix qui touche aux bordsRésolu

Question

Bonjour,

J'aimerai avoir un curseur en croix qui touche aux bords de mon image. Il serait constitué de deux barres, une verticale et une horizontale avec pour centre ma souris.
Cela me servirait pour la lecture de graphiques

Merci par avance à ceux qui veulent ien me répondre

Eleasias

Renfield · Accepted Answer

Pourtant pas compliqué : tu as tous les éléments.

voilà ce que je viens de faire pour tester (pas de tete, donc, ce coup ci)

1- ajouter une nouvelle UserForm
2- y ajouter une image, avec un JPEG affiché dedans
3- ajouter deux autres images ("Line1" et "Line2") dont tu changeras le BorderColor pour modifier la couleur des traits
4- code :

Private Sub UserForm_Activate()
    SetupLines
End Sub

Private Sub UserForm_Resize()
    SetupLines
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Line1.Top = Y
    Line2.Left = X
End Sub

Private Sub SetupLines()
    Line1.Left = 0
    Line1.Width = Me.Width
    Line1.Height = 1
    
    Line2.Top = 0
    Line2.Height = Me.Height
    Line2.Width = 1
End Sub

cs_Exploreur · Answer

Salut,

Défois que : 

Private Sub Form_Load()
Me.MousePointer = 2
End Sub

A toi par la suite à placer ton curseur à l'endroit désiré...
A+
Exploreur

 Linux a un noyau, Windows un pépin 

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire
mettez comme parrain : exploreur

Eleasias · Answer

D'abord merci de ta réponse mais ce n'est pas exactement ce que je veux.

Je me suis probablement mal expliqué : ce que tu m'as donné change seulement le curseur de forme.

Je voudrais la forme croix comme tu m'a donné mais dont les extrémités verticales et horizontales ne mesurent pas 10 pixels. Il me faudrait une croix dont les extrémités touchent les bords de mon image (avec une taille à rallonge suivant l'endroit où l'on se place).

J'espère que je me suis bien exprimé, merci d'avance

Eleasias

cs_Exploreur · Answer

Re,

Ah..oui...un peu comme les logiciels de dessins indus...? Mais là, je ne sais pas.

A+
Exploreur

 Linux a un noyau, Windows un pépin 

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire
mettez comme parrain : exploreur

Eleasias · Answer

(Désolé j'ai quelques bugs je crois)

Oui c'est bien cela, c'est pour trouver une abscisse avec une ordonnée ou vice et versa sur un graphe en jpeg

Eleasias

Eleasias · Answer

J'espère que quelqu'un pourra m'aider et surtout que j'ai été assez clair.
Je suis débutant en VBA et j'espère que ce n'est pas d'un niveau trop élevé pour moi.

(Comment je fais pour supprimer mon message raté s'il vous plaît)

Eleasias

Renfield · Answer

MousePointer a mettre en custom
ainsi, VB utilisera l'image MouseIcon comme curseur.

Eleasias · Answer

Oui mais je voudrais un curseur très grand (qui touche aux 4 côtés d'une image 270*486) et qui ne dépasse pas de l'image .
Le centre de la croix (comme un curseur cross) sera le pointé de la souris.

Eleasias

Renfield · Answer

ah, ok, j'avais pas vu ca ainsi.

déplace des controles Line en fonction des coordonnées de la souris (MouseMove)

en gros :


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.X1 = X
    Line1.X2 = X
    
    Line2.Y1 = Y
    Line2.Y2 = Y
End Sub

Eleasias · Answer

Euh ca c'est une macro esclave nan?
Il faut l'appeler de ma fenêtre qui fixe mes paramètres d'image mais les valeurs Button, Shift, X et Y je ne vois pas comment les incrémenter.De plus que définis-tu par Button et Shift?
Merci pour ton aide.

Eleasias

Renfield · Answer

c'est pas a definir ou autre... MouseMove est l'un des evenement standard.

quel est ton cadre exact de travail (est-ce bien du VB6, j'en doute)

Eleasias · Answer

Oui je travail sur Microsoft Visual Basic 6.3, mais je suis débutant et je ne connais pas grand chose.
Tu penses qu'avec le code que tu m'as donné avant, en tant que macro privée, me permet d'avoir ma "croix géante".

Eleasias

Renfield · Answer

oui...

oublie le mot "macro" dans le cadre de VB6, ca prete a confusion.

"tu penses qu'avec...." fais le test ^^ (fonctionne impec chez moi...)
bien sur, faut avoir ajouté deux controles Line sur ta form et les avoir bien placés (a voir dans le Form_Resize)

Eleasias · Answer

Je suis vraiment désolé mais je ne connais pas tout ca et quand je vais voir ce qu'est "Resize" l'aide me dit que ca s'applique à des cellules. De plus je n'ai jamais utilisé les contrôles Line et je ne vois pas comment ça marche.

Eleasias

Renfield · Answer

....
c'est du VBA que tu fais, pas du VB6 !

comme quoi, c'est important, dès le départ, où se trouve ton image ?

Eleasias · Answer

Excuse moi je ne connais pas la différence je t'ai juste donné le nom de mon logiciel (j'espère ne pas être trop embètant mais j'ai eu des cours que très sommaires sur VBA).

En fait j'ai une UserForm1 où je fais "ouvrir" un fichier grâce au chemin d'accès et qui m'emmène vers une autre userform2.
La userform2 contient un cadre image, et mon image est  chargée et redimensionnée au format du cadre image. Mon image est un scan d'un graphe, c'est pourquoi j'ai besoin de cet outil.

Eleasias

Renfield · Answer

pas très joli visuellement, mais a voir:


Private Type POINT
    x As Long
    y As Long
End Type

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function GetClientRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINT) As Long
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function LineTo Lib "gdi32.dll" (ByVal hDc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32.dll" (ByVal hDc As Long, ByVal x As Long, ByVal y As Long, ByRef lpPoint As Any) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hDc As Long) As Long
Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINT) As Long

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim hwnd As Long
Dim hDc As Long
Dim tPt As POINT
Dim tR As RECT
    hwnd = GetForegroundWindow
    GetClientRect hwnd, tR
    GetCursorPos tPt
    ScreenToClient hwnd, tPt
    
    Me.Repaint

    hDc = GetDC(hwnd)
    MoveToEx hDc, 0, tPt.y, ByVal 0&
    LineTo hDc, tR.Right, tPt.y
    MoveToEx hDc, tPt.x, 0, ByVal 0&
    LineTo hDc, tPt.x, tR.Bottom
    
    ReleaseDC hwnd, hDc
End Sub

Eleasias · Answer

Merci beaucoup.
Je vois le travail que ça t'a donné.
Je ne sais pas si tu l'as testé mais le fait que l'image "clignote" quand je bouge mon curseur vient du fait que le PC manque de ressource??

Eleasias

Renfield · Answer

testé, bien sur, je fais pas tout de tête ^^

le  Me.Repaint  cause le clignottement
tu noteras mon "pas très joli visuellement, mais a voir"

tu peux sans doute faire de fausses lignes, en ajoutant des controles Image pour jouer ce role. Ainsi, tu pourras utiliser le code de ce matin : 

Private Sub UserForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Line1.Left = X     
    Line2.Top = Y 
End Sub

Eleasias · Answer

Merci mais j'ai esssayé le code avec UserForm_MouseMove mais ca me met une erreur de compilation.

Au pire, pour atténuer cet effet de clignotement j'aimerai ajouter un bouton à ma fenêtre pour activer/désactiver cette croix.
J'ai un moyen qui est de faire 2 userforms identiques (une avec le code pour la croix et l'autre sans) et en cliquant, que ca ferme l'une en ouvrant l'autre. Mais y aurait-il un moyen plus simple par du code?

Je te remercie pour tout le temps que tu me consacre.

Eleasias

Eleasias · Answer

Euh sur ma userform j'ai une textbox avec un bouton "zoom", mais quand j'ai la "croix géante" le zoom ne s'effectue pas, tu peux me dire pourquoi et comment y remédier? Merci.

Eleasias

Renfield · Answer

erreur de compilation.

laquelle ?

pas ettonnant, je veux dire: j'ai tapé de tête,, a TOI d'adapter ^^

Eleasias · Answer

erreur de compilation :
"La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de même nom."

Ben je ne connais pas du tout l'évènement MouseMove c'est pour ça que je rame.

Eleasias

Leo_Robotic_Passion · Answer

Je vais peut être dire une bêtise, mais on ne peux pas paramétrer 
BorderColor sur
 un contrôle Image !<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>





Si ?

Renfield · Answer

>Je suis désolé, je ne veux pas poluer avec mes messages d'incompréhension. 
>Quand tu dis ajouter une nouvelle userform, c'est une copie de l'autre sans le code pour faire la "grande croix"? 
>
>Et les deux autres images je ne vois pas du tout, serait-ce les traits de la croix? 
>
>Et pourquoi changer la couleur? 
>
>Comme je t'ai posé plein de question en même temps ce code se réfère à quoi?Pour que le zoom >marche?Pour que ce soit plus joli visuellement? 
>
>Merci par avance, je dois t'énerver parce que je comprends rien mais c'est pas simple pour moi non >plus. Encore désolé, mais j'en ai vraiment besoin c'est pour mon stage.

Renfield · Answer

et ma réponse au message privé recu:


le forum est là pour ca, la messagerie perso non.

je t'ai indiqué MA marche à suivre. Dans un classeur vierge, donc.

en repartant sur une feuille vierge, tu constateras que là, ca fonctionne et tu pourras intégrer cela sereinement dans ta Form actuelle.

les deux controles images seront effectivement les traits de ta croix.
Pour changer la couleur des traits, tu exagère: je t'ai indiqué que la propriété BorderColor était là pour ça.

pas compris ta dernière question. on déplace des controles en fonction de la position de la souris... rien d'autre a dire. là, ca ne scintille plus comme le code qui consitait a dessiner des lignes. ici, on déplace des controles larges de 1 pixel, l'illusion est bonne.

Renfield · Answer

Pour le Zoom, suffit d'observer et de faire un produit en croix.... Option Explicit Private Sub UserForm_Activate() SetupLines End Sub Private Sub UserForm_Resize() SetupLines End Sub Private Sub Line1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CursorMoved X, Line1.Top End Sub Private Sub Line2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CursorMoved Line2.Left, Y End Sub Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CursorMoved X, Y End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CursorMoved X, Y End Sub Private Sub CursorMoved(ByVal X As Single, ByVal Y As Single) Line1.Top = Y Line2.Left = X End Sub Private Sub SetupLines() Line1.Left = 0 If Me.Zoom <> 100 Then Line1.Width = 100 * Me.Width / (100 - Me.Zoom) Else Line1.Width = Me.Width End If Line1.Height = 1 Line1.ZOrder 0 Line1.BorderColor = vbRed Line2.Top = 0 If Me.Zoom <> 100 Then Line2.Height = 100 * Me.Height / (100 - Me.Zoom) Else Line2.Height = Me.Height End If Line2.Width = 1 Line2.ZOrder 0 Line2.BorderColor = vbRed End Sub

Eleasias · Answer

Merci beaucoup pour tout, ca marche.

Eleasias

Afficher sur une image dans userform un curseur en croix qui touche aux bords

28 réponses

Votre réponse

Discussions similaires