indexering af commandbutton "at runtime"

Hej xfox

Det lydder som om der er brug for en control collection :)

Her er et lille uddrag og eksempel fra MSDN :

Add Method (Controls Collection) Examples
Private Sub Form_Load()
  Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
  With Form1!cmdObj1
      .Visible = True
      .Width = 2000
      .Caption = "Dynamic Button"
  End With
End Sub

Note  The code example above uses ! as a syntax element. You can also use standard collection syntax such as Form1.Controls("cmdObj1") to reference the control.

This second example declares an object variable of type CommandButton using the WithEvents keyword, allowing you to program the events of the control. The object variable is set to the reference returned by the Add method. To try the example, paste the code into the Declarations section and run the project.

Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
  MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
  Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
  With btnObj
      .Visible = True
      .Width = 2000
      .Caption = "Hello"
      .Top = 1000
      .Left = 1000
  End With
End Sub

The third example adds an unreferenced control to the Controls collection. To program such a control's events, however, you must declare an object variable of type VBControlExtender, and set the reference returned by the method to the object. Then program the control's events using the ObjectEvent event.

Option Explicit
Dim ctlExtender As VBControlExtender

Private Sub Form_Load()
  Set ctlExtender = Controls.Add("Project1.UserControl1", "MyControl")
  With ctlExtender
      .Visible = True
      .Top = 1000
      .Left = 1000
  End With
End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)
  ' Program the events of the control using Select Case.
  Select Case Info.Name
  Case "UserName"
      ' Check User name value.
      MsgBox Info.EventParameters("UserName").Value
  ' Other cases now shown
  Case Else ' Unknown Event
      ' Handle unknown events here.
  End Select
End Sub

//Wilco

Det smartest du kan gøre er at lægge EN knap på din form! Lad os kalde denne for cmdKnap. Giv denne knap Index 0. Herefter kan der laves flere knapper ved at skrive i kode

Load cmdKnap(1)
Load cmdKnap(2)
Load cmdKnap(3)

Du kan selv vælge det nye indeks nummer hvis det vel og mærke ikke er optaget i forvejen hvilket vil resultere i en runtime fejl!

Når du så trykker på en knap vil cmdKnap_Click(Index as Integer) bliver fyret af hvor Index specificerer hvilken knap, der er trykket på!

//Nolle_K