[VB] Invul form loopen.

[Alpha_Mouse]

Ik ben bezig met het een programmatje voor het archive van cd's e.d.

Ik heb een invul form gemaakt.

met een dropdown menu. daar staat: "1,2,3,4,5,6,7,8,9"

Wil ik dat er een form opend met een loopje die het form netzo vaak aanroept (achter elkaar, dus niet te gelijk) dat ik opgeveef.

Ik had eerst een oplossing gemaakt met het volgende:

code:

Private Sub Option1_Click()
Lb_CD_1.Enable = True
Tx_CD_1.Enable = True
Lb_CD_2.Enable = True
Tx_CD_2.Enable = True
enz enz
End Sub

Dit is echter een beetje omslachtig. kan iemand me misschien helpen?

Ik heb verder gekeken op google maar daar vind ik alleen loopjes voor getallen. Ik werd er niet echt wijzer van...

[ Voor 5% gewijzigd door Alpha_Mouse op 22-11-2004 19:47 ]

[NMe]

Kun je in VB niet dynamisch nieuwe forms creëren? (In Delphi wel iig. )

[Alpha_Mouse]

NMe84 schreef op maandag 22 november 2004 @ 19:50:
Kun je in VB niet dynamisch nieuwe forms creëren? (In Delphi wel iig. )

Geen idee...

Ik zit op google te browsen maar ik begrijp der niets van... Ik zie allemaal wel loopjes maar ik kan het niet zo verbouwen dat ik er iets aan heb

[Haploid]

Ik snap 'm niet helemaal. Je wilt een formulier meerdere malen tegelijk openen, en je wilt dat van te voren invullen in die combobox? Maar dan snap ik je voorbeeld-code niet helemaal.

[Alpha_Mouse]

Ik wil een loop.

Dat stukje (code) voorbeeld is een manier hoe ik het in het begin had gedaan.

Het is echter niet zo slim om dit allemaal te gaan type als het ook automatisch kan.

De vraag is echter hoe ?!

[muba]

hmmm...

code:

dim newform as form
set newform = new Form1
newform.show

zoiets, IIRC

Mja, en daar doe je een for-lus omheen

[ Voor 18% gewijzigd door muba op 22-11-2004 20:46 ]

[Haploid]

Alpha_Mouse schreef op maandag 22 november 2004 @ 20:16:
Ik wil een loop.

Dat stukje (code) voorbeeld is een manier hoe ik het in het begin had gedaan.

Het is echter niet zo slim om dit allemaal te gaan type als het ook automatisch kan.

De vraag is echter hoe ?!

[...]
Meestal maak je loops met ofwel FOR of WHILE. Dus iets als:

code:

For n = 1 To 100
    Print n
Next n

While n < 100
    Print n
    n = n + 1
Wend

Maar sorry, dan snap ik nog niet wat je probeert te doen met het enablen van die tekstvakken en labels. Dat is toch geen loop.

[Alpha_Mouse]

Haploid schreef op maandag 22 november 2004 @ 20:55:
[...]

[...]
Meestal maak je loops met ofwel FOR of WHILE. Dus iets als:

code:

For n = 1 To 100
    Print n
Next n

While n < 100
    Print n
    n = n + 1
Wend

Maar sorry, dan snap ik nog niet wat je probeert te doen met het enablen van die tekstvakken en labels. Dat is toch geen loop.

Ik probeer een form te maken die dynamisch gegenereerd wordt. Dus D.m.v. een loop.

Ik snap het loop idee wel. Echter ik weet niet hoe ik het moet implementeren.

Alvast bedankt

[NMe]

Combineer dan de posts van MUBA en Haploid hierboven? Dat is waar ik op doelde met dynamisch nieuwe forms maken.

[Alpha_Mouse]

NMe84 schreef op maandag 22 november 2004 @ 22:46:
Combineer dan de posts van MUBA en Haploid hierboven? Dat is waar ik op doelde met dynamisch nieuwe forms maken.

hehe k ff kijken hoor

Ik ben echt noobisch hierin.

code:

dim newform as form
set newform = new Form1
newform.show

maakt dynamische een form aan. maar hoe werk ik dat in een loop

code:

For n = 1 To 10
dim newform as form
set newform = new Form1
newform.show
Print N
Next n

While n < 100
 Print n
n = n + 1
Wend

zo?

[Woudloper]

Kan je niet gewoon middels het 1^ste formulier een globale variabele vullen met de waarde uit de dropdown.

Vervolgens controleer je bij het sluiten van het andere form de waarde van deze variabele. Zolang deze nog niet op 0 staat, verlaag je de globale variabele en sluit je het scherm en toon je het weer. Zodra de waarde op 0 staat open je geen nieuw form meer...

[Alpha_Mouse]

Ja zou kunnen...

Maar ik zit hier echt al de hele avond mee te klooiten...

Wat ik dus een dropdown menu met het aantal maal dat het form zich moet herhalen.

Als ik dat heb ingevult, moet er dus een form gemaakt worden (nog geen idee hoe).

[Haploid]

Ja, die code zag er ongeveer goed uit. De WHILE loop is slechts een alternatief, die hoeft er niet bij als je de FOR loop al hebt. De DIM zou ik vooraan zetten. En je moet aangeven dat elke Form1 modeless moet worden getoond, anders stopt ie hier bij de Show() met het uitvoeren van de rest van de loop totdat je de Form1 hebt afgesloten.
Dus dan wordt 't:

code:

Dim newForm As Form
For n = 1 To 10
    Set newForm = New Form1
    newForm.Show vbModeless
Next n

Oh ja, en die 10 moet je vervangen door de waarde uit de ComboBox, dus dan wordt 't iets als:

code:

Dim newForm As Form
For n = 1 To CInt(ComboBox1.Text)
    Set newForm = New Form1
    newForm.Show vbModeless
Next n

[Alpha_Mouse]

Met hulp van hier en daar ben ik er uit gekomen,

code:

Dim newForm As FrmCD
For n = 1 To CInt(ComboBox.Text)
    Set newForm = New FrmCD
    newForm.Show vbModeless
Next n

Haploid en uiteraard de rest, bedankt!

[Alpha_Mouse]

Mmmm ik probeer er tabs van te maken i.p.v. nieuwe forms.

Heeft iemand hier een oplossing voor?

[Alpha_Mouse]

code:

Public aantal As Integer
Private Sub Form_Load()
For n = 1 To aantal
TabIndex !!!!
Next n
End Sub

Ik probeer tab te maken d.m.v. aantal in een loop te mikken.

Heb alleen geen idee hoe de tabs aangemaakt worden. Gebeurd dit met Tabindex?

[ Voor 0% gewijzigd door Alpha_Mouse op 23-11-2004 00:21 . Reden: Crap 3 browsers open :S en nog nooit gehoord van refresh! ]