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

• #735 [HUN]Zolee őstag Polyák #734

  Új Válasz 2006-12-21 16:01:46 #735

  Ú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

  

  [HUN]Zolee

  őstag

  válasz Polyák #734 üzenetére

  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