none
PictureBox qui ne s'affiche pas au passage de ma souris. RRS feed

  • Question

  • Bonsoir,

    Comme vous le voyez certainement dans l'image, entre chaque boutons, j'ai mis des PictureBox. Je réalise un Pattern PassCode, comme sur les portables nouvelle génération en effet.

    Je vous explique maintenant mon problème. Dans MyBase.Load j'appel la fonction Picture() qui elle permet de cacher les PictureBox via PictureBox1.Hide(), etc ... J'utilise ce code :

    Private Sub PictureBox1_MouseHover(sender As Object, e As EventArgs) Handles PictureBox1.MouseHover
            PictureBox1.Show()
    End Sub

    Ce code permet, lorsque je passe ma souris sur la PictureBox1 de l'afficher, normalement, mais rien y fait, la PictureBox ne s'affiche pas.

    J'ai essayé directement via la propriété des PictureBox de mettre les PictureBox en non-visible par défaut, mais ça ne change rien.

    Auriez-vous une solution à mon problème?

    Merci d'avance,

    JPR

    lundi 17 février 2014 21:55

Réponses

  • Bonjour,

    Je viens d'essayer et cela fonctionne.

    Démo :  https://mon-partage.fr/f/NrmAyXaf/

    (mini vidéo)

    Voici le code :

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
            Me.pic1.Image = Nothing
            Me.pic2.Image = Nothing
            Me.pic3.Image = Nothing
    
        End Sub
    
        Private Sub pic1_MouseEnter(sender As Object, e As System.EventArgs) Handles pic1.MouseEnter
            Me.pic1.Image = My.Resources.ligne
        End Sub
    
        Private Sub pic1_MouseLeave(sender As Object, e As System.EventArgs) Handles pic1.MouseLeave
            Me.pic1.Image = Nothing
        End Sub
    
       
        Private Sub pic2_MouseEnter(sender As Object, e As System.EventArgs) Handles pic2.MouseEnter
            Me.pic2.Image = My.Resources.ligne
        End Sub
    
        Private Sub pic2_MouseLeave(sender As Object, e As System.EventArgs) Handles pic2.MouseLeave
            Me.pic2.Image = Nothing
    
        End Sub
    
        Private Sub pic3_MouseEnter(sender As Object, e As System.EventArgs) Handles pic3.MouseEnter
            Me.pic3.Image = My.Resources.ligne
        End Sub
    
        Private Sub pic3_MouseLeave(sender As Object, e As System.EventArgs) Handles pic3.MouseLeave
            Me.pic3.Image = Nothing
        End Sub


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci


    • Modifié Paraglider mardi 18 février 2014 00:32
    • Marqué comme réponse Aurel Bera mardi 18 février 2014 11:41
    mardi 18 février 2014 00:25

Toutes les réponses