Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Costruisci un quadrato - Grafica.frm

Grafica.frm

Caricato da: Roberto VB
Scarica il programma completo

  1. Private Sub Command1_Click()
  2. 'Linea orizzontale
  3. Line (1000, 1000)-Step(1000, 0)
  4. 'Linea verticale
  5. Line -Step(0, 1000)
  6. 'Linea verticale
  7. Line (1000, 1000)-Step(0, 1000)
  8. 'Linea orizzontale
  9. Line -Step(1000, 0)
  10. End Sub
  11.  
  12. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  13. 'Coordinate mouse
  14. Label1.Caption = X & "," & Y
  15. End Sub
  16.  
  17. Private Sub Form_Unload(Cancel As Integer)
  18. MsgBox "Creato da: Roberto VB 25/02/2007 - www.pierotofy.it"
  19. End Sub