title image


Smiley Re: Mit Maus zeichen?
hiaus der MSDN unter MouseMove:Dim PaintNow As Boolean' Variable deklarieren.Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)PaintNow = True' Pinsel einschalten.End SubPrivate Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)PaintNow = False' Grafische Ausgaben ausschalten.End SubPrivate Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)If PaintNow ThenPSet (X, Y)' Einen Punkt zeichnen.End IfEnd SubPrivate Sub Form_Load ()DrawWidth = 10' Breiteren Pinsel verwenden.ForeColor = RGB(0, 0, 255)' Ausgabefarbe setzen.End Subis praktisch wie Paint!Probiers mal aus...ciaoMike

Gruße
Mike


Hier gehts zu meiner Homepage mikeshomepage.de

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: