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

• [HUN]Zolee őstag

  #735

  #734 Polyák

  2006-12-21 16:01:46

  Új Válasz

  Ú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

  

  [HUN]Zolee

  őstag

  #734 Polyák

  #734 Polyák

  Hali!
  
  Van egy gondom!
  Ha rajzolok PictureBox-ba, nem folyamatosan húzza a vonalat hanem pöttyöket rajzol. Főleg ha gyorsan rajzolok. Ennek biztos hogy így kell működni? Vagy valamit már megint nem értek?
  
  A formon csak egy PictureBox van, a neve kep
  
  Private Sub Form_Load()
  kep.DrawWidth = 5 'vonalvastagság
  End Sub
  
  Private Sub kep_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
  kep.PSet (X, Y)
  End If
  End Sub
  
  Hogy tudom ezt megoldani?
  
  Előre is köszi!

  Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
  VB7 be kb így néz ki :
  e = egér esemény
  korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
  
  Dim p As New Point(e.X, e.Y)
  
  pont = p
  korok()
  
  ReDim Preserve korivp1(elemszam)
  
  korivp1(elemszam) = p
  elemszam += 1
  g.DrawArc(pens.Red,
  
  volt = True
  If elemszam >= 2 Then
  g.DrawLines(Pens.Red, korivp1)
  End If
  

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