Ver Mensaje Individual
  #7 (permalink)  
Antiguo 08/09/2008, 15:37
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años, 1 mes
Puntos: 839
De acuerdo Respuesta: [Ayuda] Dibujar con el Mouse

El PSet es un método gráfico. Lo tiene el Form o algunos otros objetos, como los PictureBox.

Yo lo que te recomiendo para este caso es que no dibujes directamente en el Form sino que uses un PictureBox.

Fíjate en este sencillo ejemplo:
Código:
Private Sub Form_Load()
'Este código se va ejecutar al iniciar la ventana
Picture1.AutoRedraw = True 'Decimos al PictureBox que no pierda el contenido cuando salga de la vista
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Este código se va a ejecutar cuando presionamos un botón del mouse sobre el Picture
If Button = vbLeftButton Then 'Comprobamos que es el botón izquierdo
    Picture1.PSet (X, Y) 'Colocamos un punto
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Este código se va a ejecutar cuando movemos el mouse sobre el Picture
If Button = vbLeftButton Then 'Comprobamos que es el botón izquierdo
    Picture1.Line -(X, Y) 'Hacemos una línea a partir del punto actual
End If
End Sub
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.