CommandButtons erzeugen

[MSuter]

Ich habe mit dem nachfolgenden Quelltext einen Commandbutton erzeugt, das geht wunderbar, aber wie kann ich diesem Button eine Indexnummer zuweisen??


Private Sub command1_Click()
Set cmdNewButton = Me.Controls.Add("VB.CommandButton", "cmdNewButton", Me)
cmdNewButton.Width = 1800
cmdNewButton.Height = 340
cmdNewButton.Caption = "&Show Message"
cmdNewButton.Top = 300
cmdNewButton.Left = 300
cmdNewButton.Visible = True
End Sub


Gruss MSuter
Und danke im voraus

 

[ambient]

vielleicht so?:
cmdNewButton.index = cmdNewButton.UBound + 1

 

[MSuter]

:-(

Nein, geht leider nicht, aber trotzdem danke dass dus versucht hast!

 

[Schnitz]

Es ist nicht möglich, die Index Property zu setzen. Also nicht zur Laufzeit.
Das ist eine read-only property...
Warum erzeugst du eigentlich einen neuen Button? Zu was?

 

[MSuter]

Naja, ich lese aus einer SQL Tabelle die Einträge aus und gebe sie in einem MSFlexGrid wieder aus, dann will ich vor jeder Zeiel einen Button, da ich nicht immer die gleiche Anzahl Zeilen habe, muss ich sie während der laufzeit erzeugen. Diese sollten dann alle den gleichen Namen haben (mit verschiedenen Indexen) damit ich eine Funktion für die Buttons schreiben kann.

 

[ambient]

mach doch ein steuerelementfeld:

also, du machst das indem du ein commandbutton mit index=0 erstellst

dann kannst du so weitere buttons erstellen:

Dim i As Integer
i = Command1.UBound
Load Command1(i + 1)
Command1(i + 1).Top = Command1(i).Top + Command1(i).Height + 120
Command1(i + 1).Left = Command1(i).Left
Command1(i + 1).Visible = True

 

[MSuter]

Vielen dank

Vielen dank, dass ist genau dass, wonach ich gesucht habe

Gruss Marco