Souris en vb.netRésolu

Question

Comment on repére en vb.net que la souris est sur un control style form?

cs_Crazyht · Accepted Answer

public Structure POINTAPI
  public integer x
  public integer y
End Structure

Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer 

Et Apres : 

POINTAPI position = new POINTAPI()
GetCursorPos (position)
' ici position contient les coordonnées de la souris :)

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

slim369 · Answer

Merci pou ta réponse

J'ai encore une question, voila
je dois réduire un formulaire qd la souris n'est plu dessus et le remettre à sa taille initiale qd elle revient dessus as-tu une idée de comment je peux faire ça?

Merci d'avance
Slim

cs_Crazyht · Answer

Si la fenetre est reduite comment tu place la souris dessus ???????

Sinon une comparaison entre les coordonnées de la souris et celles de la fenetre dans un timer (ou un thread) devrait faire l'affaire.

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

slim369 · Answer

je ne dois le réduire je dois rétrécir le formulaire pour qu'il ne reste plus que le bord du dessus et qd la souris revient sur le bord le formulaire s'affiche à nouveau

Justement c'est ce que je veux faire(timer) mais je ne connait pas les propriétés à utiliser pour faire cette comparaison,si tu pouvais me les dire? ça me rendrait un grand service

Merci d'avance

cs_Crazyht · Answer

la propriete de la fenetre doit etre MaForm.PointToScreen et eventuellement MaForm.Size pour obtenir le point bas droite :)

Regarde un peu la doc car mes souvenir sont plutot flous.

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

slim369 · Answer

C'est ma fct ,mais je n'arrive pas à trouver la syntaxe exact pour le if ,tu saurais m'aider?

 Private Sub TimerHideShowGroup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHideShowGroup.Tick
        
       'il ya une faute ds le if
         if( GroupManager.PointToScreen(Me.Cursor.Position)) Then
           GroupManager.Height() = 0
        Else
           GroupManager.Height() = 290
        End If
               
    End Sub

cs_Crazyht · Answer

Private Sub TimerHideShowGroup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHideShowGroup.Tick

POINTAPI position = new POINTAPI()
GetCursorPos (position)
Point HautGauche = GroupManager.PointToScreen(GroupManager.Position)
Point BasDroite = HautGauche + GroupManager.Size

if(Not((position.xHautGauche.X) And (position.yHautGauche.y))) Then
GroupManager.Height() = 0
Else
GroupManager.Height() = 290
End If

End Sub 

J'ai pas testé mais ca doit pas être loin.

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

slim369 · Answer

tu saurai me dire ou trouver les événements mouseover et mouseleave,mousedown? merci

cs_Crazyht · Answer

Tu ouvre ta fenetre en design, puis au dessus des proprietes de celle ci tu clique sur l'icone representant un eclair, et la ils sont dans la liste :)

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

slim369 · Answer

je ne vois pas l'icone,il faut activer qq chose?

cs_Crazyht · Answer

Non rien a activer. Tu n'as pas l'icones dans la bande des proprietes de droite ?

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

slim369 · Answer

non je ne l'ai pas ,je ne vois pas d'éclair :question)

cs_Crazyht · Answer

euh tu utilise bien Visual Studio .NET ?

A++

 :-p  Crazyht  :) 
    MVP Visual C#.NET

[Admin Codes-Sources]
[Membre Developer-Association]

Souris en vb.net

13 réponses

Discussions similaires