GUSRDAR EN UN TEXT MULTILAIN VARIOS CHECK
TENGO UNA LISTA DE PRODUCTOS:
1 ARROZ
2 FRIJOL
3 AZUCAR
Y QUIERO QUE SE GUARDE ESTO:
ARROZ, FRIJOL, AZUCAR
PORFAVOR SI ALGUIEN SABE
1 ARROZ
2 FRIJOL
3 AZUCAR
Y QUIERO QUE SE GUARDE ESTO:
ARROZ, FRIJOL, AZUCAR
PORFAVOR SI ALGUIEN SABE
Hola,
los check deberán ser un array de controles.
Para este ejemplo, necesitas un textbox multiline, un commandbutton y los checkbox que quieras pero que estén en un array de controles:
Private Sub Command1_Click()
Dim i As Integer
Text1.Text = ""
For i = Check1.LBound To Check1.UBound
If Check1(i).Value Then
Text1.Text = Text1.Text & Check1(i).Caption & ", "
End If
Next i
End Sub
salu2
sdemingo
Foro: boards.melodysoft.com/sdemingo
los check deberán ser un array de controles.
Para este ejemplo, necesitas un textbox multiline, un commandbutton y los checkbox que quieras pero que estén en un array de controles:
Private Sub Command1_Click()
Dim i As Integer
Text1.Text = ""
For i = Check1.LBound To Check1.UBound
If Check1(i).Value Then
Text1.Text = Text1.Text & Check1(i).Caption & ", "
End If
Next i
End Sub
salu2
sdemingo
Foro: boards.melodysoft.com/sdemingo
