begin process at 2012 02 09 02:03:19
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > LISTBOX AVEC BARRE HORIZONTALE

LISTBOX AVEC BARRE HORIZONTALE


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Classé sous :barre, horizontale, listbox Niveau :Débutant Date de création :26/05/2001 Vu :5 271

Auteur : acoi

Ecrire un message privé
Site perso
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Peu de code pour ajouter une HScrollbarre

Source

  • Dans un .Bas mettre :
  • Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
  • Dans votre code ou ailleur dans le projet :
  • Public Sub AddBarreHoriz(ByRef CtrlLstBox As Object, ByVal FormParent As Object, ByVal Large As Integer)
  • 'Ajoute une barre horizontale à un contrôle
  • 'Indiquer à Large : 0 => Annule la barre horizontale
  • ' >0 => Nb Caractères maxi de large
  • Const NUL = &O0
  • Const LB_SETHORIZONTALEXTENT = &H400 + 21
  • Dim ListHwnd As Long, Scl As Integer, Réponse As Long
  • On Error Resume Next
  • Select Case Large
  • Case Is > 0: Large = (Large / 15) * 110
  • Case Else: Large = 1
  • End Select
  • Scl = FormParent.ScaleMode
  • FormParent.ScaleMode = 3
  • 'Récupère le focus du control (ListBox) & refresh
  • 'CtrlLstBox.SetFocus
  • ListHwnd = CtrlLstBox.hwnd
  • 'Ajoute la barre horizontale
  • Réponse = SendMessage(ListHwnd, LB_SETHORIZONTALEXTENT, Large, NUL)
  • FormParent.ScaleMode = Scl
  • End Sub
Dans un .Bas mettre :
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Dans votre code ou ailleur dans le projet :
Public Sub AddBarreHoriz(ByRef CtrlLstBox As Object, ByVal FormParent As Object, ByVal Large As Integer)
'Ajoute une barre horizontale à un contrôle
'Indiquer à Large  : 0     => Annule la barre horizontale
'                    >0    => Nb Caractères maxi de large
Const NUL = &O0
Const LB_SETHORIZONTALEXTENT = &H400 + 21
Dim ListHwnd As Long, Scl As Integer, Réponse As Long

On Error Resume Next
Select Case Large
Case Is > 0:   Large = (Large / 15) * 110
Case Else:   Large = 1
End Select
Scl = FormParent.ScaleMode
FormParent.ScaleMode = 3
'Récupère le focus du control (ListBox) & refresh
'CtrlLstBox.SetFocus
ListHwnd = CtrlLstBox.hwnd
'Ajoute la barre horizontale
Réponse = SendMessage(ListHwnd, LB_SETHORIZONTALEXTENT, Large, NUL)
FormParent.ScaleMode = Scl
End Sub
 

 Conclusion

Une Form avec une Listbox et appeler la Sub décrite ci-dessus.


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture PLANCHE CONTACT SOUS WORD par Le Pivert
Source avec Zip Source .NET (Dotnet) L'ÉVÉNEMENT SCROLL D'UNE LISTBOX DANS VB.NET par 310
Source avec Zip Source avec une capture Source .NET (Dotnet) SHELLVIEW EN VB.NET par Le Pivert
Source avec Zip Source avec une capture GESTIONNAIRE ASSISTANT PROJET VBP BAS par Galactus13
Source avec une capture AJOUTER UNE SCROLLBAR HORIZONTALE A UNE LISTBOX par Neo.balastik

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Abaisser la barre de défilement lors d'ajouts dans une listbox [ par myarouvb ] Bonjour,Quelqu'un saurait il comment faire pour que la barre de défilement d'une listbox s'abaisse automatiquement à la suite d'ajouts dans Listbox+scrollbox horizontale [ par jrmm10738 ] Bonjour,je voudrais insérer une schrollbar horizontal sur ma listbox, située sur un userform, car la moitié de mes éléments sont trop long. J'ai bien [VB.NET 2003] mettre une listbox dans la barre d'outils [ par elodierousseau ] J'aimerai ajouter une listbox dans ma barre d'outils qui est en dessous du menu. je sais qu'on peut ajouter dez boutons mais je ne trouve pas le truc ScrollBar Horizontale avec listbox [ par dedebatou ] Bonjour, je cherche à avoir une scrollBar horizontale dans une listbox pour pouvoir visualiser l'intégralité de chaines de caractères qui sont trop lo barre de défilement [ par Fleur54 ] fleur54Bonjour,j'ai créé un petit programme permettant de calculer une fonction f(x). Cette fonction est définie par rapport à une valeur u et une va listbox [ par jnbrunet ] Je me suis fais un petit chat pour mes cours d'info à l'école avec winsock. Les messages reçu vont s'afficher dans une listbox. Un seul Générer un menu dans la barre des tache automatique selon une listbox... [ par XBOX116_4ever ] Je travaille sur un programme qui doit permettre d'ajouter des entrés dans un menu dnas la barre des tâches. Voilà, je stocke des URL dans une listbox supprimer plusieurs lignes dans une listbox [ par anto37_44 ] Bonjour à tousJe solicite votre pour resoudre un petit problème: J'aimerais pouvoir supprimer plusieurs lignes d'un seul coup dans une listbox.J'arr vb+listbox [ par sirine_28_06_85 ] bonjour tout le monde j'ai une zone de texte ainsi q'une liste des noms je veux une code qui me permet que lorsque je tappe une lettre dans la zone de Pb ListBox et Module inexistant [ par nagstef ] Bonjour !! Je rentre dans une phase d'incompréhension de fou ... Sur mon PC, le soft que j'ai fait marche nickel. Apres avoir empaqueté le projet, a


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,671 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales