Combining Event Handlers

Post

Posted
Rating:
#1 (In Topic #734)
sadams54
Avatar
Enthusiast
sadams54 is in the usergroup ‘Enthusiast’
 Sorry to be asking so much however I am wondering if there is a way to make several controls all fire the same handler.

For example, I have 3 buttons named…  btnDoSomething1  btnDoAnything1   btnDoSomething2

I want them all to fire the event  btnDoSomething1_click   rather than each have it's own click event.
Online now: No Back to the top

Post

Posted
Rating:
#2
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’

sadams54 said

Sorry to be asking so much however I am wondering if there is a way to make several controls all fire the same handler.

For example, I have 3 buttons named…  btnDoSomething1  btnDoAnything1   btnDoSomething2

I want them all to fire the event  btnDoSomething1_click   rather than each have it's own click event.

Sure just set the Group

If they all have the Group "MyButts"
then MyButts_Click will be useable.

(the IDE will auto-goto event handler on double clicking if a group is set.)
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Run this code in a Graphical Program. Hopefully it will help you.

Code (gambas)

  1. hButton As Button
  2. Label1 As Label
  3.  
  4. Public Sub AllButtons_Click()
  5.  
  6.   Label1.Text = Last.Name
  7.  
  9.  
  10. Public Sub Form_Open()
  11.  
  12.   ''All this is to add components to the Form
  13.   Dim sButtonNames As String[] = ["btnDoSomething1", "btnDoAnything1", "btnDoSomething2"]
  14.   Dim iLoop As Integer
  15.  
  16.   With Me
  17.     .Height = 215
  18.     .Width = 215
  19.     .Padding = 5
  20.     .Arrangement = Arrange.None
  21.     .Center
  23.  
  24.   For iLoop = 0 To 2
  25.     With hButton = New Button(Me) As "AllButtons"
  26.       .Y = iLoop * 50
  27.       .X = 20
  28.       .W = 175
  29.       .H = 28
  30.       .Name = sButtonNames[iLoop]
  31.       .Text = sButtonNames[iLoop]
  32.     End With
  33.   Next
  34.  
  35.   With Label1 = New Label(Me) As "Label1"
  36.     .Y = iLoop * 50
  37.     .X = 20
  38.     .W = 175
  39.     .H = 28
  40.     .Alignment = Align.Center
  41.     .Font.Bold = True
  42.     .Border = Border.Plain
  44.  
  46.  
  47.  
Online now: No Back to the top
1 guest and 0 members have just viewed this.