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

• [HUN]Zolee őstag

  #290

  #289 Diskcopy

  2005-10-11 12:13:57

  Ú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

  #289 Diskcopy

  #289 Diskcopy

  hello!
  Lehet hülye kérdés, de Me.ClientSize.Width, Me.ClientSize.Height -et használsz ugye?
  Ollóztam egy kódot netről:
  Dim gr As Graphics = Me.CreateGraphics()
  Dim ellipse_brush As New HatchBrush( _
  HatchStyle.BackwardDiagonal, _
  Color.Blue, Me.BackColor)
  gr.FillEllipse(ellipse_brush, 0, 0, _
  Me.ClientSize.Width, Me.ClientSize.Height)
  Dim ellipse_pen As New Pen(Color.Red, 5)
  gr.DrawEllipse(ellipse_pen, 0, 0, _
  Me.ClientSize.Width, Me.ClientSize.Height)
  
  hasonlóképp csinálod? Mert VB6ban volt az, hogy nem pixel alapú a dolog, .netben áttértek a formnál+contoloknál is pixel alapra ha jólttudom.

  Nem így csináltam, mert amit te csináltál, az egy dinamikus rajzolás,, tehát a flipszis mérete függ a from nagyságától, ami nekem kéne, az meg hogy egy fix alagzat legyen az oldalon, tehát kb így :
  
  Dim gr As Graphics = Me.CreateGraphics()
  Dim ellipse_brush As New HatchBrush( _
  HatchStyle.BackwardDiagonal, _
  Color.Blue, Me.BackColor)
  Me.ClientSize.Width=200
  Me.ClientSize.Height=200
  gr.FillEllipse(ellipse_brush, 0, 0, _
  200, 200)
  Dim ellipse_pen As New Pen(Color.Red, 5)
  gr.DrawEllipse(ellipse_pen, 0, 0, _
  200, 200)
  
  
  És így se szélességre, se hosszúságra nem fér el (igaz én ezt tégalappal néztem meg, mert ott jobban llátszik a körvonal hiányából).
  

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