Slette objekt i array

Det kan lade sig gøre ved at opbygge knapperne dynamisk - men hvordan skal tilstedeværelse af de enkelte knapper styres?

Hvordan mener du, supertekst? :o.

Kan faktisk forklare det bedre.
2 listbokse og en masse knapper. Knapperne får deres left og top-attributes fra listboxene. I det man trykker på en bestemt knap, laves 10 knapper, med "koordinaterne" ud fra hvad der står i de to listbox'e.

Men personen kan senere vælge at fjerne et koordinat fra hver af listboxene, og når knappen trykkes igen, så fjernes én knap fra formen :O.

Giver det bedre mening nu?

(listbox1 indeholder top-"koordinatet", listbox2 indeholder left-"koordinatet")

Og knapperne SKAL være i array :/

Så opsummering:

2 listboxe, som indeholder tal. Tal som giver info om hvor knapperne skal stå.
1 "start"-knap som opretter 10 knapper i array.
10 knapper, som intet kan.

Brugeren skal kunne slette et par koordinater fra listboxen, og trykke igen på "start" knappen, som derefter lave 100 eller måske 3 knapper. Alt efter hvor mange koordinater der er i listboxene.

Med dynamisk mener jeg at de enkelte knapper oprettes via VBA-kode.

Jeg er oldschool koder, selvoplært ;) VBA-kode? Ja knapperne bliver oprettet on-the-fly.

i = 0
Do Until i = lstX.ListCount
   
    Load knap(i + 1)
    knap(i + 1).Left = lstX.List(i)
    knap(i + 1).Top = lstY.List(i)
    knap(i + 1).Visible = True

         
    i = i + 1
Loop


Sådan laves knapperne. Det er jo nemt nok. Men hvordan fjerner vi dem så igen? ;).

Hvad gemmer der sig mig Load knap?

Pt. lægger der kun knap(0) ... load knap(i+1), henter knap(1) frem .. :).

knap(0) er bare gemt - den har ingen betydning, den skal bare være starten på "kopierne".

Måske kan dette hjælpe:

Private Sub UserForm_activate()
    danKnapper
   
    Stop
   
    sletKnapper
End Sub
Private Sub danKnapper()
    bygKnap 10, 10, "Knap1", "cb_1"
    bygKnap 10, 50, "Knap2", "cb_2"
   
End Sub
Private Sub bygKnap(Xleft, Xtop, xCap, xName)
    Set cc = UserForm1.Controls.Add("Forms.commandbutton.1", Visible)
   
    With cc
        .Top = Xtop
        .Left = Xleft
        .Name = xName
        .Width = 60
        .Height = 18
        .Caption = xCap
    End With
End Sub
Private Sub sletKnapper()
    For Each cc In UserForm1.Controls
        If InStr(cc.Name, "cb_") = 1 Then
            Controls.Remove cc.Name
        End If
    Next
End Sub

Hvad skal der være på formen? :) Du har ændret dit navn på form1, til userform?

Er det VB du anvender? - mit eksempel er VBA

Siden jeg skriver under VB, så ja ;).

VBA kan nu også optræder her - men jeg stopper nu, da jeg ikke har VB.

:/ okay okay, din kode minder meget om VB; så kan prøve at gå udfra det. Behøver stadig hjælp hvis nogen er derude :).