Keskustelu: Ohjelmointikysymykset: VB6: SSTab

Dodih.. mulla on lievä ongelma, kun luon uusia tabbeja sstab kontrolliin se onnistuu mutta kun yritän laittaa sinne komponentteja, siis ajon aikana laittaa vb vain yhden kontrollin ja sen jälkeen homma ei enää tee muuta kuin vain uusia tabbeja. Osaisiko joku muu ongelman kanssa paininut auttaa.

Private Sub o_Click(Index As Integer)

    Static uusn As Integer

    tappi.Tabs = tappi.Tabs + 1

    uusn = o.UBound + 1

    Load o(uusn)

    o(uusn).Visible = True

    Set o(uusn).Container = Me

    tappi.Tab = (tappi.Tabs - 1)

    Set o(uusn).Container = tappi

    tappi.TabCaption(tappi.Tabs - 1) = "Uus akkuna"

End Sub

jossa tappi on sstab ja o on commandbutton sstabin ekassa tabissa.

Ihan helppo kun debugailee =) Miksi noin paljon tyhjiä välejä? No, asiaan. Mä tekisin näin:

Private Sub Lisää_Click()

    Tappi.Tabs = Tappi.Tabs + 1
    n = Boxi.UBound + 1
    Load Boxi(n)
    Boxi(n).Visible = True
    Boxi(n).Left = Boxi(n - 1).Left
    Set Boxi(n).Container = Me
    Tappi.Tab = Tappi.Tabs - 1
    Set Boxi(n).Container = Tappi

End Sub

Tappi on sstab, boxi sstabin ekassa tabissa oleva textboxi, indeksoitu nollaksi. Jostain syystä seuraavan loadattavan boxin left-arvo menee jonneki -74880 (:D Älä kysy miksi) joten setataan sen left-arvo edellisen boxin leftiksi.