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

• Diskcopy tag

  #291

  #290 [HUN]Zolee

  2005-10-11 13:57:28

  Ú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

  

  Diskcopy

  tag

  #290 [HUN]Zolee

  #290 [HUN]Zolee

  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).
  

  Elméletileg pedig így kéne, no de én abszolut nem vagyok Vb expert, sőt nem szeretem a vbt(nagyon nem ) de azért nézz körül itt, hátha: Bővebben: link ha nem sikerül, akkor majd valaki más kisegít

• Diskcopy tag

  #289

  #288 [HUN]Zolee

  2005-10-11 08:11:05

  Ú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

  

  Diskcopy

  tag

  #288 [HUN]Zolee

  #288 [HUN]Zolee

  rajzolás az megy. Csak az a baj, hogy a rajzoló utasításoknál megadott adatok, nem pixeleket jelölnek. pl. ha csinálsz egy 200x200 pixeles fromot és rá egy 200x200 es négyzetet, akkor a négyzet kilóg a formról és cska egy 191x191 es négyzet fér el benne.

  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.

• Diskcopy tag

  #287

  #286 [HUN]Zolee

  2005-10-10 19:20:40

  Ú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

  

  Diskcopy

  tag

  #286 [HUN]Zolee

  #286 [HUN]Zolee

  kösz működik
  
  És arra nemtudod hogyan lehet .Net ben pixel alapúvá tenni a rajzfelületet? Vagyis hogy pixelkben lehessen megadni a koordinátákat?

  Nincsmit.
  Nem igazán értem mire gondolsz.. Rajzolni akarsz a formra mondjuk?
  MSDNből kódrészlet:
  
  Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
  Dim formGraphics as System.Drawing.Graphics
  formGraphics = Me.CreateGraphics()
  formGraphics.DrawLine(myPen, 0, 0, 200, 200)
  myPen.Dispose()
  formGraphics.Dispose()
  

• Diskcopy tag

  #285

  #284 [HUN]Zolee

  2005-10-10 14:45:19

  Ú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

  

  Diskcopy

  tag

  #284 [HUN]Zolee

  #284 [HUN]Zolee

  senkinek semmi ötlete?

  System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.

• Diskcopy tag

  #282

  #281 [HUN]Zolee

  2005-10-07 18:19:59

  Ú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

  

  Diskcopy

  tag

  #281 [HUN]Zolee

  #281 [HUN]Zolee

  Valahogy negyon nem akar összejönni ez nekem pedig úgy csináltam mindent ahogy ott le van írva

  Na de errort kapsz, vagy csak simán nem tölt el időt?
  esetleg ha call-t is tennél elé? bár nem hiszem.
  
  Private Declare Sub Sleep Lib ''kernel32'' (ByVal dwMilliseconds As Long)
  
  Sub Command1_Click()
  Call Sleep(1000)
  End Sub

• Diskcopy tag

  #280

  #279 [HUN]Zolee

  2005-10-06 13:59:52

  Ú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

  

  Diskcopy

  tag

  #279 [HUN]Zolee

  #279 [HUN]Zolee

  Hy. Lécci ha tudsz keress meg majdvagy msn-en vagy küldj egy példaprogit a sleep parancs használatára, mert valahogy nem akar menni
  
  msn en csak este leszek.

  Hello!
  Bővebben: link itt elég jól kivesézik. Amúgy nem értem miért nem megy neked, semmi extra nincs benne.

• Diskcopy tag

  #278

  #277 [HUN]Zolee

  2005-10-06 09:40:39

  Ú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

  

  Diskcopy

  tag

  #277 [HUN]Zolee

  #277 [HUN]Zolee

  sajna egyik se hozott eredényt

  pedig úgy kell..
  

   Private Declare Sub Sleep Lib ''kernel32'' 
  (ByVal dwMilliseconds As Long)
  aztán meg  Sleep 1000 

  mondjuk...
  
  
  [Szerkesztve]

• Diskcopy tag

  #204

  #203 [HUN]Zolee

  2005-05-01 20:11:29

  Ú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

  

  Diskcopy

  tag

  #203 [HUN]Zolee

  #203 [HUN]Zolee

  8 kötőjelet fűz hozzá a füzér végéhez és levág a füzért 8 karakter husszúra. Azért kell a 8 kötöjel, hogy biztos 8 karakternél hosszabb legyen.
  
  Egy kérdés
  
  Fáljt akarok visszaolvastatni, de a bevitt elemeket egyszerre 1 sorba adja vissza, és nem csoprtonként. A könyvben azt találtam hogy input(lof(1),#1). Mit takar a LOF ? És hogy lehet betitt sorrendben egymás után kiolvasni úgy hogy ne 1 karakterláncnak vegye az egész szöveget?
  
  [Szerkesztve]

  LOF: [/L]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctlof.asp[/L]
  
  másik esetleg így? Bővebben: link

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