[VB] Command Button at runtime

[Verwijderd]

code:

'Zorg dat er een command button array is.
'Doe dit b.v. door een button te plaatsen
'en deze button te kopieëren, antwoord ja als
'er een array moet komen.
'en haal de laatste button weer weg waarvan 
'b.v. name=Command1(1)"

Private Sub Command1_Click(Index As Integer)
    Static I As Integer
    I = I + 1
    Load Command1(I)
    Command1(I).Left = Command1(I - 1).Left + 200
    Command1(I).Top = Command1(I - 1).Top + 600
    Command1(I).Caption = "New Button !"
    Command1(I).Visible = True
End Sub
'At runtime this will create a new
'command button.
'To add additional function you could ad
'     d
'an IF statement. As follows...


Private Sub Command1_Click(Index As Integer)
    On Error Goto Handler1
    'Create new button
    Static I As Integer
    I = I + 1
    Load Command(I)
    Command(I).Left = 2460
    Command(I).Top = 5520
    Command(I).Caption = "For Real This Time" ' change the caption
    Command(I).Visible = True
    ' Code to unload the form when the new b
    '     utton is clicked


    If Command(1) Then
      Unload Me
    End If
    Handler1:
End Sub

[mbravenboer]

Heel leuk, maar wat is je vraag of probleem? Dit lijkt verdacht veel op een kopie van een huiswerk-opgave en een mogelijke uitwerking. Post even wat meer info of geef aan waar je mee zit, anders moet de zaak op slot ....

[Mr. B.]

Zet 'm eerst eens tussen code tags...

* Mr. B. B. vertikt het om un-indented code te lezen

[mbravenboer]

Mr. B.: Zet 'm eerst eens tussen code tags...

Goed idee .

[Gerco]

Ik denk dat 'ie probeert een stukje code te plaatsen waarvan wij zullen zeggen: "Wow, bravo, dat hadden we zelf niet gekund!"

Op de 1 of andere manier denk ik niet dat 'ie een vraag heeft.

mbravenboer, je mag weer een slotje plaatsen op een nutteloos topic

[farlane]

Is volgens mij een antwoord op deze:

[topic=388389/1/200]

[Verwijderd]

Op donderdag 24 januari 2002 10:17 schreef Gerco het volgende:
Ik denk dat 'ie probeert een stukje code te plaatsen waarvan wij zullen zeggen: "Wow, bravo, dat hadden we zelf niet gekund!"

Op de 1 of andere manier denk ik niet dat 'ie een vraag heeft.

mbravenboer, je mag weer een slotje plaatsen op een nutteloos topic

Ik vind het sowieso bagger code... Control Arrays

[farlane]

Ik vind het sowieso bagger code...

Kalm aan...die meneer probeert te helpen met een stukkie code waar om gevraagd is.

[Crazy D]

Op donderdag 24 januari 2002 12:04 schreef hvdberg het volgende:
Ik vind het sowieso bagger code... Control Arrays

Kun je dat ook onderbouwen? Waarom vind je een control array bagger?

[Woudloper]

Als de topicstarter dit zo'n handig iets vond en dat wij er wat aan moesten hebben.....

Dan had hij het beter hier kunnen posten:

[topic=342475/1/25]

[farlane]

Zie een van mijn vorige opmerkingen waar ik aangaf waar volgens mij deze code voor was bedoeld.

[Verwijderd]

Op donderdag 24 januari 2002 12:44 schreef Crazy_D het volgende:

[..]

Kun je dat ook onderbouwen? Waarom vind je een control array bagger?

Ja hoor dat wil ik wel proberen, met de nadruk op proberen. Control Arrays zijn er imho alleen om meerdere controls aan hetzelfde event te koppelen wat ik sowieso al vreemd vindt (bij Control Arrays dan). In VB.Net is dit opgelost door een Sender mee te geven aan het Event (hoera voor M$ dat ze toch iets van Borland hebben geleerd), no flame intended.

Bovendien is het op de manier (control arrays) moeilijker controleerbaar hoe veel controls er nu daadwerkelijk zijn.

Ik ben Delphi/BCB-manier gewend en dan komt een control array heel slordig over. Immers wie beheerd de resources van de controls binnen een control array; het 1e control binnen de array of de parent van het 1e control van het control array. Met andere woorden, een control array geeft mij geen feeling control.

En zoals ik al zei: ik vind dit bagger code. Wat een ander er van vind is zijn mening. Maar sowieso heb ik het andere topic waar deze code had moeten staan niet gelezen en misschien dus iets te voorbarig gereageerd. Bovendien heb ik de hele code niet gelezen (die misschien best goed is) maar ik vind meer het gebruik van control arrays bagger. Soms laat VB<=6 echter geen andere keuze, dat besef ik wel maar daarom vindt ik het nog steeds een bagger methode.

[Verwijderd]

Ja sorry hij had inderdaat onder een andere topic gehoord, maar ik heb blijkbaar op new topic geklikt en niet op post reply. Deze code werd door een ander gevraagt en ik heb hem niet zelf gemaakt. Ziet er ook niet charmant uit maar dient ook alleen als een voorbeeld.