TRANSPARENCE TEXTBOX ET PICTUREBOX

Signaler
Messages postés
129
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2009
-
cs_Le Pivert
Messages postés
6481
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49500-transparence-textbox-et-picturebox

cs_Le Pivert
Messages postés
6481
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
91
Une autre méthode:
Private Sub TextBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
If TextBox1.BackColor = Color.White Then
Me.Cursor = Cursors.Hand
TextBox1.Capture = True
End If
End Sub
Lorsque l'on positionne la souris sur le texte, la flèche se transforme en main et vous pouvez à ce moment déplacer le Form. Fonctionne très bien sur des ARPlans foncés, mais c'est plus difficile sur le blanc.
cs_Le Pivert
Messages postés
6481
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
91
Bonjour ALAMOA,
Dans le même genre il y a aussi cela:
Private Sub TextBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
TextBox1.BackColor = Color.Gainsboro
End Sub
Private Sub TextBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseLeave
TextBox1.BackColor = Color.White
TextBox1.ForeColor = Color.Red
End Sub
Il suffit d'attendre 1 seconde que cela s'opacifie, tu déplaces et ensuite quand tu enlèves la souris cela devient transparent( ce n'est pas très lumineux comme solution)
@+ Le Pivert
alamoa
Messages postés
7
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
26 juin 2009

Bonjour,
j'ai un debut de solution peut etre : au moins pour se mettre en saisie dans la text-box sans cliquer dedans juste en survolant le texte :
ajouter cela :

Private Sub TextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover
TextBox1.Focus()
My.Computer.Keyboard.SendKeys("{RIGHT}")
End Sub

cela positionne le curseur a la suite du texte et il n'y a plus qu'a ecrire
mais il doit y avoir une autre solution
je cherche
A plus
cs_Le Pivert
Messages postés
6481
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
91
Bonjour ALAMOA
Merci pour le commentaire et la note. C'est vrai les parties transparentes de la TextBox ne sont pas sélectionnables. Pour l'instant à défaut de code adapté, il faut se mettre sur le texte et attendre que la barre de saisie clignote pour pouvoir déplacer le Form, ce n'est pas la meilleure méthode.
@+ Le Pivert
alamoa
Messages postés
7
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
26 juin 2009

Oups j'ai oublié de noter : c'est pas sympa d'autant que ca merite au moins 8/10
Salut