Keskustelu: Ohjelmointikysymykset: VB6: LisBoxin korkeus, VB5

Tämä nyt vaan on vähän hassu juttu. Tarkoitus oli saada ListBoxin korkeus asettumaan rivien määrän mukaisesti. Kokeilemalla totesin rivikorkeuden olevan 18 pikseliä. Korkeus piti kuitenkin asettaa kertoimella rivien määrä +1 (ListCount + 1). Jos rivien määrä ylitti 10, pitikin käyttää kerrointa ListCount + 2. Miksi ihmeessä ??

Sinulla on ilmeisesti IntegralHeight päällä. Oletko muistanut myös ottaa huomioon reunuksen? Lisäksi, voit päätellä korkeuden käyttämällä TextHeightiä.

Option Explicit

Private Sub Command1_Click()
    List1.AddItem List1.ListCount
    List1.ListIndex = List1.NewIndex
    List1.Height = Me.ScaleY(4, vbPixels, Me.ScaleMode) + Me.TextHeight("|") * List1.ListCount
End Sub

Luonnollisesti formilla täytyy olla sama fontti kuin listboxissa.

Kiitos, tuo IntegralHeight selittää asian täysin. Moista ominaisuutta en edes tuntenut.