Transparence textbox et picturebox

Soyez le premier à donner votre avis sur cette source.

Vue 10 569 fois - Téléchargée 1 519 fois

Description

Mettre en transparence une TextBox et une PictureBox et les déplacer en drag and drop.Code très simple, tout est dans les couleurs données à la TextBox et à la PictureBox. une petite description est faite dans la TextBox.Ajout du code en VBA

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
7382
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 mai 2021
122
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.
Messages postés
7382
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 mai 2021
122
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
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
Messages postés
7382
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 mai 2021
122
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
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
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.