Calendario:
Ejemplo de creación de controles en tiempo de ejecución.
El formulario inicial Fmain es este:
Las propiedades Arrangement tiene el valor "Vertical", para que los controles se ordenen ocupando todo el formulario horizontalmente (hemos puesto 2 paneles), uno para elegir el mes (con botones y un datebox) y otro para presentar los dias del mes.
Presentación de los dias del mes:
El Panel (llamado Panel1),es donde se van a presentar los dias del mes.
Va a alojar los HBOX y dentro de ellos los TextLabel:
Panel: Panel1, donde se alojan los HBox y los textbox |
En el punto 2) podemos ver que la organización de los elementos dentro del panel va ha ser "Vertical" (propiedad Arrangement)
En el punto 3) podemos ver que la propiedad Expand, esta como Verdadero (True)
Mediante código, vamos a añadir al panel, 7 controles HBox y a cada Hbox, otros 7 textbox para los dias:
ControlTemporal=New Control(ContenedorTemporal)
El código que hace esto, es el siguiente:
Public Sub CrearControlesCalendario()
'construir controles...
Dim a As Integer, b As Integer
Dim hboxtmp As HBox
Dim TextLabeltmp As TextLabel
Dim contador As Integer = 0
'creo hbox (filas de la semana)
For a = 0 To 5
'por cada hboxtmp, creo 7 casillas para los dias
If a = 0 Then
hboxtmp = New HBox(Panel1)
hboxtmp.Expand = True
For b = 0 To 6
TextLabeltmp = New TextLabel(hboxtmp)
TextLabeltmp.Border = Border.Plain
TextLabeltmp.h = 20
textlabeltmp.expand = True
TextLabeltmp.Background = Color.blue
TextLabeltmp.Foreground = Color.White
TextLabeltmp.Text = DiaSemana[b]
TextLabeltmp.Alignment = Align.Center
Next
Endif
hboxtmp = New HBox(Panel1)
hboxtmp.Expand = True
For b = 0 To 6
TextLabeltmp = New TextLabel(hboxtmp) As "DiaCalendario"
TextLabeltmp.Border = Border.Plain
TextLabeltmp.AutoResize = True
textlabeltmp.expand = True
TextLabeltmp.Background = Color.gray
TextlabelDia.Add(TextLabeltmp, Str$(contador))
contador += 1
Next
Next
End
Como veis en la linea:
TextLabeltmp = New TextLabel(hboxtmp) As "DiaCalendario"
Public Sub DiaCalendario_DblClick()
Message.Info(Last.text)
End
En el ejemplo, se muestra el contenido del ultimo control donde se recibio el evento _dblclick.
Enlace del código fuente: alojado en code google
No hay comentarios:
Publicar un comentario