A ver si este te vale, es un poquito largo pero son dos tonterías.
Código:
' Gambas class file
Private contenedorpadre As Panel
Private mensaje As String
Private temporizador As Timer
Private cuenta As Integer
Private sehahechoclick As Boolean
Public Sub Form_Open()
Dim unboton As Button
temporizador = New Timer As "tempus"
mensaje = "Ejemplo con contendores"
With Me
.Arrangement = Arrange.Horizontal
.AutoResize = True
.Spacing = True
.Margin = True
.Title = mensaje
End With
contenedorpadre = New Panel(Me)
With contenedorpadre
.Arrangement = Arrange.Horizontal
.Expand = True
.Width = 360
.Height = 40
End With
For n As Integer = 0 To 2
unboton = New Button(contenedorpadre) As "Manipulador"
With unboton
'.Width = contenedorpadre.Width / 3 - 50
'.Height = contenedorpadre.Height
.Expand = True
.Text = "Botón " & Str(n)
.Tag = Str(n)
End With
Next
End
Public Sub Manipulador_Click()
If Not sehahechoclick Then
Me.Title = "Ha hecho click en el botón " & Last.tag
With temporizador
.Delay = 1000
.Start()
End With
sehahechoclick = True
Endif
End
Public Sub tempus_Timer()
cuenta += 1
If cuenta = 2 Then
Me.Title = mensaje
cuenta = 0
sehahechoclick = False
temporizador.Stop
Endif
End
Intenta usar nombres sencillos, no te compliques. Sobre todo para los ejemplos
Y ahora te dejo una pregunta.
Si el formulario cambia su tamaño automáticamente para ajustarse al del panel..."Y",
desactivamos la propiedad expand de los botones y usamos tamaños de ancho y alto para estos.
¿ Cómo hacemos para que se ajuste el panel al tamaño de sus hijos botones ?.
Que a su vez, el formulario principal debe también ajustarse.
Saludos