Mostrar Mensajes
primero en diseño, creamos un groupbox con 4 labels en su interior, uno con el text arriba, otro con abajo, otro con izquierda y otro con derecha. estos labels moveran el cuadrado hacia el lado correspondiente, peor no lo dejaran en una posicion fija, es decir, al clickear arriba no iran siempre a una posicion "y" sino que iran mas arriba de la posicion "y" actual.... jdoer que mal me explico, estos es desesperante xD... bueno, en el codigo lo explico mas detalladamente
--------------------------------------------
Codigo[/u]
bien ahora tenemos por un lado un panel al que podemos cambiar el color y por otro cuatro botones, ahora tenemos que configurar dichos botonees para que cambein la posicion del panel.
tal y como lo hemso hecho con los colores, haremso doble lick en el label con el text arriba para acceder a su codigo con el evento Label1_Click
la propiedad que establece la y maxima del panel es la propiedad Panel1.Top
para mover hacia arriba o hacia abajo, tenemso que modificar entonces el valor de esta propiedad, asi que debajo del evento escribimos "Panel1.Top ="
el valor que le asignaremos a este objeto tenemso que elegirlo nosotros. para ello pasar a la pantalla de diseño (shift + F/) y seleccionar el panel. en la pantalla de propiedades podemos ver la propiedad location. acemos doble click y nos saldran dos numeros x e y. apuntamos el numero y en un bloc de notas. ahora desplazamos el panel un poco hacia arriba, con cuidado de no moverlo horizontalmente. volvemso a mirar su y y lo apuntamos de nuevo.
lo siguiente sera restar el segundo valor de y al primero y obtendremos un valor (que llamaremsoa partir de ahora y' que obligatoriamente sera negativo. nos apuntamso este numero, ponemos de nuevo el panel en el valor de y que tenia al principio y pasamos a la pantalla de codigo (F7)
ahora, al lado de le asignamso el siguiente valor a la propiedad Top
Panel1.Top = Panel1.Top + *
(* es igual al numero obtenido anteriormente, con lo cual en realidad nos tendria que dar una resta al ser este numero negativo.
este valro de la propiedad lo que ara es bajar el valor actual de y haciendo asi que el panrel suba con respecto a su posicion anterior
hacemos el mismo procedimiento con el label abajo, solo que esta vez cogemos el opuesto de y', o sea, un numero positivo (|y'|
para moverlo hacia la izquierda o hacia la derecha, solo tenemos que modificar el valor de la propiedad .Left del objeto de la misma manera que hemso modificado el valor de la propiedad .Top y sustituyendo todos los valores y por los valores de x
Código:
Private Sub ComboBox1_Selected()
If ComboBox1.SelectedItem = "D:\" Then
TreeView1.Nodes.Add("D:\")
End If
End Sub
Private Sub Arriba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Arriba.Click
Panel1.Top = Panel1.Top - 45
End Sub
Private Sub Abajo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abajo.Click
Panel1.Top = Panel1.Top + 45
End Sub
Private Sub Izquierda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Izquierda.Click
Panel1.Left = Panel1.left - 90
End Sub
Private Sub Derecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Derecha.Click
Panel1.Left = Panel.Left + 90
End Sub
-----------------------------------------------------
el proximo finde si recuerdo como se hacia pongo uan cosilla de un termometro que nos da temperaturas en ºCelsius y Farenheit
P.D: ya se me explico bastante mal, si alguien no me ha entendido algo que lo postee
un saludo
