ayuda por favor

24/02/2007 - 18:59 por daniel | Informe spam
hola a todos y muchas gracias por toda la ayuda dada en este foro

queria que en un userform con 6 label (label1,label2,...label6) y 6
textbox (textbox1,textbox2,...textbox6)

cuando pinche en cualquier parte del userform se ponga en esta el label1
y luego en el textbox1 me de la altura y en el textbox2 el ancho de donde se
encuentra el label1
luego hago click en otro punto del userform y me haga lo mismo lo unico
cambiando los datos al textbox3 y al textbox4.




un saludo y muchas gracias a todos
 

Leer las respuestas

#1 Héctor Miguel
25/02/2007 - 02:11 | Informe spam
hola, daniel !

queria que en un userform con 6 label (label1,label2,...label6) y 6 textbox (textbox1,textbox2,...textbox6)
cuando pinche en cualquier parte del userform se ponga en esta el label1
y luego en el textbox1 me de la altura y en el textbox2 el ancho de donde se encuentra el label1
luego hago click en otro punto del userform y me haga lo mismo lo unico cambiando los datos al textbox3 y al textbox4.



tu consulta ha dejado algunos detalles 'en el tintero' :D [p.e.]
1) para la informacion de donde se ha 'movido' el Label1, ya se necesitan DOS textboxes [y solo tienes seis] -???-
2) como 'decirle' al codigo que cuando pinches en cualquier lado del userform se debe 'mover' el Label1... o el Label2... o el ??????
3) [seguramente] necesitaras de algun 'truco' [o alguna variable] para que 'en algun momento' NO SE MUEVA el control Label_X :))

[en via de mientras] con el siguiente codigo... y un formulario con SOLO UN label y 2 textboxes... [haz algunas pruebas y]...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

== en el modulo de codigo del formulario =Dim Arriba As Single, Izquierda As Single
Private Sub UserForm_Click()
Label1.Top = Arriba
Label1.Left = Izquierda
TextBox1 = Arriba
TextBox2 = Izquierda
End Sub
Private Sub UserForm_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Arriba = Y
Izquierda = X
End Sub

Preguntas similares