Objekte über Array ansprechen

[flodder]

Hallo zusammen

Ich arbeite gerade an einem Info-Terminal, der frei konfigurierbar ist. Unter anderem soll auch die Anzahl der Buttons (Reihen und Spalten) frei festlegbar sein.
Gibt es eine Möglichkeit, die Buttons in der Form zu erstellen, die Namen in ein Array zu packen und sie dann über das Array anzusprechen? Es wäre sehr aufwändig, für jede Kombination aus Reihen- und Spaltenanzahl ein Modul zu schreiben.

Das Beispiel funktioniert zwar nicht, soll aber mein Vorhaben etwas verdeutlichen:
gambas code

DIM schalter AS object[]
schalter[0]="button01"
schalter[0].Text="Start"

Gefunden habe ich hier bislang noch nichts brauchbares.

[vuott]

Hello,

sie müssen den "Button" erstellen und dann die Variable dieses "Button" in ein Array vom Typ "Button[ ]" oder vom Typ "Object[ ]" einfügen.

[flodder]

Hast du dafür vielleicht auch einen kleinen Beispielcode?

[vuott]

Dies soll nur ein einfaches und kurzes Beispiel sein:
gambas code

Private bbtt As Button[]


Public Sub Form_Open()

  Dim bt As Button
  Dim b As Byte

' Erstellen Sie das Array "Button":
  bbtt = New Button[]

' Zyklus, um die "Button" zu erstellen:
  For b = 1 To 10
    With bt = New Button(Me) As "Buttons"   '  Erstellen Sie einen "Button"
      .X = 60 * b
      .Y = 100
      .W = 50
      .H = 30
      .Name = "Button" & CStr(b)
      .Text = "Button" & CStr(b)
    End With
' Fügt diesen "button" in das Array ein:
    bbtt.Push(bt)
  Next

End

[gambasso]

moin,

da bin ich auch dran interessiert.
Meine Frage dazu: wie Frage ich einen solchen Button ab?

Mit 'Public Sub Button1_CLick()' klappt es bei mir nicht, ebenso nicht mit 'bbtt1_CLick()' oder 'bt1_CLick()'!

[gambasso]

Über

Code: Alles auswählen

Public Sub Action_Activate(sKey As String) As Boolean

habe ich es ausgewertet bekommen. Ist umständlich, aber geht.

[vuott]

Meine Frage dazu: wie Frage ich einen solchen Button ab?

Mit 'Public Sub Button1_CLick()' klappt es bei mir nicht, ebenso nicht mit 'bbtt1_CLick()' oder 'bt1_CLick()'!

Hello gambasso,

...schau dir meinen Code an......vor allem die Teil:
gambas code

... As "Buttons"

In diesem Teil wird der "Button" einer Ereignisgruppe zugewiesen.
Die erstellten "Button" werden der gleichen Ereignisgruppe zugeordnet.
Die Event-Gruppe hier heißt "Buttons".
Jeder "Button" gehört zu dieser Ereignisgruppe und wird das gleiche Event in Unter-Routine auslösen.

Lassen Sie uns diese Sub-Routine hinzufügen.
gambas code

Public Sub Buttons_Click()   ' ...Buttons = Event-Gruppe !
  
  With Last
    Print .Name
    Print .Text
  End With
  
End

Das Array von "Button[]" hat also im Wesentlichen keine direkten Auswirkungen auf die Ereignisse.

[gambasso]

@ vuott: es klappt gut damit. So kannte ich es bisher nicht.

[vuott]

...besser spät als nie.