- Fokozatosan erősít majd a szerverpiacon az Intel
- OLED TV topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Apple MacBook
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Projektor topic
- Milyen egeret válasszak?
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Először kombinálja a Full HD-t az 1000 Hz-cel egy monitor
- AMD K6-III, és minden ami RETRO - Oldschool tuning
Új hozzászólás Aktív témák
-
![[HUN]Zolee](//cdn.rios.hu/dl/faces/c11.gif)
[HUN]Zolee
őstag
-
Jester01
veterán
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is
-
[HUN]Zolee
őstag
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.
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is -
Az EXCELben van makró rögzítése funkció, használd azt! Előállítja a kódot, amit csak kicsit kell módosítanod.(6 éve használtam utoljára)
1. szvsz a Cells(1,1).VALUE megadja a bal felső cella értékét, amit beletehetsz a fáljnyitásba
2. Ugye van az a jó tulajdonsága az EXCELnek, hogy CTRL+nyílra odaugrik az utolsó értékhez a tartományban. Elindítod a makrórögzitőt és egy próbatartományban megcsinálod ezt, és kész az alap kód, amit szabhatsz. -
hello!
tudnátok nekem segíteni abban, hogy hogyan lehet excel vba-ban megnyitni egy olyan file-t, aminek a nevét (kiterjesztés nélkül) egy cella tartalmazza? valamint azt is tudnom kéne hogyan tudom megtalálni egy oszlopban az utolsó cellát ami még adatot tartalmaz...
előre is köszi! -
Polyák
tag
hirtelen ez jutott eszembe (bár én 7 be gondolkodok nem 6 ba)
tömbe felosztod a szót karakterekre, majd random számgenerátorral(paraméterként a szó hosszát megadva) és kikötésbe beleteszed hogy a random nem dobhat azonos számot.
kicsit macerás, de elvbe jó -
[HUN]Zolee
őstag
Hali!
Azt hogyan tudom megoldani hogy az ''a'' változóban lévő szó karaktereit összekeverjem?
a = ''ablak''
...
... = b (b-be már összekeverve kellene!)
Hogyan tudnám megoldani hogy össze legyenek keverve?
Előre is köszi!
hirtelen ez jutott eszembe (bár én 7 be gondolkodok nem 6 ba)
tömbe felosztod a szót karakterekre, majd random számgenerátorral(paraméterként a szó hosszát megadva) és kikötésbe beleteszed hogy a random nem dobhat azonos számot.
kicsit macerás, de elvbe jó -
Azzal pofon egyszerű. Az a baj a browser-rel hogy nincs stretch funkciója és a képen nem pont a szegélyhez illeszti. Próbáld ki.
Olyan kéne nekem, mint ahogy Image-ba lehet betölteni képet winyóról, csak netről szedné le.
Gondoltam arra is hogy lementené a saját mappájába (megerőstés nélkül, észrevehetetlenül) és onnan töltené be Image-ba. Ezt StartDoc-kal próbáltam de az az alapértelmezett böngészőben nyitja meg a képet. Szal ezt sem tom hogy hogyan csináljam.
Melyik lenne jobb megoldás? Illetve melyikben tudnál segíteni?
Amugy az a dodi diassembler csak VB4-hez jo. -
Hali!
Azt szeretném megkérdezni hogy hogyan Tudob PictureBox-ba, vagy inkább Image-ba képet betölteni internetről?
Probáltam igy:
Image1.Picture = ''http://mittomén.hu/kep.jpg''
meg igy is:
Image1.Picture = LoadPicture(''http://mittomén.hu/kep.jpg'')
De gondoltam hogymen lesz ilyen egyszerű. Miért is lenne az?
Hogyan tudnám ezt mégis megcsinálni?
A válszt előre is kösz!
[Szerkesztve] -
Polyák
tag
Hali!
Azt szeretném megkérdezni hogy hogyan Tudob PictureBox-ba, vagy inkább Image-ba képet betölteni internetről?
Probáltam igy:
Image1.Picture = ''http://mittomén.hu/kep.jpg''
meg igy is:
Image1.Picture = LoadPicture(''http://mittomén.hu/kep.jpg'')
De gondoltam hogymen lesz ilyen egyszerű. Miért is lenne az?
Hogyan tudnám ezt mégis megcsinálni?
A válszt előre is kösz!
[Szerkesztve] -
Hi all!
Van egy pár progim aminek már nincs meg a forrkodja de lusta vok ujra megírni őket.
Kellenek belőle infok hogy mit hogyan is kell, mert már nem nagyon emléxem.
Ezeket a progikat valahogy vissza lehet ''forgatni'', vagy vissza ''fordítani''??
Fontos lenne!
Mikor még TurboPascal-lal foglalkoztam akkor volt ilyen progim hozzá, de vb-hez nem találtam.
Előre is köszi! -
Polyák
tag
Hi all!
Van egy pár progim aminek már nincs meg a forrkodja de lusta vok ujra megírni őket.
Kellenek belőle infok hogy mit hogyan is kell, mert már nem nagyon emléxem.
Ezeket a progikat valahogy vissza lehet ''forgatni'', vagy vissza ''fordítani''??
Fontos lenne!
Mikor még TurboPascal-lal foglalkoztam akkor volt ilyen progim hozzá, de vb-hez nem találtam.
Előre is köszi! -
Total Commander
F3 a fájlon és megnézed milyen dll-t használsz. Most nincs a közelembe egy progi se
de emlékeim szerint egyértelmüen ki van irva vb6-nál msvbvm60.dllHalli all
Most már vágom. Sonar igazad van, a TC-vel (F3 gombal) belenéztem a exe-be és tényleg látom a ''msvbvm60.dll''-t.
Köszike a megvilágosítást. -
-
ptamas
csendes tag
Hali!
Biztosan volt mar ilyen kerdes a forumon, de nem volt idom vegigbongeszni
Visual Basic .NET nyelvvel szeretnek foglalkozni, de eddig semmit nem tudok rola. Milyen konyvet javasolnatok egy teljesen kezdonek a tanulashoz?
Elore is koszonom a valaszokat!
Bye: Tamás -
Sziasztok!
Nemrég fogtam hozzá a DarBasic tanulásához és nagyon tetszik a dolog. Most viszont az egyik résznél elakadtam és segítséget kérnék tőletek. Nem tudom, hogy a dark basic ugyanaz-e mint a visaul basic, de megkérdezem attól itt, hátha:
Szóval vannak ezek a tömbutasítások:
SAVE ARRAY Filename, Array Name(0)
LOAD ARRAY Filename, Array Name(0)
EMPTY ARRAY Array Name(0)
ARRAY INSERT AT TOP Array Name(0)
ARRAY INSERT AT BOTTOM Array Name(0)
ARRAY INSERT AT ELEMENT Array Name(0), Index
ARRAY DELETE ELEMENT Array Name(0)
NEXT ARRAY INDEX Array Name(0)
PREVIOUS ARRAY INDEX Array Name(0)
ARRAY INDEX TO TOP Array Name(0)
ARRAY INDEX TO BOTTOM Array Name(0)
ARRAY INDEX TO QUEUE Array Name(0)
ADD TO QUEUE Array Name(0)
REMOVE FROM QUEUE Array Name(0)
ARRAY INDEX TO STACK Array Name(0)
ADD TO STACK Array Name(0)
REMOVE FROM STACK Array Name(0)
Return Integer=ARRAY COUNT(Array Name(0))
Return Integer=ARRAY INDEX VALID(Array Name(0))
Nem tudom pontosan, hogy ezek mire jók vagy ha tudom is nagyából, akkor se tudom egész jól használni. Pl a save array-jal ugye tömböt mentünk ki egy fájlba, de miután undim-elem, amit elmentettem és visszatöltöm a tömböt és ki akarom iratni, pl tomb(1,2), akkor hibát ír ki. Próbáltam neten keresgélni segítség után, de konkrét bő leírást nem találtam ezekhez. Valaki segítene megértetni ezeket? Pls Vagy ennek a nyelvfajtának külön téma kell? :S
[Szerkesztve]Szia!
Nekem is megvan a darkbasic, de nem indul el sajna valami oknál fogva. Sajnos nem ugyan az mint a vb. Ha el tudnám indítani talán tudnék segíteni. Láttam róla lépeket meg olvastam is róla sokat.
[Szerkesztve] -
J3richo
tag
Sziasztok!
Nemrég fogtam hozzá a DarBasic tanulásához és nagyon tetszik a dolog. Most viszont az egyik résznél elakadtam és segítséget kérnék tőletek. Nem tudom, hogy a dark basic ugyanaz-e mint a visaul basic, de megkérdezem attól itt, hátha:
Szóval vannak ezek a tömbutasítások:
SAVE ARRAY Filename, Array Name(0)
LOAD ARRAY Filename, Array Name(0)
EMPTY ARRAY Array Name(0)
ARRAY INSERT AT TOP Array Name(0)
ARRAY INSERT AT BOTTOM Array Name(0)
ARRAY INSERT AT ELEMENT Array Name(0), Index
ARRAY DELETE ELEMENT Array Name(0)
NEXT ARRAY INDEX Array Name(0)
PREVIOUS ARRAY INDEX Array Name(0)
ARRAY INDEX TO TOP Array Name(0)
ARRAY INDEX TO BOTTOM Array Name(0)
ARRAY INDEX TO QUEUE Array Name(0)
ADD TO QUEUE Array Name(0)
REMOVE FROM QUEUE Array Name(0)
ARRAY INDEX TO STACK Array Name(0)
ADD TO STACK Array Name(0)
REMOVE FROM STACK Array Name(0)
Return Integer=ARRAY COUNT(Array Name(0))
Return Integer=ARRAY INDEX VALID(Array Name(0))
Nem tudom pontosan, hogy ezek mire jók vagy ha tudom is nagyából, akkor se tudom egész jól használni. Pl a save array-jal ugye tömböt mentünk ki egy fájlba, de miután undim-elem, amit elmentettem és visszatöltöm a tömböt és ki akarom iratni, pl tomb(1,2), akkor hibát ír ki. Próbáltam neten keresgélni segítség után, de konkrét bő leírást nem találtam ezekhez. Valaki segítene megértetni ezeket? Pls Vagy ennek a nyelvfajtának külön téma kell? :S
[Szerkesztve] -
Hali!
Van ez a sor:
TrayAddIcon(ByVal lID As Long, ByRef sTip As String, ByVal hIcon As Long)
tehát igy néz ki mikor előhívom:
TrayAddIcon lID, sTip, hIcon
de:
mi az az lID és az sTip? a hIcon-hoz az ikon elérérsi utvonala kell?
Köszi előre is!A paramétereket keresd meg msdn-ben ha pontosat akarsz tudni
Az lID azt hiszem az ikon sorszáma.
Az sTip az a tooltip szövege.
A hIcon pedig az ikon handle. Be kell tölteni az ikont és annak valami handle propertyje. -
Ezt egy kb. 4 éves projektbõl bányásztam elõ, azóta szerencsére nem láttam VBt
A TrayInitialize után meg kell hívni a TrayAddIcon-t, attól lesz ikon. Kilépés elõtt ezt törölni kell.Hali!
Van ez a sor:
TrayAddIcon(ByVal lID As Long, ByRef sTip As String, ByVal hIcon As Long)
tehát igy néz ki mikor előhívom:
TrayAddIcon lID, sTip, hIcon
de:
mi az az lID és az sTip? a hIcon-hoz az ikon elérérsi utvonala kell?
Köszi előre is! -
Hali!
Köszi!
Ezt bogarászom éppen, de nem jutottam sokra.
Ezekkel probáltam: TrayInitialize Form1, meg: TaskbarShow
de nem sikerült, én értettem félre valamit? Engem ezek a modulok mindig szivatnak. Nem értem hogy hogy hivatkozzak most erre? Tudnál nekem segíteni? Meg amugy általánosságban a modulokban tudnál nekem segíteni?
Köszi előre is!Ezt egy kb. 4 éves projektbõl bányásztam elõ, azóta szerencsére nem láttam VBt
A TrayInitialize után meg kell hívni a TrayAddIcon-t, attól lesz ikon. Kilépés elõtt ezt törölni kell. -
Hali!
Köszi!
Ezt bogarászom éppen, de nem jutottam sokra.
Ezekkel probáltam: TrayInitialize Form1, meg: TaskbarShow
de nem sikerült, én értettem félre valamit? Engem ezek a modulok mindig szivatnak. Nem értem hogy hogy hivatkozzak most erre? Tudnál nekem segíteni? Meg amugy általánosságban a modulokban tudnál nekem segíteni?
Köszi előre is! -
Ha annak hívják, akkor igen!
Mint a hangerőszabályzó ikonja meg egyes virusírtók ikonja meg az msn ikonja(zöld muki), stb.
Nos, azt szeretném hogy programom ne látszódjon a taskbar-ban (ezt sikerült megoldanom, nem volt nehéz), csak a ''systray'' ikon látszódjon és onnan elérhessek jobbklikkel opciókat, mint pl a hangerőszabályzónál a ''Hangerőszabályzó megnyitása'', ''Hangtulajdonságok belállítása''.
Elöre is köszi! -
Ha annak hívják, akkor igen!
Mint a hangerőszabályzó ikonja meg egyes virusírtók ikonja meg az msn ikonja(zöld muki), stb.
Nos, azt szeretném hogy programom ne látszódjon a taskbar-ban (ezt sikerült megoldanom, nem volt nehéz), csak a ''systray'' ikon látszódjon és onnan elérhessek jobbklikkel opciókat, mint pl a hangerőszabályzónál a ''Hangerőszabályzó megnyitása'', ''Hangtulajdonságok belállítása''.
Elöre is köszi! -
Üdv mindenkinek!
Hogyan tudom azt megcsinálni, hogy az óra mellett egy kis ikon megjelenjen ahogy a hangerőszabályzó vagy a messenger ikonja is. Ha rákattintok megjelenjen egy menü, de biztos értitek miről beszélek. Nos, ezt hogyan tudom megoldani? Azt meg tudtam csinálni hogy a taskbarban ne jelenjen meg de ezt viszont már nem tudom hogy is csináljam!
Előre is köszi! -
Polyák
tag
Üdv mindenkinek!
Hogyan tudom azt megcsinálni, hogy az óra mellett egy kis ikon megjelenjen ahogy a hangerőszabályzó vagy a messenger ikonja is. Ha rákattintok megjelenjen egy menü, de biztos értitek miről beszélek. Nos, ezt hogyan tudom megoldani? Azt meg tudtam csinálni hogy a taskbarban ne jelenjen meg de ezt viszont már nem tudom hogy is csináljam!
Előre is köszi! -
De én számot akartam nem dátumot!
És vesszőt kell tenni akkor jó lesz.
Próbáld ki ha számot irsz be és vessző helyett pontot irsz akkor írja ezeket a hülyeségeket.Azért nem jó ponttal, mert a pont az írásjel és nem tizedesvessző! Ez miatt volt a hiba?
Azon viszont gondolkodok hogyan tudnád megoldani a másik problémád. Érdekes kérdés. De engem is érdekelne. -
Hali!
Nos, nem biztos hogy jól értelmezem, hogy mit is akarsz, de én igy próbáltam, és jó is:
Sub txtText_lostfocus()
Dim tmp As String
tmp = txtText
tmp = Format(tmp, ''YY,MM,DD'')
txtText.Text = tmp
End Sub
De lehet félreértettem vmit.
Amugy a 35620 szám az egy értelmes dátum formátum. Ez a szám a 1997.07.09
dátumot takarja. Excelben meg is nézheted. Beirod egy cellába ezt a számot és dátumformátumot adsz neki.
Nos remélem tudtam segíteni és nem mondtam hülyeséget. -
Erre varjatok gombot, már mindjárt szétütöm a gépet ezt miért csinálja
sub txtText_lostfocus
dim tmp as string
tmp=txtText
tmp=Format(tmp,''######0.00'')
txtText=tmp
end sub
és ha alapban 1.00 van benne akkor mikor lelépek vmi 35620.00 számot ad be
de miért?
Már variáltam több stringel átpakolom egyik változóból a másikba de hiábaHali!
Nos, nem biztos hogy jól értelmezem, hogy mit is akarsz, de én igy próbáltam, és jó is:
Sub txtText_lostfocus()
Dim tmp As String
tmp = txtText
tmp = Format(tmp, ''YY,MM,DD'')
txtText.Text = tmp
End Sub
De lehet félreértettem vmit.
Amugy a 35620 szám az egy értelmes dátum formátum. Ez a szám a 1997.07.09
dátumot takarja. Excelben meg is nézheted. Beirod egy cellába ezt a számot és dátumformátumot adsz neki.
Nos remélem tudtam segíteni és nem mondtam hülyeséget. -
sonar
addikt
Erre varjatok gombot, már mindjárt szétütöm a gépet ezt miért csinálja
sub txtText_lostfocus
dim tmp as string
tmp=txtText
tmp=Format(tmp,''######0.00'')
txtText=tmp
end sub
és ha alapban 1.00 van benne akkor mikor lelépek vmi 35620.00 számot ad be
de miért?
Már variáltam több stringel átpakolom egyik változóból a másikba de hiába -
Igen és ha vki elüt egy betüt akkor micsinál?
Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne
átláthatóbb később könnyebb módosítani
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
call beolvas
sub beolvas
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$ -
Megvan a megldás a kérdésemre ily késői órán!
Szal csak annyi hogy előre betöltöm a sorokat aztán hivatkozok rájuk!
Private Sub Combo1_Click()
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$
Close #1
End If
If Combo1.Text = ''Angol'' Then
Open ''c:\2.txt'' For Input As #2
Line Input #2, cimke1$
Line Input #2, lab1$
Line Input #2, lab2$
Line Input #2, lab3$
Line Input #2, txt1$
Line Input #2, txt2$
Close #2
End If
Me.Caption = cimke1$
Label1.Caption = lab1$
Label2.Caption = lab2$
Label3.Caption = lab3$
Text1.Text = txt1$
Text2.Text = txt2$
End Sub
Private Sub Form_Load()
Combo1.AddItem ''Magyar''
Combo1.AddItem ''Angol''
End Sub
Ha kiválsztom a nyelvet egyből beírja azon a nyelven! De ügyes vagyok!
Erre rájöhettem volna előbb is nem?Igen és ha vki elüt egy betüt akkor micsinál?
Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne átláthatóbb később könnyebb módosítani
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
call beolvas
sub beolvas
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$ -
Polyák
tag
Megvan a megldás a kérdésemre ily késői órán!
Szal csak annyi hogy előre betöltöm a sorokat aztán hivatkozok rájuk!
Private Sub Combo1_Click()
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$
Close #1
End If
If Combo1.Text = ''Angol'' Then
Open ''c:\2.txt'' For Input As #2
Line Input #2, cimke1$
Line Input #2, lab1$
Line Input #2, lab2$
Line Input #2, lab3$
Line Input #2, txt1$
Line Input #2, txt2$
Close #2
End If
Me.Caption = cimke1$
Label1.Caption = lab1$
Label2.Caption = lab2$
Label3.Caption = lab3$
Text1.Text = txt1$
Text2.Text = txt2$
End Sub
Private Sub Form_Load()
Combo1.AddItem ''Magyar''
Combo1.AddItem ''Angol''
End Sub
Ha kiválsztom a nyelvet egyből beírja azon a nyelven! De ügyes vagyok!
Erre rájöhettem volna előbb is nem? -
Polyák
tag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve]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 -
[HUN]Zolee
őstag
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.
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve] -
Polyák
tag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve]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. -
[HUN]Zolee
őstag
Hali sonar!
Köszi! Még jól jöhet!
Lenne egy kérdésem is:
A legtöbb programban lehet nyelvet válsztani. Ezt sok ugy csinlálja hogy van egy pl. hungarian.ini fájl és abban vannak a szavak. Valahogy így:
[Form1]
SpeedButton4=Beállítás ''L''
SpeedButton5=Réteg előnézet ''K''
SpeedButton6=Render ''J''
SpeedButton11=100
SpeedButton12=OK
Label13=100%
SpeedButton14=Stop
SpeedButton15=Kijelölés eleje ''F''
SpeedButton16=Kijelölés vége ''T''
CheckBox1=Auto előnézet ''U''
CheckBox3=Auto render
CheckBox6=Nagyít
TabSheet1=Effekt
Label1=Szín:
Label2=Vastagság 1:
Label3=Vastagság 2:
SpeedButton1=...
Label7=Fényesség:
Label10=Penge:
SpeedButton2=...
Label11=Üres
Label12=Üres
Label14=0 ms
Label25=Elmosás:
Label26=Ív:
Label27=Elmosás:
Label28=Ív:
CheckBox10=
CheckBox11=
...
Ezt egy program magyar.ini állományából másoltam ki.
Hogyan tudok hivatkozni ezekre a cimkékre? Először ugy probáltam ahogy régebben mondtad nekem.
Line Input #filenum, sor
De ez egy sort olvas be. Ha mondjuk a 213.sort akarom előhívni akkor 213x kell előhívnom a parancsot. De ez nem igazán praktikus.
Hogyan tunék én ezekre a cimkékre hivatkozni?
Remélem te tudod, vagy valaki tudja.
A választ előre is köszi!
[Szerkesztve]Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve] -
Sziasztok, ha vkinek szüksége lenne valaha a funkció gombok használatára akkor
mentse le ezt a forrást.
Az időzítőt én 100-200 ra szoktam állítani, lassúbb gépen elég a 200 is bár nem vettem
észre, hogy zabálná a procit. Kell egy Text box is (Text1 néven, a gyengébbek kedvéért)
és abba lehet figyelni,hogy éppen milyen funkció billentyű lett lenyomva.
üdv sonar
Option Explicit
Private Declare Sub keybd_event Lib ''user32'' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib ''user32'' (ByVal vKey As Long) As Integer
'******************Function Key*******************
Private Const VK_F1 = &H70
Private Const VK_F2 = &H71
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Sub Form_Load()
Call FunctionClear
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then
Text1 = ''F1'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F2) Then
Text1 = ''F2'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F3) Then
Text1 = ''F3'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F4) Then
Text1 = ''F4'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F5) Then
Text1 = ''F5'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F6) Then
Text1 = ''F6'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F7) Then
Text1 = ''F7'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F8) Then
Text1 = ''F8'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F9) Then
Text1 = ''F9'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F10) Then
Text1 = ''F10'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F11) Then
Text1 = ''F11'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F12) Then
Text1 = ''F12'' & vbCrLf & Text1
End If
End Sub
Public Sub FunctionClear()
' Azért kell mert első induláskor néha marad bent vmi szemét és egy üres
' kiolvasással megszűnik ez a probléma
GetAsyncKeyState (VK_F1)
GetAsyncKeyState (VK_F2)
GetAsyncKeyState (VK_F3)
GetAsyncKeyState (VK_F4)
GetAsyncKeyState (VK_F5)
GetAsyncKeyState (VK_F6)
GetAsyncKeyState (VK_F7)
GetAsyncKeyState (VK_F8)
GetAsyncKeyState (VK_F9)
GetAsyncKeyState (VK_F10)
GetAsyncKeyState (VK_F11)
GetAsyncKeyState (VK_F12)
End SubHali sonar!
Köszi! Még jól jöhet!
Lenne egy kérdésem is:
A legtöbb programban lehet nyelvet válsztani. Ezt sok ugy csinlálja hogy van egy pl. hungarian.ini fájl és abban vannak a szavak. Valahogy így:
[Form1]
SpeedButton4=Beállítás ''L''
SpeedButton5=Réteg előnézet ''K''
SpeedButton6=Render ''J''
SpeedButton11=100
SpeedButton12=OK
Label13=100%
SpeedButton14=Stop
SpeedButton15=Kijelölés eleje ''F''
SpeedButton16=Kijelölés vége ''T''
CheckBox1=Auto előnézet ''U''
CheckBox3=Auto render
CheckBox6=Nagyít
TabSheet1=Effekt
Label1=Szín:
Label2=Vastagság 1:
Label3=Vastagság 2:
SpeedButton1=...
Label7=Fényesség:
Label10=Penge:
SpeedButton2=...
Label11=Üres
Label12=Üres
Label14=0 ms
Label25=Elmosás:
Label26=Ív:
Label27=Elmosás:
Label28=Ív:
CheckBox10=
CheckBox11=
...
Ezt egy program magyar.ini állományából másoltam ki.
Hogyan tudok hivatkozni ezekre a cimkékre? Először ugy probáltam ahogy régebben mondtad nekem.
Line Input #filenum, sor
De ez egy sort olvas be. Ha mondjuk a 213.sort akarom előhívni akkor 213x kell előhívnom a parancsot. De ez nem igazán praktikus.
Hogyan tunék én ezekre a cimkékre hivatkozni?
Remélem te tudod, vagy valaki tudja.
A választ előre is köszi!
[Szerkesztve] -
[HUN]Zolee
őstag
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.Egész jó ötlet. meglássuk hogy tudom összehozni 7 be
kösz -
sonar
addikt
van egy ilyen típusu tömböm :
Structure ttipus
Dim id As Integer
Dim nev As String
Dim aber As Integer
Dim tber As Integer
Dim tszam As Integer
End Structure
ezt hogy tudom fáljba menteni, és visszaolvasni?
VB 7 be kell megoldani.
[Szerkesztve] -
[HUN]Zolee
őstag
-
Polyák
tag
Megvan a megoldás!
Forrkód:
Option Explicit
Dim fMouseDown_X As Single
Dim fMouseDown_Y As Single
Dim bMOUSE_DOWN As Boolean
Private Sub Form_Load()
Me.ScaleMode = vbPixels
Me.BackColor = vbBlack
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
bMOUSE_DOWN = True
fMouseDown_X = X
fMouseDown_Y = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bMOUSE_DOWN Then
Dim oldDW As Long
Dim oldFC As Long
oldDW = Me.DrawWidth
oldFC = Me.ForeColor
Me.DrawWidth = 3
Me.ForeColor = vbRed
Me.Line (fMouseDown_X, fMouseDown_Y)-(X, Y)
fMouseDown_X = X
fMouseDown_Y = Y
Me.DrawWidth = oldDW
Me.ForeColor = oldFC
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bMOUSE_DOWN = False
End Sub
Ez a formra rajzol, de PictureBox-ra is lehet vele. Egy üres form-ba illeszd be.
Tök jó! Nem pöttyöz!! 
[Szerkesztve] -
Polyák
tag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End If -
[HUN]Zolee
őstag
Hali!
Van egy gondom!
Ha rajzolok PictureBox-ba, nem folyamatosan húzza a vonalat hanem pöttyöket rajzol. Főleg ha gyorsan rajzolok. Ennek biztos hogy így kell működni? Vagy valamit már megint nem értek?
A formon csak egy PictureBox van, a neve kep
Private Sub Form_Load()
kep.DrawWidth = 5 'vonalvastagság
End Sub
Private Sub kep_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
kep.PSet (X, Y)
End If
End Sub
Hogy tudom ezt megoldani?
Előre is köszi! -
Polyák
tag
Hali!
Van egy gondom!
Ha rajzolok PictureBox-ba, nem folyamatosan húzza a vonalat hanem pöttyöket rajzol. Főleg ha gyorsan rajzolok. Ennek biztos hogy így kell működni? Vagy valamit már megint nem értek?
A formon csak egy PictureBox van, a neve kep
Private Sub Form_Load()
kep.DrawWidth = 5 'vonalvastagság
End Sub
Private Sub kep_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
kep.PSet (X, Y)
End If
End Sub
Hogy tudom ezt megoldani?
Előre is köszi! -
Polyák
tag
6-ba könnyebb rajzolni , majd teszek fel netre leírást, ha megtalálom otthon.
Nagyon Köszi!
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
Polyák
tag
oda még nem próbáltam rajzolni csak simán a form-ra.
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
Polyák
tag
Hello!
Elég amatőr kérdésem van. Csináltam egy képszerkesztőt a visualben, minden fayán működik, csak azt nem tudtam megcsinálni , hogy a létrejött képet, hogyan lehetne lementeni. Vki segítsen!!!!! Köszi!Pont most tudtam meg én is
Ha PictureBox-ba szerkeszted a képet, akkor ez jó lesz:
Private Sub Command1_Click()
CommonDialog1.Showsave
SavePicture Picture1.Image, CommonDialog1.FileName
End Sub
De hozzá kell adni az összetevőknél a ''Microsoft Common Dialog Control''-t. (COMDLG32.OCX) Be kell csak simán szúrni egy CommonDialog-ot és erre kell hivatkozni a kép mentésekor.
Ennyi az egész!
[Szerkesztve] -
matekmatika
tag
-
Kilimanjaro
csendes tag
Hello!
Elég amatőr kérdésem van. Csináltam egy képszerkesztőt a visualben, minden fayán működik, csak azt nem tudtam megcsinálni , hogy a létrejött képet, hogyan lehetne lementeni. Vki segítsen!!!!! Köszi! -
Sziasztok!
VB6- ban List.Box-ba bevitt szöveget hogyan tudom tördelni?
A ''vbCrLf'' nem működik itt. -
matekmatika
tag
Sziasztok!
VB6- ban List.Box-ba bevitt szöveget hogyan tudom tördelni?
A ''vbCrLf'' nem működik itt. -
Pedig nekem müxik. Lehet vmit félre gépeltem v gépeltél
ha jól emléxem vessző kell az image és fájlnév közé
[Szerkesztve]Müködik meg minden jó, de sajnos nem úgy ahogy én akartam.
Annak a PictureBox-nak a tartalmát menti el amiben a többi PictureBox van de azokat nem. Sajnos. Marad a PrintScreen.
Amugy kösz! Már ezt is tudom hogyan kell! -
Pedig nekem müxik. Lehet vmit félre gépeltem v gépeltél
ha jól emléxem vessző kell az image és fájlnév közé
[Szerkesztve]Megvan hogy mi volt a baj. A CommonDialog-nak CommonDialog1 a neve, a PictureBox-nak meg Picture1
Így jó:
CommonDialog1.Showsave
SavePicture Picture1.Image, CommonDialog1.FileName
EXTRA NAGY THNX!!!!
Müxik!!!! -
Próbáltam vágólapra másolni, de nem igazán azt csinálta amit akartam. Képet mentett vágólapra (Paint-ba illesztettem be), de nem az a kép volt ami a PictureBox-ban van, hanem egy VB ikon.
Private Sub Command1_Click()
Clipboard.SetData Picture1.Picture
End Sub
Vagy nem ezt kellet volna csinálnom? Szöveggel müxik.
Clipboard.SetText Text1.Text
De képpel miért nem?
mod: helyesírás és fogalmazás
[Szerkesztve] -
Én passzolok, sose foglalkoztam PictureBox-al ilyen mélységig, de szerintem bmp-be vhogy ki lehet menteni.
Próbáltam vágólapra másolni, de nem igazán azt csinálta amit akartam. Képet mentett vágólapra (Paint-ba illesztettem be), de nem az a kép volt ami a PictureBox-ban van, hanem egy VB ikon.
Private Sub Command1_Click()
Clipboard.SetData Picture1.Picture
End Sub
Vagy nem ezt kellet volna csinálnom? Szöveggel müxik.
Clipboard.SetText Text1.Text
De képpel miért nem?
mod: helyesírás és fogalmazás
[Szerkesztve] -
Lenne egy kérdésem. (lehet hogy most hülyének fogtok nézni!
)
Van egy PictureBox-om. Abban van több PictureBox. Ezekből a kis PictureBox-okból kialakul egy kép a nagyobb PictureBox-ban.
Nos, ezt a kialakult képet ki lehet valahogy menteni? Vagy legalább vágólapra másolni? Vagy hülyeséget kérdeztem? Épp ezzel próbálkozok.
(Késő este ... holnap suli
)
A válasz(oka)t köszönöm!
[Szerkesztve]Print Screen
-
Polyák
tag
Lenne egy kérdésem. (lehet hogy most hülyének fogtok nézni!
)
Van egy PictureBox-om. Abban van több PictureBox. Ezekből a kis PictureBox-okból kialakul egy kép a nagyobb PictureBox-ban.
Nos, ezt a kialakult képet ki lehet valahogy menteni? Vagy legalább vágólapra másolni? Vagy hülyeséget kérdeztem? Épp ezzel próbálkozok.
(Késő este ... holnap suli )
A válasz(oka)t köszönöm!
[Szerkesztve]
![[HUN]Zolee](http://cdn.rios.hu/dl/faces/c11.gif)
átláthatóbb később könnyebb módosítani
Ha PictureBox-ba szerkeszted a képet, akkor ez jó lesz:
)
Új hozzászólás Aktív témák
- Bomba ár! Lenovo ThinkPad X390 - i7-8G I 16GB I 256SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Akciós kisWorkstation! Dell Precision 3570 i7-1255U 4.7GHz / 16GB / 512GB / Quadro T550 4GB FHD 15"
- Dell Latitude 5400 14" FHD IPS, i5 8365U, 8-16GB RAM, SSD, számla, 6 hó gar
- BESZÁMÍTÁS! GIGABYTE B650E R9 7900X 64GB DDR5 1TB SSD RTX 5080 16GB NZXT H9 Flow White Corsair 850W
- Honor X7a 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest