Új hozzászólás Aktív témák

• #737 Polyák tag

  Új Válasz 2006-12-23 12:52:04 #737

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Polyák

  tag

  Megvan a megoldás!
  
  Forrkód:
  
  Option Explicit
  
  Dim fMouseDown_X As Single
  Dim fMouseDown_Y As Single
  Dim bMOUSE_DOWN As Boolean
  
  Private Sub Form_Load()
  
  Me.ScaleMode = vbPixels
  Me.BackColor = vbBlack
  
  End Sub
  
  Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.PSet (X, Y)
  bMOUSE_DOWN = True
  fMouseDown_X = X
  fMouseDown_Y = Y
  End Sub
  
  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If bMOUSE_DOWN Then
  Dim oldDW As Long
  Dim oldFC As Long
  oldDW = Me.DrawWidth
  oldFC = Me.ForeColor
  Me.DrawWidth = 3
  Me.ForeColor = vbRed
  Me.Line (fMouseDown_X, fMouseDown_Y)-(X, Y)
  fMouseDown_X = X
  fMouseDown_Y = Y
  Me.DrawWidth = oldDW
  Me.ForeColor = oldFC
  End If
  End Sub
  
  Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  bMOUSE_DOWN = False
  End Sub
  
  Ez a formra rajzol, de PictureBox-ra is lehet vele. Egy üres form-ba illeszd be.
  
  Tök jó! Nem pöttyöz!!
  
  [Szerkesztve]

Új hozzászólás Aktív témák