Keskustelu: Ohjelmointikysymykset: VB6: Rivivälin koon muuttaminen

Onkohan VB:ssä mahdollista muuttaa rivivälin kokoa? Esimerkkikoodissa kahden rivin väliin jää aukko, joka
täytyisi saada pois.
Tässä siis koodi kaikessa yksinkertaisuudessaan. =D

Private Sub Form_Load()
Label1.Caption = "aaaaaaaaaaaaaaaaaaaaaaaa bbbbbbbbbbbbbbbbbbb"
End Sub

Jos oikein ymmärsin niin laita tällä tavoin

Private Sub Form_Load()
  Label1.Caption = "aaaaaaaaaaaaaaaaaaaaaaaa" & vbCrLf & "bbbbbbbbbbbbbbbbbbb"
End Sub

En ihan tuota ajanut takaa, mutta hyvä tietää tuokin. Eli kyse on kahden päällekkäisen tekstirivin välin suuruudesta. (Englanniksi Leading - muistaakseni)
Tarkoituksena olisi saada mahdollisimman paljon tekstiä ängettyä pieneen tilaan.

Et normaalilla Laabelilla mitenkään. Voit pienentää fonttia. Myös voit tehdä oman fontin ja sitä pistää pictureboxiin pikseli pikseliltä, mutta se on aika vaikeaa.

No taitaa mennä liian hankalaksi, eli pitänee kehitellä jotain muuta..

Oikeastaan ainoa "helppo" tapa mitä voisi käyttää, olisi piirtää esim. PictureBoxin Paint eventissä tekstiä siten, että muutat jokaisen piirretyn rivin jälkeen CurrentY-arvoa hitusen ylöspäin.

API:lla tekstin piirtäminen olisi sitten jo monipuolisempaa, mutta myös vaikeammin hallittavaa. En ulkoa muista, onko rivikorkeudelle minkäänlaista säätöä.

Merrin vinkkiä soveltaen sain ongelman ratkaistua.

Const VÄLI = 5 'Mitä suurempi luku, sen pienempi väli

Private Sub Command1_Click()

If Picture1.CurrentY > 0 Then Picture1.CurrentY = Picture1.CurrentY - VÄLI

  Picture1.Print ("aaaaaaaaaaaaaaa bbbbbbbbbb")
End Sub