Brenda
23 de Septiembre del 2003

HOLA
Alguien sabe como se inserta un label desde codigo?
y como el la sintaxis para asignar el valor de una variable a el left de la label por ejemplo como le expreso a vb que quiero hacer esto?
label.top+valor
Gracias!!

sdemingo
23 de Septiembre del 2003

Hola Brenda,
Para tu segunda pregunta es algo así:
label.Top = label.Top + valor

Para tu primera pregunta, lo miraré y te lo digo.

un saludo
sdemingo

sdemingo
23 de Septiembre del 2003

Creo, pero solo creo, que es imposible crear controles en tiempo de ejcución.
Puedes crearte el Label en diseño y ocultarlo visible = false y cuando lo necesites, lo haces visible y lo pnes donde quieras con el tamaño y el texto que quieras. Es lo que yo haría.

Un saludo
sdemingo

Juan
23 de Septiembre del 2003

Puedes crear nuevos controles si tienes un array.
te pongo un ejemplo. Primero inserta un control Label
llamado Label1 y asigna 0 a su propiedad index para
crear el array. Inserta también un CommandButton
llamado cmdNuevo y pon este código:

Private Sub cmdNuevo_Click()
Load Label1(Label1.Count)
With Label1(Label1.Count - 1)
.Caption = "Label1(" & .Index & ") cargado"
.Top = Label1(.Index - 1).Top + Label1(.Index - 1).Height
.Visible = True
End With
End Sub


Tambien es posible crear nuevos controles y ventanas
sin necesidad de crear un array de controles en tiempo
de diseño, pero necesitas usar funciones de la API de Windows.

rafa
23 de Septiembre del 2003

Hola Brenda.
Yo en mi proyecto tengo que añadir label y option para cada uno de los operadores existentes en una tabla, que pueden aumentar y disminuir.
Lo hago:
cargo en un recordset os operadores y luego recorro el recordset y agrego el option y la label con el siguiente codigo:
While Not .EOF
If i <> 0 Then
Load optOPerador(i)
Load lblOperador(i)
End If
optOPerador(i).Caption = Trim(!COD_USUARIO)
lblOperador(i).FontSize = lblOperador(i).FontSize - 2
lblOperador(i).FontItalic = True
lblOperador(i).ForeColor = vbRed
lblOperador(i).Caption = Trim(!nombre) & " " & Left(Trim(!apellido1), 1) & "."
.MoveNext
i = i + 1
Wend
En el diseño tengo creado un optoperador(0) y un lblOperador(0) con visible a False.
Espero que te sirva