| Pregunta: | 45588 - DIBUJAR LINEAS CON EL MOUSE EN UN PICTUREBOX |
| Autor: | Vyktor Cor |
| Disculpen; Espero me puedan ayudar!! Miren lo que pretendo hacer es dibujar formas tales como lineas y cuadrados en un picturebox por medio de los metodos LINE , etc.. entonces quiero que cuando le de click al picture box yo pueda almacenar la coordenada X y Y para que sea mi punto inicial de la linea que voy trazar y cuando suelte al booton, la cooordenada sea el punto final de la linea.... si me Explico??? Espero que me puedan ayudar y manden cualquier tipo de comentarioas queme puedan ser utilies.. o si tienen una mejor idea ... que tal las APIs de paint para el dibujo... ??? pero no las se usar .. me podrian ayudar?? De antemano les mandoo un cordial salludo y espero una respuesta... Grax por leer el mensaje... Salu2 a to2!! | |
| Respuesta: | Alfonso Salazar |
| \'vale esto ? Dim X0 As Single, Y0 As Single Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) X0 = X Y0 = Y End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Picture1.Line (X0, Y0)-(X, Y), 0 End Sub | |