Transparence textbox et picturebox

Soyez le premier à donner votre avis sur cette source.

Vue 10 352 fois - Téléchargée 1 436 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

cs_Le Pivert
Messages postés
6491
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 janvier 2020
92
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
6491
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 janvier 2020
92
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
6491
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 janvier 2020
92
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

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.