- eBay-es kütyük kis pénzért
- hdanesz: Elektromos autózás - első élmények
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Lalikiraly: SÜNI energiaital.
- vrob: Az IBM PC és a játékok a 80-as években
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
Új hozzászólás Aktív témák
-
#1098
zabomate
csendes tag
[HUN]Zolee
#1097
zabomate
csendes tag
válasz
[HUN]Zolee
#1097
üzenetére
Köszi!
-
#1081
[HUN]Zolee
őstag
[HUN]Zolee
#1080
[HUN]Zolee
őstag
válasz
[HUN]Zolee
#1080
üzenetére
Megoldottam. Hiba: Az átadást arra a formra kell írni amelyiken az átadást kezdeményező esemény található.
-
#1017
Boolash
aktív tag
[HUN]Zolee
#1016
Boolash
aktív tag
válasz
[HUN]Zolee
#1016
üzenetére
Okés, megvan minden! Köszi!
Egyébként: ActiveCell.SpecialCells(xlLastCell).Select -
#1015
Boolash
aktív tag
[HUN]Zolee
#1014
Boolash
aktív tag
válasz
[HUN]Zolee
#1014
üzenetére
Áhh.. Megvan..
Kicsit túllőttem a célon... Sok volt az 1000 oszlop.
Esetleg azt nem tudod, hogy hogy lehet megnézni, hogy az adott sorban/oszlopban hol van az utolsó elem? Ne kellejen feleslegesen hiába végignézni sok-sok cellát...
Köszi! -
#1008
KrAt
veterán
[HUN]Zolee
#1007
KrAt
veterán
válasz
[HUN]Zolee
#1007
üzenetére
Áhá, értem mit basztam el.. Kezdek megvilágosodni..
-
#1006
KrAt
veterán
[HUN]Zolee
#1004
KrAt
veterán
válasz
[HUN]Zolee
#1004
üzenetére
Azért gondoltam, hogy egymás után vizsgálja a feltételeket, és ha vmelyiken megbukik, akkor hibaüzit ad.. De vmiért továbblép
ArchElf: így is továbblép
Vhol máshol lesz a hiba.. -
#924
sonar
addikt
[HUN]Zolee
#923
sonar
addikt
válasz
[HUN]Zolee
#923
üzenetére
Szerintem ez is lehetséges... mondjuk ki kéne próbálni.
-
#922
sonar
addikt
[HUN]Zolee
#921
sonar
addikt
válasz
[HUN]Zolee
#921
üzenetére
Jha, hogy egy teljes dimenziót szeretnél átadni?
Más winapi leirása nincs vkinek? Illetve egy jó webcíme?
-
#920
sonar
addikt
[HUN]Zolee
#919
sonar
addikt
válasz
[HUN]Zolee
#919
üzenetére
Szerintem jó az elképzelésed. Bár ezt az egyszerre az egészet nem értem. Be kell rakni egy ciklusba (ahány eleműre lett definiálva a tömb) és annyiszor kell elvégeztetni.
-
#846
sonar
addikt
[HUN]Zolee
#845
sonar
addikt
válasz
[HUN]Zolee
#845
üzenetére
Azért ez már több mint durva, ha jól olvasom 5. éves és ennyit se tud.
Vmilyen szinten meglehet tanulni a dolgokat, csak időt kell rá szentelni.
Én se vagyok nagy programozó, de ami kell azzal foglalkozok.
Kiváncsi vagyok hogy az illető mennyit foglalkozott a témával.
No mindegy szerintem is egyszerübb megkérdezni, de azzal takarózni,hogy a tanár se tudja nevetséges.
bocs a kirohanásért és az offért -
#802
Jester01
veterán
[HUN]Zolee
#800
Jester01
veterán
válasz
[HUN]Zolee
#800
üzenetére
Rekurzív megoldás: egyszerûen kitörlöd a stringbõl.
Hatékonyabb megoldás: csinálsz egy boolean tömböt -
#799
Jester01
veterán
[HUN]Zolee
#798
Jester01
veterán
válasz
[HUN]Zolee
#798
üzenetére
Az sem sokkal bonyolultabb (viszont sokkal jobb) ha mindig csak akkora véletlenszámot generálsz ahány betű még van. Így pontosan n-1 darab véletlenszámra lesz szükséged.
-
#794
Polyák
tag
[HUN]Zolee
#793
Polyák
tag
válasz
[HUN]Zolee
#793
üzenetére
köszi! én is hasonlóra gondoltam csak nem tudom hogy hogyan csináljam azt hogy kétszer ne dobja ugyan azt a random. Te tudod esteleg? Nem külömbözik sztem olyan sokba a vb6 és a 7.
-
#746
Polyák
tag
[HUN]Zolee
#745
Polyák
tag
válasz
[HUN]Zolee
#745
üzenetére
Ezt írja ki hibának:
Futásidejű hiba: 91:
Az objektumváltozó vagy a With blokkváltozó nincs beállítva
Ez mit jelent? Lhet hogy 6ba nem igy kell.
elsején hajnali 5kor még volt energiád ilyenhez? Gratula! Én most keltem egy órája
-
#744
Polyák
tag
[HUN]Zolee
#743
Polyák
tag
válasz
[HUN]Zolee
#743
üzenetére
Köszi!
Hát nem igazán értem, de majd kibogozom. Ha jó vb6 ba, akkor meg is fogom érteni. Talán.
Amugy köszi.
Kéne valami példarpgi hogyan is kell ezt alkalmazni.
-
#739
sonar
addikt
[HUN]Zolee
#738
sonar
addikt
válasz
[HUN]Zolee
#738
üzenetére
pl csinálsz egy ilyet
Dim sor as string
sor= str(id) & '','' & nev...
aztán
open ''file'' for output as #1
output (sor, #1)
close #1
és ezt az egészet egy for ciklusba
vissza olvasni meg inputra nyitod meg a fájlt és szétdarabolod a stringet. -
#736
Polyák
tag
[HUN]Zolee
#735
Polyák
tag
válasz
[HUN]Zolee
#735
üzenetére
Köszi, de 6-ba nem így van sajnos.
Kaptam egy példát MSN-en, este megnélzem aztán megírom hogy mi volt a baj.
Amugy Köszi a gyors választ! -
#733
Polyák
tag
[HUN]Zolee
#729
Polyák
tag
válasz
[HUN]Zolee
#729
üzenetére
Nagyon Köszi!
-
#728
Polyák
tag
[HUN]Zolee
#727
Polyák
tag
válasz
[HUN]Zolee
#727
üzenetére
Köszi de az a gond hogy én VB6-ot használok, ezek meg VB.NET-esek ha jól látom. Az meg nincs meg nekem.
Amugy Köszi rendes vagy! Majd kiderítem hogyan tudok rajzolni! -
#726
Polyák
tag
[HUN]Zolee
#725
Polyák
tag
válasz
[HUN]Zolee
#725
üzenetére
És Form-ra hogy lehet?
-
#695
Apollo17hu
őstag
[HUN]Zolee
#692
Apollo17hu
őstag
válasz
[HUN]Zolee
#692
üzenetére
Így próbáltam, de hibaüzenettel leállt a makró.
Valószínűleg át kell majd írnom az egész kódot...
Kösz a segítséget. -
#608
sonar
addikt
[HUN]Zolee
#607
sonar
addikt
válasz
[HUN]Zolee
#607
üzenetére
Ez csak egy elméleti fogós kérdés. De ha gondolod összedobok egy programrészt.
Jövőhéten jön meg a haverom a nyaralásból és nekiállunk a VB portálnak -
#604
sonar
addikt
[HUN]Zolee
#603
sonar
addikt
válasz
[HUN]Zolee
#603
üzenetére
Azt tudtam, hogy 13 de ne textBox-al próbáld annál müxik, hanem commandbutton-nal
-
#602
sonar
addikt
[HUN]Zolee
#601
sonar
addikt
válasz
[HUN]Zolee
#601
üzenetére
Hát nem jött össze, de nem is érdekel. space-val müxik jól
A class-ra tudsz mondani vmit? -
#600
sonar
addikt
[HUN]Zolee
#599
sonar
addikt
válasz
[HUN]Zolee
#599
üzenetére
Mi a különbség a KeyAscii és a KeyCode között?
-
#598
sonar
addikt
[HUN]Zolee
#597
sonar
addikt
válasz
[HUN]Zolee
#597
üzenetére
Hiába. Azért raktam az elejére a msgbox-ot hogy kitaláljam milyen ascii kódot vesz be, de semmilyet. Inkább áttettem a space-re azt minden gond nélkül megeszi
-
#568
sonar
addikt
[HUN]Zolee
#567
sonar
addikt
válasz
[HUN]Zolee
#567
üzenetére
sonar.tvn.hu ra felraktam ahogy állok.
Per pill neki kellett állnom egy másik dolognak. Majd vmikor folytatom -
#566
sonar
addikt
[HUN]Zolee
#565
sonar
addikt
válasz
[HUN]Zolee
#565
üzenetére
Meg lehet csinálni de ennek abszolut semmi értelme. vagy én vagyok hülye
-
#564
sonar
addikt
[HUN]Zolee
#563
sonar
addikt
válasz
[HUN]Zolee
#563
üzenetére
És hogyan? appendoljam hozzá? vagy hozzak létre mindig egy új fájlt? Bár ez hülyeségnek hangzik.
sok értelmét nem látom, de megtudom csinálni.
[Szerkesztve] -
#562
sonar
addikt
[HUN]Zolee
#561
sonar
addikt
válasz
[HUN]Zolee
#561
üzenetére
De akkor a fájlba írás kell?
-
#560
sonar
addikt
[HUN]Zolee
#559
sonar
addikt
válasz
[HUN]Zolee
#559
üzenetére
Elvileg megvan a béta csak otthon hagytam a penemet így nem tudom belinkelni.
Meg tudom csinálni a beirogatós részt is, de sztem hülyeség.
Ja van kérdésem is:
milyen sorrendben kell rajzolni az akasztófát? Egy paintes (v akármilyen) skiccet nem tudsz küldeni? -
#557
sonar
addikt
[HUN]Zolee
#555
sonar
addikt
válasz
[HUN]Zolee
#555
üzenetére
Már félig kész van. (Mondjuk ha nincs 7végén balesetem akkor nem
)
Úgy csinálom, hogy lesz egy fájl amibe eddig 200 szót lehet beírni és abból random kiválaszt
egyet feladványnak. Sztem így jobb mint midig beírni -
#553
sonar
addikt
[HUN]Zolee
#548
sonar
addikt
válasz
[HUN]Zolee
#548
üzenetére
Tegnap este belenéztem, meglesz ha szánok rá pár órácskát.
-
#549
sonar
addikt
[HUN]Zolee
#548
sonar
addikt
válasz
[HUN]Zolee
#548
üzenetére
Bevallom férfiasan még nem nagyon néztem bele
tudod meccsek, lan...
de megpróbálom a 7en meglesni. -
#540
sonar
addikt
[HUN]Zolee
#539
sonar
addikt
válasz
[HUN]Zolee
#539
üzenetére
nem nagyon igazodok ki abban az msdn-ben de ha te mondod
-
#538
sonar
addikt
[HUN]Zolee
#535
sonar
addikt
válasz
[HUN]Zolee
#535
üzenetére
ez .NET ! és sajnos egy két dolog nem megy vb6-ban
mint például a bit shift '>>' vagy '<<' -
#525
L3zl13
nagyúr
[HUN]Zolee
#524
L3zl13
nagyúr
válasz
[HUN]Zolee
#524
üzenetére
Igen, de a .NET felpakol egy pár VB* nevű fájlt, tehát szvsz csak máshogy hívják, de ugyanúgy szükség van valamilyen dll-re a futtatáshoz.
Nálam pl D:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Microsoft.VisualBasic.dll ami az infója szerint Visual Basic Runtime Library. (És itt semmilyen VB fejlesztői környezet nincs feltéve.) -
#523
L3zl13
nagyúr
[HUN]Zolee
#519
L3zl13
nagyúr
válasz
[HUN]Zolee
#519
üzenetére
Szvsz neked a Microsoft.NET mappában van a megfelelője. Szóval ugyanaz a helyzet.
[Szerkesztve] -
#518
Polyák
tag
[HUN]Zolee
#517
Polyák
tag
válasz
[HUN]Zolee
#517
üzenetére
Hmm.... Megéri?
A VB7-ben kell ilyen DLL a programom futtatásához:
VB1 : vbrun100.dll
VB3 : vbrun300.dll
VB4 : vbrun432.dll , vbrun416.dll
Kicsit idegesítő h csak akkor indul el ha ez a fájl az alkalmazás mellet, vagy a System mappában van! Főleg ha valakinek elviszem és neki nincs meg a VB.
[Szerkesztve] -
#516
Polyák
tag
[HUN]Zolee
#514
Polyák
tag
válasz
[HUN]Zolee
#514
üzenetére
Köszi!
Hány MB körül van a telepítője? (Visual Basic . NET (2003))
Nem akarok már ebben a hónapban nagy adatforgalmat! A VB 2005 Express 500MB volt!
[Szerkesztve] -
#515
Polyák
tag
[HUN]Zolee
#514
Polyák
tag
válasz
[HUN]Zolee
#514
üzenetére
Honnaln töltötted le? Vagy eredeti?
-
#513
Polyák
tag
[HUN]Zolee
#512
Polyák
tag
válasz
[HUN]Zolee
#512
üzenetére
A Visual Basic 2005 Express telepítésénél kiírja h a gépemen nincs SP2 ézért nem telepíthető!
Neked melyik VB van meg hogy fut SP1-en?
[Szerkesztve] -
#510
sonar
addikt
[HUN]Zolee
#509
sonar
addikt
válasz
[HUN]Zolee
#509
üzenetére
Ha átküldöd megnézem, de elfoglalt vagyok de azért megpróbálok rá időt szakítani.
címem az adataimnál -
#506
Polyák
tag
[HUN]Zolee
#505
Polyák
tag
válasz
[HUN]Zolee
#505
üzenetére
És honnan tudom megszerezni?
-
#487
sekli
addikt
[HUN]Zolee
#486
sekli
addikt
válasz
[HUN]Zolee
#486
üzenetére
nem érdekes, akkor hanyagolom azt a programot, viszont most az kéne, hogy hogy lehet elmenteni mondjuk .txt-be adatokat, és onnan kiolvasni? pl: konkrétan button1.text legyen a txt első sorában lévő button1.text= utáni rész.
-
#485
sekli
addikt
[HUN]Zolee
#484
sekli
addikt
válasz
[HUN]Zolee
#484
üzenetére
tudom, hogy azért van, de azt hittem, hogy van valami egyszerű módja a ''csinosításnak'', mert én többek között ezért is favorizálom a 2005-öt... (bár az ez a .NET FX es dolog elég gáz...)
-
#483
sekli
addikt
[HUN]Zolee
#482
sekli
addikt
válasz
[HUN]Zolee
#482
üzenetére
hát nekem 98 style csak az ablak felső része és az X gomb XP-s...
-
#481
sekli
addikt
[HUN]Zolee
#477
sekli
addikt
válasz
[HUN]Zolee
#477
üzenetére
és a 6-ra hogy lehet XP-skint ''varázsolni''?
-
#478
Gh0sT
addikt
[HUN]Zolee
#475
Gh0sT
addikt
válasz
[HUN]Zolee
#475
üzenetére
Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba? -
#474
Gh0sT
addikt
[HUN]Zolee
#473
Gh0sT
addikt
válasz
[HUN]Zolee
#473
üzenetére
Igen, közben megtaláltam neten. Azért köszönöm!
-
#470
Gh0sT
addikt
[HUN]Zolee
#469
Gh0sT
addikt
válasz
[HUN]Zolee
#469
üzenetére
Ok, működik, köszi! Csak nem tudom arra használni, amire szerettem volna.
A login Formnál szeretném megcsinálni azt, hogy kb 2 mp alatt jelenjen meg. Gondoltam, hogy ha a form.opacity tulajdonságára írok egy for/next ciklust, akkor sima ügy lesz. Persze nem működik, de miért?
Dim n As Integer
For n = 1 to 100
Me.Opacity = n
System.Threading.Thread.Sleep()
Me.Refresh()
Next
Futási időben nem tudom az Opacity tulajdunságot változtatni? -
#467
Gh0sT
addikt
[HUN]Zolee
#466
Gh0sT
addikt
válasz
[HUN]Zolee
#466
üzenetére
Ehh, hát ez elég egyszerű volt...
Köszi! -
#457
sekli
addikt
[HUN]Zolee
#456
sekli
addikt
válasz
[HUN]Zolee
#456
üzenetére
tudom, elég egy barom dolog ez...
van valami patch asszem, az kell a SAMI-hoz is... -
#455
sekli
addikt
[HUN]Zolee
#454
sekli
addikt
válasz
[HUN]Zolee
#454
üzenetére
ja, framework, de volt fenn...
-
matekmatika
tag
válasz
[HUN]Zolee
#442
üzenetére
Teljesen mindegy neki a deklaráció, vele és nélküle sem működik.
Excelben egy beviteli mezőbe beírt értéket kellene megvizsgálnom, hogy az numerikus érték vagy nem. A vizsgálat egy parancsgomb megnyomására indulna, ez alá írom...írnám a kódot. Hogyan hívjam akkor meg a függvényt, hogy megegye? -
#440
-Gábor-
csendes tag
[HUN]Zolee
#439
-Gábor-
csendes tag
válasz
[HUN]Zolee
#439
üzenetére
Jah, hogy itt most Excelről van szó...
Azt hittem, hogy az Excel-es makrót szeretné átalakítani úgy, hogy fusson egy VB formon. -
#395
MartinIsti
csendes tag
[HUN]Zolee
#393
MartinIsti
csendes tag
válasz
[HUN]Zolee
#393
üzenetére
Köszi a segítséget, végül én a következőt találtam ki kedden a sorok számának megállapítására (persze ehhez az kell, hogy az első üres cella alatt már ne legyen több nem üres cella):
Sub elsourescella()
' Hogyan kell megállapítani az első üres sor helyét
Dim i As Integer ' változó definiálása
i = 3 ' változó alapértékének meghatározása
While Cells(i, 2) <> '''' ' i-dik oszlop vizsgálata az első üres celláig
i = i + 1
Wend
End Sub -
#378
Jester01
veterán
[HUN]Zolee
#377
Jester01
veterán
válasz
[HUN]Zolee
#377
üzenetére
ChrW(CLng(''&h'' & x))
Ahol x a hexa kód string formában. Stringre karakterenként ciklusban. -
#354
sonar
addikt
[HUN]Zolee
#351
sonar
addikt
válasz
[HUN]Zolee
#351
üzenetére
Király vagy!
Hogy én ezt mit kerestem -
#350
sonar
addikt
[HUN]Zolee
#344
sonar
addikt
válasz
[HUN]Zolee
#344
üzenetére
Esetleg tudnál egy közvetlen linket adni, ahol az msdn-en olyat találok ahol a parancsok ki vannak vesézve? Már jó ideje bolyongok rajta, de próbálgatással/könyvek bogarászásával előbb-utóbb rájövök amit akarok hogyan tudom megoldani. De jó lenne tudni, hogy mégis mik a lehetőségek.
-
#324
Jester01
veterán
[HUN]Zolee
#323
Jester01
veterán
válasz
[HUN]Zolee
#323
üzenetére
Mi még dolgozunk, éppen most rendeltünk kaját nehogy elhalálozzunk közben
-
#322
Jester01
veterán
[HUN]Zolee
#321
Jester01
veterán
válasz
[HUN]Zolee
#321
üzenetére
Ne már! A középpontot bármilyen, sugár hosszúságú vektorral eltolva a körívre eső pontot kapsz. A (sugár, 0) vektor pedig triviálisan ilyen.
A #315-ben pont azt mondtad, hogy az alappont a 0 fokos pozíció és a rajzodon is ez van. -
#320
Jester01
veterán
[HUN]Zolee
#319
Jester01
veterán
válasz
[HUN]Zolee
#319
üzenetére
#316 (op(i).X + sugar, op(i).Y)
Skalárokat adtam össze
Vagy ha úgy tetszik akkor a (sugar, 0) vektorral eltoltam az op(i) pontot.
VBben:
alappont.X = op(i).X
alappont.Y = op(i).Y + sugar -
#318
Jester01
veterán
[HUN]Zolee
#317
Jester01
veterán
válasz
[HUN]Zolee
#317
üzenetére
a sugar nem szakasz, hanem a hossza. Te írtad
sugar = Int(Math.Sqrt((fixp.X - op(i).X) ^ 2 + (fixp.Y - op(i).Y) ^ 2))
Szóval össze lehet adni
ezt meg nemértem hogy jött ki neked
Szétbontottam két törtre:
(2 * sugar^2 - atlo^2) / (2*sugar^2) =
= (2 * sugar^2) / (2 * sugar^2) - (atlo^2) / (2 * sugar^2)
= 1 - (atlo^2) / (2 * sugar^2)
Szerinted nem jó -
#316
Jester01
veterán
[HUN]Zolee
#315
Jester01
veterán
válasz
[HUN]Zolee
#315
üzenetére
Akkor az alappont koordinátái helyesen (op(i).X + sugar, op(i).Y), nemde?
x pedig a^2+b^2-c^2/2ab = (2 * sugar^2 - atlo^2) / (2*sugar^2) =
= 1 - (atlo ^ 2) / (2 * sugar ^ 2)
MOD: a középpont az op(i) ...
[Szerkesztve] -
#314
Jester01
veterán
[HUN]Zolee
#313
Jester01
veterán
válasz
[HUN]Zolee
#313
üzenetére
Köszi az ábrát
Szóval akkor a = b = sugár és c = átló.
Gondolom op(i) a középpont, fixP pedig az egyik pont a köríven.
Alappont lenne akkor a másik pont a köríven, csak nem értem a számítási módját. Felvilágosítanál?
Ez egyébként direkt van?
i = kpont(fixp.X, fixp.X) -
#312
Jester01
veterán
[HUN]Zolee
#311
Jester01
veterán
válasz
[HUN]Zolee
#311
üzenetére
Eddig jó. Na most akkor mi micsoda?
Ebben a képletben ugye szerepel a háromszög 3 oldala.
Neked meg van átló és sugár, amit eleve nem értek, de ráadásul kevés is (2 vs 3 darab).
Szóval első körben szerintem nevezd el érthetőbben a változóidat, az arccos függvényből pedig csinálj tényleg külön függvényt, így jobban átlátható lesz. -
#310
Jester01
veterán
[HUN]Zolee
#309
Jester01
veterán
válasz
[HUN]Zolee
#309
üzenetére
Hát ha ez arccos, akkor a bemenetnek illene a [-1,1] intervallumba esni.
Szóval a hiba az x kiszámításában lesz.
Mellékes jótanács: ha mindenütt csak egy mennyiség négyzetére hivatkozol, akkor fölösleges gyököt vonni (lásd pl. atlo) -
#308
Jester01
veterán
[HUN]Zolee
#307
Jester01
veterán
válasz
[HUN]Zolee
#307
üzenetére
Ha ide-ből futtatod, akkor megáll a hibánál: Form1.vb 91. sor.
alf = ((Math.Atan(-x / (Math.Sqrt(-x * x + 1))) + 2 * Math.Atan(1)) * 180 / Math.PI)
Sajnos nem tudtam kibogozni mit is akarsz csinálni, de nekem az x most éppen kb 165, vagyis a gyök alatt negatív szám van.
[Szerkesztve] -
#294
sonar
addikt
[HUN]Zolee
#288
sonar
addikt
válasz
[HUN]Zolee
#288
üzenetére
Persze, mert a Formnak van kerete (fejléc, lábléc,meg ha jól tudom a scroll barokat is beleszámolja)
-
#291
Diskcopy
tag
[HUN]Zolee
#290
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 -
#289
Diskcopy
tag
[HUN]Zolee
#288
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. -
#287
Diskcopy
tag
[HUN]Zolee
#286
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() -
#285
Diskcopy
tag
[HUN]Zolee
#284
Diskcopy
tag
válasz
[HUN]Zolee
#284
üzenetére
System.Threading.Thread.Sleep(1000) 'Egy másodperces várakozás.
-
#282
Diskcopy
tag
[HUN]Zolee
#281
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 -
#280
Diskcopy
tag
[HUN]Zolee
#279
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. -
#278
Diskcopy
tag
[HUN]Zolee
#277
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] -
#275
lapa
veterán
[HUN]Zolee
#274
lapa
veterán
válasz
[HUN]Zolee
#274
üzenetére
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.
-
#235
F-ECT$
titán
[HUN]Zolee
#234
F-ECT$
titán
válasz
[HUN]Zolee
#234
üzenetére
Egérrel
![;]](//cdn.rios.hu/dl/s/v1.gif)
Amúgy meg: Bővebben: link
''This program uses the ClientToScreen API function to convert the target coordinates from the screen's coordinate system to the screen's coordinates system. It then uses the SetCursorPos API function to move the mouse there. ''
Sub MoveMouse(x As Single, y As Single)
Dim pt As POINTAPI
pt.x = x
pt.y = y
ClientToScreen hwnd, pt
SetCursorPos pt.x, pt.y
End Sub -
#233
muad_dib
tag
[HUN]Zolee
#232
muad_dib
tag
válasz
[HUN]Zolee
#232
üzenetére
en ezeket type-pal szoktam...
type myType
id as integer
data as string
end type
dim myDataArray() as myType
annyi, hogy a formon vagy modulban kell a type-ot deklaralni, eljarasban/fuggvenyben nem megy, es termeszetesen letezik private ill public fajtaja is
[Szerkesztve]
[Szerkesztve] -
#231
F-ECT$
titán
[HUN]Zolee
#230
F-ECT$
titán
válasz
[HUN]Zolee
#230
üzenetére
Record? Adatbázis rekordra gondolsz?
-
#227
Apollo17hu
őstag
[HUN]Zolee
#226
Apollo17hu
őstag
válasz
[HUN]Zolee
#226
üzenetére
Igen, azt vágom, h a tizedesjel VBA-ban a ''.''. Csak amikor '',''-t írtam, ezexerint a szövegként értelmezett számból az egészrészét tartotta meg.
-
#225
Apollo17hu
őstag
[HUN]Zolee
#224
Apollo17hu
őstag
válasz
[HUN]Zolee
#224
üzenetére
Köszi, akkor már értem azt is, h ilyenkor a tizedesvesszős értékekkel miért tudtam néha számolni.
-
#204
Diskcopy
tag
[HUN]Zolee
#203
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 -
#188
ollie
MODERÁTOR
[HUN]Zolee
#181
válasz
[HUN]Zolee
#181
üzenetére
Eh, már látom a hibát én is.
[Szerkesztve] -
#186
csiga997
őstag
[HUN]Zolee
#181
csiga997
őstag
válasz
[HUN]Zolee
#181
üzenetére
az nem lehet probléma, hogy egyszer kijelzőt egyszer meg kijeltőt írsz...?
-
#185
F-ECT$
titán
[HUN]Zolee
#184
F-ECT$
titán
válasz
[HUN]Zolee
#184
üzenetére
A left működik (#180), a right meg nem
-
#182
F-ECT$
titán
[HUN]Zolee
#181
F-ECT$
titán
válasz
[HUN]Zolee
#181
üzenetére
Hülyeség, de így próbáltad már:
txt = Right ( txt , 1)
? -
#178
F-ECT$
titán
[HUN]Zolee
#177
F-ECT$
titán
válasz
[HUN]Zolee
#177
üzenetére
Lehet, hogy hülyeség, de szvsz $=sztring.
-
#176
csiga997
őstag
[HUN]Zolee
#173
csiga997
őstag
válasz
[HUN]Zolee
#173
üzenetére
b$=left$(a$,len(a$)-1)
-
#147
F-ECT$
titán
[HUN]Zolee
#146
F-ECT$
titán
válasz
[HUN]Zolee
#146
üzenetére
Az megvan, hogy OO programozás?
-
#145
Goose-T
veterán
[HUN]Zolee
#143
Goose-T
veterán
válasz
[HUN]Zolee
#143
üzenetére
A .NET objektumorientált, a 6.0 pedig csak annak látszik. Nincs időm most ecsetelni a különbségeket.
-
return.value
tag
válasz
[HUN]Zolee
#143
üzenetére
Az egyik .NET alapú, a másik pedig nem.
Evvel elmondtam az összes különbséget. -
#140
Goose-T
veterán
[HUN]Zolee
#134
Goose-T
veterán
válasz
[HUN]Zolee
#134
üzenetére
Röviden: ég és föld.
[Szerkesztve] -
#127
ollie
MODERÁTOR
[HUN]Zolee
#125
válasz
[HUN]Zolee
#125
üzenetére
Akkor már miért nem Delphi-t tanulsz?
-
#123
sonar
addikt
[HUN]Zolee
#121
sonar
addikt
válasz
[HUN]Zolee
#121
üzenetére
Programozás Visual Basic 6 nyelven
Van belőle kék (kezdőknek, haldóknak) -én is ezt használom- meg van a black a profiknak
Kiadja a kiskapu
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Sony FE 28-70 mm F3.5-5.6 OSS
- PS5 Slim Disc 1TB 2026.10.08 GARANCIA
- Bomba Ár! Dell Latitude 3190 - Intel N4120 I 4GB I 128GB SSD I 11,6" HD I Cam I W11 I Garancia!
- Bomba Ár! Dell Latitude 3190 - Intel N4120 I 4GB I 64GB SSD I 11,6" HD I Cam I W11 I Garancia!
- Bomba ár! Dell Latitude E6520 - i7-2760QM I 8GB I 256SSD I Nvidia I HDMI I 15,6" HD+ I W10 I Gari!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RX 6500 XT 4GB GAMER PC termékbeszámítással
- Lenovo Thinkpad T14 üzleti i5-10310u 10th gen. 8-32Gb RAM 256GB-1TB SSD gar.
- Samsung 840 SSD 120GB újszerű, 100/100
- Beszámítás! Apple Mac mini 2020 M1 8GB 256GB SSD számítógép garanciával, hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest