Pregunta para DAM. Tu respuesta funciono perfectamente; como los ubico de a diez en la misma fila
En forma vertical funciono perfectamente.
Como ubico 9 textbox en la misma fila con un espacio entre ellos de 10 pixeles y como colocarles color de fondo claro
1 Respuesta
Respuesta de Dante Amor
1
Esta es para textbox en horizontal, con espacio de 10 entre ellos y con fondo de color azul claro.
Private Sub CommandButton1_Click()
'Agrega textbox
'por.Dam
Sig = 10 'lugar de inicio del primer textbox a crear
n = 9 'número de textbox, cambia este dato por el contador que tiene la cantidad de nombres
For i = 1 To n
Set tb = UserForm1.Controls.Add("Forms.TextBox.1")
tb.Left = sig 'pone el textbox a sig pixeles del margen izquierdo del form
tb.Top = 10 'pone el textbox a 10 pixeles del margen superior del form
tb.Width = 70 'ancho del textbox
tb.Height = 20 'alto del textbox
nombre = tb.Name 'el nombre del textbox, si no tienes texbox, empieza en el 1
sig = sig + 80 'incrementa en 30 la variable sig para poner el siguiente textbox
tb.BackColor = &H80000013 'azul claro
Next
'si los textbox no caben en el form, se rquiere una barra e indicar la altura del form
UserForm1.ScrollBars = 1 'barra horizontal de desplazamiento
'UserForm1.ScrollHeight = sig 'altura del userform
UserForm1.ScrollWidth = sig 'altura del userform
End Sub Saludos.Dam
Si es lo que necesitas.
