Hirdetés
- Meggyi001: Hasznos helyek és tippek Párizsban, amiket jó eséllyel keresni is fogsz...
- Meggyi001: Kórházi ellátás: kuka vagy finom?
- GoodSpeed: Kell-e manapság egérpad vagy sem?
- weiss: Lakodalom van a mi utcánkban...
- bitpork: 2025, zárás
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- LordAthis: RETRÓnia - RETRÓ Mánia - Úton van hozzám egy csodás történelmi darab!
- sh4d0w: Kalózkodás. Kalózkodás?
Új hozzászólás Aktív témák
-
[HUN]Zolee
őstag
fel
-
[HUN]Zolee
őstag
Amikor ablakváltás van, akkor a graphics osztály áltaál használta fügvények eredményei eltűnnek a form-ról

Melyik tulajdonságot kell állítani? -
[HUN]Zolee
őstag
válasz
Diskcopy
#289
üzenetére
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). -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
senkinek semmi ötlete?

-
[HUN]Zolee
őstag
A pascalban használt delay(x) (várakozás,késleltetés) utasatásnak mi a megfelelője VB.net-ben vagy 6.0 ban?
-
[HUN]Zolee
őstag
hogy lehet Vb. Net be grafikus képernyőr rábírni , hogy pixelbe számoljon?
találtam olyat, hogy GraphicsUnit.Pixel , de nemtom hogy használjam.
MSDN en se találtam
-
[HUN]Zolee
őstag
Hogy lehet record változót deklarálni?
-
[HUN]Zolee
őstag
válasz
Apollo17hu
#225
üzenetére
A Val fügvénynél a . (pont) a tizedesvesző a számoknál.
-
[HUN]Zolee
őstag
válasz
Apollo17hu
#222
üzenetére
szövegből számot csinál
Val(szöveges változó)
csak addig nézi amíg azámoz talál amit az első szövegkarakter megjelenik, abbahagya a számmá alakítást, és az addig talált számod adja vissza -
[HUN]Zolee
őstag
Hogyan lehet több listbox-ot egyszerre görgetni ?
-
[HUN]Zolee
őstag
van egy procedúra amit ha meghívok mindig valami hibát ír ki :S
Public Sub beszur(besz1 As String, besz2 As Integer, besz3 As Integer)
hiba :
Compile error:
Expected: =
Ha utána egyelőségjelet + egy változóz írok, akkor elfogadja (nem futtattam le), de miért csinálja ezt? más procedúráknál nem csinálja
És lehet rekord típust deklarálni? és ha igen hogyan?
[Szerkesztve] -
[HUN]Zolee
őstag
válasz
Victorius
#202
üzenetére
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] -
[HUN]Zolee
őstag
A progi belemegy egy végtelen ciklusba, de nemtudom mért? Bővebben: link itt a teljes pogram.
Option Explicit
Dim s(15), i, j, cap As Integer
Private Sub Command3_Click()
For i = 0 To 15
s(i) = 0
Next
i = 0
j = 0
For j = 1 To 15
Me.Print j, cap
'cikl:
Randomize
s(1) = j
cap = (Rnd * 14) + 1
For i = 1 To 15
'Me.Print i, cap
If s(i) = cap Then
'GoTo cikl
s(j) = 0
Else
s(j) = cap
End If
Next
Next
For i = 1 To 15
Command1(i - 1).Caption = s(i)
Next
End Sub -
[HUN]Zolee
őstag
még mindig enm jó a számológépem előjel megváltoztatója

-
[HUN]Zolee
őstag
Beírtam ezt a kódot és a helyett hogy elvenné az első betűt, az egész szöveget törli

txtkijelzo = Right(txtkijelto, Len(txtkijelzo) - 1)
itt a teljtes program :
Bővebben:� link -
[HUN]Zolee
őstag
Lehet hogy láma kérdés, de még csak most kezdem a vb-t.
Hogy lehet egy szöveges változóból a karaktereket kitörölni egyesével hátulról?
pl.: asdf => asd => as -
[HUN]Zolee
őstag
Mi a különbség a VB6 és a VB.NET között?
-
[HUN]Zolee
őstag
Most fogok áttérni pascalról és kéne egy normális könyv. Én is láttam a kék könyvet, de a prog.hu-n semmi leírásszerű nem volt róla. Majd még körülnézek hátha van valmi hogy kb mi van benne + ienek, de ti is adhattok linket ha ráértek

-
[HUN]Zolee
őstag
Senki se tud ajánlani eg yjó könyvet?

-
[HUN]Zolee
őstag
Hy Tudtok ajánlani nekem valami jó Visual Basic 6 könyvet? Most fogom kezdeni ezt a nyelvet és kéne egy jó könyv.
[Szerkesztve]
Új hozzászólás Aktív témák
- Google Pixel 10 Pro 256GB, fekete + Pixel Watch 4 45mm LTE + Ajándék: Google Pixel Buds Pro 2
- -ÚJ,2 ÉV GAR- DDR5 GAMER PC: RYZEN 7 8700F/9700X/9800X3D +RX 6600/6700XT +16-64GB DDR5! SZÁMLA!
- Dell Latitude 7430 x360 Ütésálló Érintős Hajtogatós Profi Ultrabook 14" -60% i7-1265U 16/512 IRIS Xe
- HP E24m G4 Monitor FHD IPS webkamerával, Windows Hello-támogatással
- Lenovo ThinkPad T14 Gen 5 Ultra-I7/16GB/512SSD/FHD/garancia!
- Azonnali készpénzes AMD Radeon RX 7000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- 2025.10.29 - Frissített lista - Lenovo LOQ / LEGION Pro 7 (RTX 5070Ti / 5080 / 4080 / 4090)
- Apple iPhone 13 / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
- GYÖNYÖRŰ iPhone 14 Pro 128GB Deep Purple -1 ÉV GARANCIA -Kártyafüggetlen, MS3933, 100% Akkumulátor
- BESZÁMÍTÁS! MSI H310M i5 9400F 16GB DDR4 240GB SSD 2TB HDD RTX 2060 6GB THERMALTAKE VERSAH17 600W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest
midnegy.

és cska egy 191x191 es négyzet fér el benne.


