Saludos.
' gambas class file
Private pnl1 As Panel
Private pnl2 As Panel
Private lbl1 As Label
Private tgb1 As ToggleButton
Private sep1 As Separator
Private bto1 As ButtonBox
Private cko1 As CheckBox
Private cmo1 As ComboBox
Private dto1 As DateBox
Private lso1 As ListBox
Private mko1 As MaskBox
Private mio1 As MovieBox
Private txo1 As TextBox
Private vao1 As ValueBox
Public Sub _new(objControl As Object, strText As String, strType As String, intNum As Integer)
pnl1 = New Panel(objControl)
With pnl1
.X = 8
.y = intNum * 40
.Width = 200
.Height = 48
.Name = "pnl" & Str(intNum)
.AutoResize = True
.Arrangement = 2
End With
lbl1 = New Label(pnl1)
With lbl1
.Text = strText
.Width = 200
.Height = 24
End With
Select strType
Case "ButtonBox"
bto1 = New ButtonBox(pnl1) As "GButtonBox"
With bto1
.Width = 200
.Height = 24
.Name = "bto" & Str(intNum)
.Background = &H98FB98
End With
Case "CheckBox"
pnl2 = New Panel(pnl1)
With pnl2
.X = 0
.y = 0
.Width = 200
.Height = 24
.Name = "pnl" & Str(intNum)
.AutoResize = True
.Arrangement = 1
.Spacing = True
End With
txo1 = New TextBox(pnl2) As "GTextBox"
With txo1
.Width = 100
.Height = 24
.Name = "txo" & Str(intNum)
.ReadOnly = True
.Background = &HFFDC89
End With
cko1 = New CheckBox(pnl2) As "GCheckBox"
With cko1
.Width = 14
.Height = 14
.Name = "cko" & Str(intNum)
End With
Case "ToggleButton"
pnl2 = New Panel(pnl1)
With pnl2
.X = 0
.y = 0
.Width = 200
.Height = 24
.AutoResize = True
.Arrangement = 1
.Spacing = True
End With
txo1 = New TextBox(pnl2) As "GTextBox"
With txo1
.Width = 100
.Height = 24
.Name = "txo" & Str(intNum)
.ReadOnly = True
.Background = &HFFDC89
'&H898CFF
'&HFF89B5
'&HFFDC89
End With
tgb1 = New ToggleButton(pnl2) As "GToggleButton"
With tgb1
.Width = 24
.Height = 24
.Name = "tgb" & Str(intNum)
.Tag = "tgb" & Str(intNum)
End With
Case "ComboBox"
cmo1 = New ComboBox(pnl1) As "GComboBox"
With cmo1
.Width = 200
.Height = 24
.Name = "cmo" & Str(intNum)
.Background = &H98FB98
End With
Case "DateBox"
dto1 = New DateBox(pnl1) As "GDateBox"
With dto1
.Width = 200
.Height = 24
.Name = "dto" & Str(intNum)
'.Background = &H90D4F7
.Background = &H98FB98
End With
Case "MaskBox"
mko1 = New MaskBox(pnl1) As "GMaskBox"
With mko1
.Width = 200
.Height = 24
.Background = &HCEE7FF
End With
Case "TextBox"
txo1 = New TextBox(pnl1) As "GTextBox"
With txo1
.Width = 200
.Height = 24
.Name = "txo" & Str(intNum)
.Background = &HCEE7FF
End With
Case "ValueBox"
vao1 = New ValueBox(pnl1) As "GValueBox"
With vao1
.Width = 200
.Height = 24
.Name = "vao" & Str(intNum)
.Background = &HCEE7FF
End With
End Select
End
Public Sub GToggleButton_Click()
' Este ToggleButton trabaja en cionjunto con un TextBox en donde se escribe el texto para verdadero y para falso
' Por ejemplo "yes/no" "si/no" "x/ ", "Vrificado/Pendiente", o inclusive "True/False" y permite guardar todo en texto plano
' En lugar de boolean. Personalmente prefiero el texto plano, sobretodo a la hora de hacer informes.
Dim LastToggleButton As ToggleButton
Dim PartnerControl As Control
Dim PartnerTextBox As TextBox
Dim intMilestone As Integer
LastToggleButton = Last
intMilestone = Val(Mid(LastToggleButton.Name, 4, String.Len(LastToggleButton.Name) - 3))
Print LastToggleButton.Name & ": " & Str(LastToggleButton.Value)
Print LastToggleButton.Parent.Name
For Each PartnerControl In LastToggleButton.Parent.Children
If PartnerControl.Name = "txo" & Str(intMilestone) Then
PartnerTextBox = PartnerControl
Print PartnerTextBox.Text
Endif
Next
If LastToggleButton.Value = True Then
LastToggleButton.Picture = Picture.Load("ok.png")
PartnerTextBox.Text = "YES"
Else
LastToggleButton.Picture = Null 'Picture("/22/cancel")
PartnerTextBox.Text = "NO"
Endif
End
Private pnl1 As Panel
Private pnl2 As Panel
Private lbl1 As Label
Private tgb1 As ToggleButton
Private sep1 As Separator
Private bto1 As ButtonBox
Private cko1 As CheckBox
Private cmo1 As ComboBox
Private dto1 As DateBox
Private lso1 As ListBox
Private mko1 As MaskBox
Private mio1 As MovieBox
Private txo1 As TextBox
Private vao1 As ValueBox
Public Sub _new(objControl As Object, strText As String, strType As String, intNum As Integer)
pnl1 = New Panel(objControl)
With pnl1
.X = 8
.y = intNum * 40
.Width = 200
.Height = 48
.Name = "pnl" & Str(intNum)
.AutoResize = True
.Arrangement = 2
End With
lbl1 = New Label(pnl1)
With lbl1
.Text = strText
.Width = 200
.Height = 24
End With
Select strType
Case "ButtonBox"
bto1 = New ButtonBox(pnl1) As "GButtonBox"
With bto1
.Width = 200
.Height = 24
.Name = "bto" & Str(intNum)
.Background = &H98FB98
End With
Case "CheckBox"
pnl2 = New Panel(pnl1)
With pnl2
.X = 0
.y = 0
.Width = 200
.Height = 24
.Name = "pnl" & Str(intNum)
.AutoResize = True
.Arrangement = 1
.Spacing = True
End With
txo1 = New TextBox(pnl2) As "GTextBox"
With txo1
.Width = 100
.Height = 24
.Name = "txo" & Str(intNum)
.ReadOnly = True
.Background = &HFFDC89
End With
cko1 = New CheckBox(pnl2) As "GCheckBox"
With cko1
.Width = 14
.Height = 14
.Name = "cko" & Str(intNum)
End With
Case "ToggleButton"
pnl2 = New Panel(pnl1)
With pnl2
.X = 0
.y = 0
.Width = 200
.Height = 24
.AutoResize = True
.Arrangement = 1
.Spacing = True
End With
txo1 = New TextBox(pnl2) As "GTextBox"
With txo1
.Width = 100
.Height = 24
.Name = "txo" & Str(intNum)
.ReadOnly = True
.Background = &HFFDC89
'&H898CFF
'&HFF89B5
'&HFFDC89
End With
tgb1 = New ToggleButton(pnl2) As "GToggleButton"
With tgb1
.Width = 24
.Height = 24
.Name = "tgb" & Str(intNum)
.Tag = "tgb" & Str(intNum)
End With
Case "ComboBox"
cmo1 = New ComboBox(pnl1) As "GComboBox"
With cmo1
.Width = 200
.Height = 24
.Name = "cmo" & Str(intNum)
.Background = &H98FB98
End With
Case "DateBox"
dto1 = New DateBox(pnl1) As "GDateBox"
With dto1
.Width = 200
.Height = 24
.Name = "dto" & Str(intNum)
'.Background = &H90D4F7
.Background = &H98FB98
End With
Case "MaskBox"
mko1 = New MaskBox(pnl1) As "GMaskBox"
With mko1
.Width = 200
.Height = 24
.Background = &HCEE7FF
End With
Case "TextBox"
txo1 = New TextBox(pnl1) As "GTextBox"
With txo1
.Width = 200
.Height = 24
.Name = "txo" & Str(intNum)
.Background = &HCEE7FF
End With
Case "ValueBox"
vao1 = New ValueBox(pnl1) As "GValueBox"
With vao1
.Width = 200
.Height = 24
.Name = "vao" & Str(intNum)
.Background = &HCEE7FF
End With
End Select
End
Public Sub GToggleButton_Click()
' Este ToggleButton trabaja en cionjunto con un TextBox en donde se escribe el texto para verdadero y para falso
' Por ejemplo "yes/no" "si/no" "x/ ", "Vrificado/Pendiente", o inclusive "True/False" y permite guardar todo en texto plano
' En lugar de boolean. Personalmente prefiero el texto plano, sobretodo a la hora de hacer informes.
Dim LastToggleButton As ToggleButton
Dim PartnerControl As Control
Dim PartnerTextBox As TextBox
Dim intMilestone As Integer
LastToggleButton = Last
intMilestone = Val(Mid(LastToggleButton.Name, 4, String.Len(LastToggleButton.Name) - 3))
Print LastToggleButton.Name & ": " & Str(LastToggleButton.Value)
Print LastToggleButton.Parent.Name
For Each PartnerControl In LastToggleButton.Parent.Children
If PartnerControl.Name = "txo" & Str(intMilestone) Then
PartnerTextBox = PartnerControl
Print PartnerTextBox.Text
Endif
Next
If LastToggleButton.Value = True Then
LastToggleButton.Picture = Picture.Load("ok.png")
PartnerTextBox.Text = "YES"
Else
LastToggleButton.Picture = Null 'Picture("/22/cancel")
PartnerTextBox.Text = "NO"
Endif
End
Tagbox.class.tar.gz | ||
Descripción: | clase y una imagen .png usada para el buttonbox | Descargar |
Nombre del archivo: | Tagbox.class.tar.gz | |
Tamaño: | 1.78 KB | |
Descargado: | 22 veces |
Tagbox.class.tar.gz | ||
Descripción: | clase y una imagen .png usada para el buttonbox | Descargar |
Nombre del archivo: | Tagbox.class.tar.gz | |
Tamaño: | 1.78 KB | |
Descargado: | 22 veces |
Tagbox.class.tar.gz | ||
Descripción: | clase y una imagen .png usada para el buttonbox | Descargar |
Nombre del archivo: | Tagbox.class.tar.gz | |
Tamaño: | 1.78 KB | |
Descargado: | 22 veces |