Hirdetés
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- DeFranco: Tanuljunk angolul játékosan! - Duolingo
- Viber: ingyen telefonálás a mobilodon
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél
- sziku69: Fűzzük össze a szavakat :)
- Real Racing 3 - Freemium csoda
- MasterDeeJay: Harc a DDR5 árak ellen
- sziku69: Szólánc.
Új hozzászólás Aktív témák
-
Diskcopy
tag
válasz
[HUN]Zolee
#290
üzenetére
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
válasz
[HUN]Zolee
#288
üzenetére
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
válasz
[HUN]Zolee
#286
üzenetére
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
válasz
[HUN]Zolee
#284
üzenetére
System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.
-
Diskcopy
tag
válasz
[HUN]Zolee
#281
üzenetére
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
válasz
[HUN]Zolee
#279
üzenetére
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
válasz
[HUN]Zolee
#277
üzenetére
pedig úgy kell..
Private Declare Sub Sleep Lib ''kernel32''
(ByVal dwMilliseconds As Long)
aztán meg Sleep 1000mondjuk...
[Szerkesztve] -
Diskcopy
tag
válasz
[HUN]Zolee
#203
üzenetére
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
- Philips LCD és LED TV-k
- VR topik
- Luck Dragon: Asszociációs játék. :)
- Robotporszívók
- 5.1, 7.1 és gamer fejhallgatók
- Nem folyik, nem kenődik, de hűteni azt tud
- Mit tud egy nagy név? Teszten az Acer Predator Orion 5000 PC
- gban: Ingyen kellene, de tegnapra
- One otthoni szolgáltatások (TV, internet, telefon)
- Nem hiszed el, mi a Firefox új célja
- További aktív témák...
- Samsung Galaxy S21 Ultra 12/256GB, Normál, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Patriot Viper Venom 2x16GB DDR5 6000MHz CL30 - Gari 2035.10.08. -ig -
- Apple iPhone SE 2022 64GB, Akku: 95%, Megkímélt, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Apple iPhone 13 Pro Max 128GB, Akku: 100%, Normál, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Apple iPhone 13 128GB, Akku: 85%, Normál, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Új és régi konzolok Okosítása és Szoftveres szintű javítása - Már 12.52 FW-s PS4-ek is!
- Dobozos! Xbox Series S 512 GB + kontroller 6 hó garancia, számlával!
- Samsung Galaxy S23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Space Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4143
- Csere-Beszámítás! Sony Playstation 5 Slim Digital : Gari- 2027-05-07
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
) de azért nézz körül itt, hátha: 
