- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen videókártyát?
- TCL LCD és LED TV-k
- Fejhallgató erősítő és DAC topik
- Sugárkövetés nélküli sugárkövetés felé menetel az új PlayStation
- Bambu Lab 3D nyomtatók
- AMD Navi Radeon™ RX 9xxx sorozat
- Épített vízhűtés (nem kompakt) topic
- Milyen monitort vegyek?
- ThinkPad (NEM IdeaPad)
Ú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
Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen videókártyát?
- TCL LCD és LED TV-k
- iPhone topik
- Nők, nőügyek (18+)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Fejhallgató erősítő és DAC topik
- Elektromos autók - motorok
- További aktív témák...
- !AKCIÓ! Garanciás Klipsch R-120SW 30cm aktív mélysugárzó SubWoofer - 200W RMS / 400W Peak
- Eladó megbízható, szép Toshiba Satelite C850
- Csere - Beszámítás! Gamer PC : I5-14400F / 32GB DDR5 / RTX 4060 Ti / 1TB M.2 SSD
- Ryzen 5600, 32GB RAM, EVGA 3080 Gamer PC
- Asus RT-AC68U router eladó (3 darab - egyben vagy külön is)
- AKCIÓ! MSI Z390 i5 9400F 16GB DDR4 512GB SSD RTX 2060 Super 8GB Corsair Carbide Series 200R 600W
- BESZÁMÍTÁS! MSI B450 R5 5600 16GB DDR4 512GB SSD RTX 2070 Super 8GB Zalman Z1 Plus ADATA 600W
- HP ZBook Studio G7 i7-10850H 32GB 512GB Nvidia Quadro T1000 15.6" FHD 1 év garancia
- Újszerű ASUS ROG Ally - 7"120Hz - Z1 Extreme - 16GB/512GB - (RC71L-NH001W) fehér - 2 év garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest