Soyez le premier à donner votre avis sur cette source.
Vue 8 767 fois - Téléchargée 660 fois
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const LB_SETHORIZONTALEXTENT = &H194 Private Sub BarreDeDéfilement(lstBox As ListBox) Dim i As Integer Dim Largeur As Long Largeur = 0 'Parcourt la liste, mesure la largeur des éléments et conserve la taille la plus large For i = 0 To lstBox.ListCount - 1 If TextWidth(lstBox.List(i)) > Largeur Then Largeur = TextWidth(lstBox.List(i)) Next i 'Affiche une barre de défilement horizontale SendMessage lstBox.hwnd, LB_SETHORIZONTALEXTENT, Largeur + 5, 0 End Sub
16 févr. 2010 à 15:13
Je n'ai pas réussi à mettre en place l'autre code et celui ci du premier coup...
7 févr. 2008 à 13:10
la longueur de la scrollbar horizontal n'est pas correct quand on a fait avant un sendmessage, pour mettre des tabs dans la listbox. qq'un a un solution.
ce que j'essaye de faire c'est de simmuler un grid control, en utilisant les controls "lite" (standard) de vb6, pour creer un executable sans installation, parce que j'ai toujours des problemes d'installation entre machine et certain ocx ne passe pas bien, et si on n'est adminstrateur d'un poste alors ca ne marche pas.
merci
henri
29 janv. 2007 à 16:55
4 ans après, ça fait toujours plaisir.
29 janv. 2007 à 10:07
PS : pour les autres programmes équivalents, ils étaient tout aussi parfait :) . Mais que voulez-vous, il faut choisir. Donc bravo à vous tous !
11 oct. 2005 à 17:17
Merci, car moi aussi ça m'a bien été utile...
10
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.