Scrollbar ajouté a 1 controle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 485 fois - Téléchargée 42 fois

Commenter

Contenu du snippet

petit bout de code utile pour créer une scrollbar pour un textbox, richtextbox, lisbox...
Bizarrement ne fonctionne pas pour les forms.
Pour tester le code, il faut un textbox multiligne

Source / Exemple : 


Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const ctHorizontal = 0
Private Const ctVertical = 1
Private Const ctLesDeux = 3
Private Sub Form_Load()
    ShowScrollBar text1.hwnd, ctLesDeux, True
End Sub

A voir également

Ajouter un commentaire Commentaires
t3t3
6 oct. 2012 à 21:33
bonjour,
Petite astuce:
-mettre les scrollbars dans la textbox lors de la conception
puis dans l'évenement Form_load:
ShowScrollBar text1.hwnd, ctLesDeux, false (les effacer)
Et les remettre lorsque l'on en a besoin.
testé sous windows 7 ca marche!
cs_Titant Messages postés 103 Date d'inscription mardi 2 juillet 2002 Statut Membre Dernière intervention 21 juillet 2008
27 avril 2004 à 02:57
ben chez moi il vas a la ligne arriver au bout :/
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
25 avril 2004 à 10:50
les 2 fonctionnent chez moi... tu as testé avec quel control ?
cs_Titant Messages postés 103 Date d'inscription mardi 2 juillet 2002 Statut Membre Dernière intervention 21 juillet 2008
24 avril 2004 à 14:24
Ya ke la barre vertical qui fonctionne !!!!!!
pk pas la barre horizontal ?
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
17 déc. 2002 à 10:33
c bizarre, je suis pourtant sur de l'avoir fait fonctionner sur une form.
Faudra que je verifie le code exacte pour la form. En attendant j'ai modifier la source pour ne pas tromper un eventuel interessé
S'inscrire maintenant

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.

Du même auteur (BasicInstinct)