VB6 Combobox

Question

Salut  mon dernier probl&#232;me avec mon Combobox...

Exite-il une fa&#231;on d'imposer un heuteur du Combobox

J'ai 10 items dans mon Combobox et j'aimerais qu'il n'y ait pas de barre de d&#233;filement.

J'aimerais lorsque jke clique sur le Combobox que je voit mes 10 items dans bouger la "maudite" barre de d&#233;filement...

merci d'avance...

cs_CanisLupus · Answer

Salut, d'abord, il est inutile de poster la m&#234;me question 4 fois de suite. J'ai supprim&#233; les doublons.
Ensuite, si tu veux voir 10 items dans une liste, utilise une listbox et pas une combo.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_JeffC1977 · Answer

Salut pour la r&#233;p&#233;tition de ma question.... Ca me sortais un message d'erreur et j'ai fais quelque test avant que ca fonctionne... Le probl&#232;me c'est que le site a eu un bug et ca me sortais un message d'erreur lorsque j'essayais de poster mon message... Et ca la fini par fonctionner... h&#233;h&#233;h&#233;h&#233;

bye

cs_JeffC1977 · Answer

Rebonjour...  

ok mais si je prend un listbox, ca prend trop de place dans mon prog.

la place que prend le combobox est parfait c'est juste que quand je clique dessus (Combobox) j'aimerais voir mes 10 &#233;l&#233;ments et donc ne pas utilkiser la barre de d&#233;filement..

J'attends de tes nouvelles si c'est possible..

merci d'avance

cs_CanisLupus · Answer

A ma connaissance, impossible d'afficher plus de 8 items d'une combo sans scrollbar verticale.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

salut,


tu peux modifier la largeur par SendMessage.


c'est supposable que la hauteur soit &#233;galement modifiable. je crois que RenField a post&#233; une source &#224; ce sujet, y'a plus qu'&#224;... 


++


PCPT   [AFCK]

cs_CanisLupus · Answer

Avec sendmessage ou pas, on peut changer la largeur d'une combo, par contre, sa hauteur est en lecture seule donc non modifiable &#224; moins d'utiliser une combo style =1 (simple combo) et l'effet ressemble &#224; une listbox.
J'ai vu des solutions &#224; base de simple combo toutes aussi capilo-tract&#233;es les unes que les autres et compliqu&#233;es &#224; mettre en place.
Pas vu la source de renfield, je vais la rechercher, peut-&#234;tre que je vais apprendre quelque chose.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

jpleroisse · Answer

Bonsoir,

Tu r&#232;gles la hauteur dans Form_Load (xHeight = ' &#224; toi de choisir suivant tes Items)



Option Explicit

Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _

                                                 
ByVal x As Long, ByVal y As Long, _

                                                 
ByVal nWidth As Long, ByVal nHeight As Long, _

                                                 
ByVal bRepaint As Long) As Long

Public Sub SetCtrlHeight(vCtrl As Control, vHeight As Long)



    Dim xForm As VB.Form, xCont As Object, XScaleMode As ScaleModeConstants



    'Trouve o&#249; est situ&#233; le contr&#244;le (Formulaire et Contenant)

    Set xForm = vCtrl.Parent

    Set xCont = vCtrl.Container

   

    'Enl&#232;ve le contr&#244;le de son contenant pour le mettre sur la form

    Set vCtrl.Container = xForm

   

    'Sauvegarde ScaleMode avant de le modifier

    XScaleMode = xForm.ScaleMode



    'Met ScaleMode du formulaire en Pixels car MoveWindow utilise les pixels

    xForm.ScaleMode = vbPixels



    'Redimentionne la fen&#234;tre du ComboBox

    MoveWindow vCtrl.hwnd, vCtrl.Left, vCtrl.Top, vCtrl.Width, vHeight, 1



    'Remet ScaleMode &#224; sa valeur initiale

    xForm.ScaleMode = XScaleMode

   

    'Remet le contr&#244;le dans son contenant initial

    Set vCtrl.Container = xCont

   

End Sub



Private Sub Form_Load()

 Dim xHeight As Long

    xHeight = 180 ' en pixel : affiche 12 lignes en Font MS sans Serif taille 8

    Call SetCtrlHeight(Combo1, xHeight)

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_CanisLupus · Answer

Ok, je viens de voir la source de renfield (pour info : http://www.vbfrance.com/codes/CB_SETDROPPEDWIDTH-OU-COMMENT-AGRANDIR-COMBOBOX_34790.aspx )

Effectivement, le nombre d'items affich&#233;s sans scrollbar est de 13 au lieu de 8 mais c'est en jouant sur la hauteur des items affich&#233;s, pas sur la hauteur de la combo. Mais bon, pour 10 items, je pense que &#231;a devrait convenir &#224; JeffC1977.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

VB6 Combobox

8 réponses

Discussions similaires