creating a control

Post

Posted
Rating:
#1 (In Topic #385)
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
I can create a series of button controls with:-

Code

  for i = 0 to 5
    With hBtn = New Button(Me) As "BtnTest"
      .X = 10 * i
      .Y = 10
      .W = 10
      .H = 10
      .Name = "Btn" & i
      .text = "+"
    End With
  next

How can I access or change the properties of a particular button?
This is the only way I have at the moment:-

Code

Dim hControl As Control
  For Each hControl In Me.Controls
    If hControl.Name = "Btn5" Then hControl.Hide
  Next

Any advice would be welcome
Online now: No Back to the top

Post

Posted
Rating:
#2
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Hi Bill,

Try this code (Note I use the 'gb' button on the Forum not the '</>' button to get Gambas code formatting)

Code (gambas)

  1. hBtn As Button
  2. hButtons As New Button[]
  3.  
  4. Public Sub Form_Open()
  5.  
  7.   Dim Label1 As Label
  8.  
  9.   With Label1 = New Label(Me)
  10.     .Height = 28
  11.     .Width = 200
  12.     .Text = "Click a button"
  14.  
  15.  For i = 0 To 5
  16.     With hBtn = New Button(Me) As "BtnTest"
  17.       .X = 50 * i
  18.       .Y = 40
  19.       .W = 50
  20.       .H = 50
  21.       .Name = "Btn" & i
  22.       .text = "+"
  23.     End With
  24.     hButtons.Add(hBtn)
  26.  
  28.  
  29. Public Sub BtnTest_Click()
  30.  
  31. hButtons[0].Text = "H"
  32. hButtons[1].Text = "E"
  33. hButtons[2].Text = "L"
  34. hButtons[3].Text = "L"
  35. hButtons[4].Text = "O"
  36. hButtons[5].Text = "!"
  37.  
  39.  
Online now: No Back to the top

Post

Posted
Rating:
#3
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
 That's brilliant!  Thanks Cogier
Online now: No Back to the top
1 guest and 0 members have just viewed this.