anoniem Geplaatst: 9 december 2002 Delen Geplaatst: 9 december 2002 Ik ben bezig met het maken van een dienstenregistratiepakket in Visual Basic. Mijn probleem is als volgt: Elke bewoner gebruikt één of meerdere diensten. Een dienst kan onderverdeeld zijn in één of meerdere subdiensten. Om alles overzichtelijk te houden, maak ik daarom voor alle diensten een tabblad (SSTab), waarin ik per subdienst per weekdag een textbox plaats voor de invoer. Stel je voor dat er twee subdiensten zijn, dan staan er op het tabblad twee kolommen met daarin elk 7 textboxen voor de weekdagen. Dit moet echter dynamisch! Oftewel het programma leest uit een database welke diensten en subdiensten er zijn en maakt aan de hand daarvan tabbladen en de kolommen. Het plaatsen van kolommen op een ander tabblad dan tabblad 1 lukt mij echter niet, alles komt op tabblad 1! Ik heb op de form een SSTab getekend met 1 tabblad en daarop 1 textbox, genaamd txtPC(0). Dit is mijn code: [code:1:512b071beb] Dim intPC(1 To 2) As Integer Dim myIndex As Integer intPC(1) = 1 intPC(2) = 4 SSTab1.Visible = False SSTab1.Tabs = 2 For i = LBound(intPC) To UBound(intPC) SSTab1.Tab = i - 1 For j = 1 To 7 myIndex = (intPC(i) - 1) * 7 + j Load txtPC(myIndex) txtPC(myIndex).Move i * 1000, j * 500, 500, 100 txtPC(myIndex).Visible = True Next Next txtPC(0).Visible = False SSTab1.Visible = True [/code:1:512b071beb] Ik heb even de databasekoppeling verwijderd en intPC(1) en intPC(2) handmatig een waarde gegeven. Wat ik ook doe, alle textboxen worden op tabblad 1 gezet. Heeft iemand een idee? Groeten Ruben Quote Link naar reactie
anoniem Geplaatst: 9 december 2002 Auteur Delen Geplaatst: 9 december 2002 Mijn code is correct; het lijkt een bug te zijn. Als ik een knop teken en daar alle code inzet (in plaats van in het Form_Load event), dan werkt het prima. Sorry voor deze topic :oops: Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen