- Apple Watch
- Fotók, videók mobillal
- iPhone topik
- Hivatalos a OnePlus 13 startdátuma
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Okosóra és okoskiegészítő topik
- Xiaomi Smart Band 8 - folyamatosan
- Apple iPhone 17 Pro Max – fennsík
- Apple iPhone Air - almacsutka
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Ú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
- Braun Series 9 Pro+ 9565cc Nedves-Száraz Elektromos Borotva
- BESZÁMÍTÁS! Asrock B450M R5 5600X 16GB DDR4 512GB SSD RX 6600XT 8GB Zalman T4 PLUS CM 650W
- BESZÁMÍTÁS! Asrock B450M R5 5500 16GB DDR4 512GB SSD GTX 1080 8GB Zalman T4 PLUS ADATA 600W
- BESZÁMÍTÁS! ASRock B450M R5 2600 16GB DDR4 256GB SSD 1TB HDD GTX 1650 4GB Zalman T4 PLUS 400W
- Nintendo Switch oled játékok kiegészítők
- Konzol felvásárlás!! Nintendo Switch
- Cisco Catalyst C1000-48T-4G-L 48xRJ45 4xSFP switch, CISCO refurbished
- 137 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- BESZÁMÍTÁS! Asus B550M R5 5600 32GB DDR4 500GB SSD RTX 5060 Ti 12GB Rampage SHIVA Gigabyte 650W
- Bomba ár! Dell Latitude 5580 - i5-7GEN I 16GB I 256SSD I 15,6" FHD I HDMI I CAM I W11 I Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest