- Samsung Galaxy Note20 Ultra - a tollnak nincs ellenfele
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Újabb Samsungok telepíthetik a Galaxy AI-t
- Samsung Galaxy S24 - nos, Exynos
- Vodafone-ra áttért Digi Mobilosok
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Mindent megtudtunk az új Nokia 3210-ről
- Apple iPhone 15 Pro Max - Attack on Titan
- Egyre közelebb a Poco F6 startja
- iPhone topik
Hirdetés
-
Mozgásban az F1 24
gp A Forma 1 versenyek rajongói hamarosan végre belevethetik magukat az idei epizódba.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Letartóztatták a bitcoin-Jézust
it Amerikai adókerülés vádjával, Spanyolországban tartóztatták le a bitcoin-Jézusként ismert Roger Vert.
Új hozzászólás Aktív témák
-
sonar
addikt
-
[HUN]Zolee
senior tag
mi köze az SP2-nek a VB hez?
Nekem SP1 van fent.
sonar köszi. Most amit tudok azt megírom vb6-ba. majdmegy mail-be a forráskód meg ami még kell.
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
-
sonar
addikt
Hát ránéztem tegnap meccs közbe, de igen kusza a dolog.
egyszer nézd át a mixer.bas ba a hangerő részt. Ott egy csomó komponens van ami nincs is. És ott ha jól emléxem vmi más scrollbar-t használsz mint a frm-on. Ha azt megnézed szerintem jó lesz, mert ott állítja a balancot.
Aztán így ennyire tellett.
No megha kikommentezed akkor magad is rájössz a hibákra. Én legalábbis úgy szoktam a hibáimat keresni.
[Szerkesztve]A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
-
sonar
addikt
Ezt az oldalt nem is ismertem, de jó
Igazából ahogy mondják nem érdemes senkit se utánozni, mert akkor csak második lehet az ember de vmi hasonlóra gondoltam. Aztán meg elsőre ugyse lesz tökéletes.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Szeva!
Megnéztem a progit. A design nagyon bejön.
Bár ahogy a read.me-t elolvastam nem volt egy nehézz program.
Még esetleg olyannal ki tudnád egészíteni, hogy csak számokat lehessen
az adott mezőbe írni, a rang+hsz mezőbe meg ne lehessen írni.
+ ha nincs meg a readme fájl akkor ne runtime erroral száljon el.
De ezek tényleg csak apróságok.
Más:
Azt nem tudja vki, hogy paramétert hogyan vesz át az exe?
pl.: mint bach programozásnál a %1
vagy mint a notepad is megeszi ha azt irom be, hogy:
notepad c:\sss.txt akkor megnyitja, ha nem létezik akkor létre hozza.
Hogyan tudom én ezt a paramétert/kapcsolót lekezelni?
Erre nincs vkinek tutorja vagy akármilye?
Már fél netet feltúrtam de sehol semmi használhatót nem találtam.
üdv sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
-
sonar
addikt
webbrowserbe tölsd be, ezt most csak rögtönöztem de vhogy igy kell
Public Sub ShowAnimatedGIF()
Dim sHTML As String, ut as string
' ut = a gif helye
sHTML = ''about:'' & _
''<html>'' & _
''<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll=no>'' & _
''<img src='''''' & ut & ''''''></img></body></html>''
.Silent = True
.Navigate sHTML
End SubA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Nem bonyolult ez, annyira. Csak a html tagot mindenképpen hozzá kell vágni.
Portál dolog is alakul csak még van pár kérdés amit meg kell fontolnom meg el kell intézni és már mehet is a dolog.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
az az igazság, hogy szeptemberig sztem nem lesz belőle semmi.
Heti 2xer angolra járok munka után, meg most melóba is hajtás van. Mert szept 1ig át kell adni egy rendszert... emiatt mondtam le egy Németországi nyaralást is
de nincs elfelejtve a project!A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
[HUN]Zolee
senior tag
-
MODERÁTOR
Használd az inStr és az inStrRev kereső funkciókat
pl: mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
ha a filename =''e:\kepek\vegyes\uj.jpg''
akkor a végeredmény uj.jpg lesz
A meghajtó betűjelét nagyon egyszerű megállapítani (ugye csak az első karaktere a filenévnek), a maradékot meg e kettő levágásából kapod.
Egyébként ez VBScript, de gondolom VB-ben is ugyanígy kell használni.
[Szerkesztve]***
-
Jester01
veterán
1. mert a \ után következő kartaktertől akarod visszakapni a stringet
2. oda a hossz kerül, csak kihasználta, hogy a string hosszánál nagyobb számot is oda lehet írni
3. a rev az hátulról keres
Amúgy ilyesmire a Scripting.FileSystemObject és társai valók. Pl:
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename);
és utána az f tulajdonságait (Drive, Path, Name) tetszés szerint használhatod.Jester
-
MODERÁTOR
Eccerű, a VB egy objektum orientált (khmm, inkább objektum alapú) nyelv. Egy objektum viszont önmagában csak akkor fog létezni ,ha először létrehozzuk, erre szolgál a Set parancs. Na most a filerendszer is önmagában egy objektum, és ez az objektum tartalmazza pl a fileokat, a megnyitó (open) parancsot, stb.
A te példádban az fso csak az objektum neve, ez bármi lehetne.***
-
sonar
addikt
vb6
C nekem azért lenne praktikus mert progizok néha mikorvezérlőket is és asm-mel kiegészítve hatékony lenne. Amugy semmi bajom nem lenne az egésszel ha nem ilyen szarul lenne megcsinálva.
A frameworkel is az a bajom,hogy nekem sok régi gyengébb gépre kell kódolnom és ott eszméletlen lassú v nem is fut...A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
-
Gh0sT
addikt
Nah, akkor felvázolom a teljes feladatot:
Timert használok, de nem erre. Egy adatbázishoz nyúlok hozzá meghatározott időközönként és futtatok le egy lekérdezést. Erre kell nekem a timer. A timer_tick eseményen belül kell a formot popup ablakként felvillantanom. Viszont nem tudom, hogy timeren belül lehet-e még egy timert aktiválni, ráadásul szerintem 100% lenne a proci terheltség.Soha nem késő, hogy azzá válj, aki lehettél volna.
-
Möhönce
csendes tag
Üdv!
A hibakód: 429 Runtime error
A program egy másik alkalmazást vezérel SendeKeys-ekkel. (Aminek a Windows neve zárójelben van a Tasks-nál. Ez elvileg bármi lehet ami éppen fut, pl. ''Számológép''.)
Word-ben csináltam aztán VB6-tal is rendben volt sokáig. Ennek már 6 éve most meg egyikben sem megy ez az egyetlen sor.
Probáltam win98 alatt is a régi gépemen ugyanúgy ahogy akkoriban lehetett de teljesen ugyanez az eredmény.
Annyira jutottam összesen hogy beíráskor csak akkor jelenik meg a Tasks() paramétere, ha a References ablakban kijelölöm a Microsoft word Object Libraryt.
Talán valamilyen objektum vagy referencia kellhet ami régen megvolt most meg hiányzik? -
[HUN]Zolee
senior 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]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior 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]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior 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]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
Új hozzászólás Aktív témák
- Samsung Galaxy Note20 Ultra - a tollnak nincs ellenfele
- btz: Internet fejlesztés országosan!
- Formula-1
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Újabb Samsungok telepíthetik a Galaxy AI-t
- Kerékpárosok, bringások ide!
- Letartóztatták a bitcoin-Jézust
- Lakáshitel, lakásvásárlás
- Samsung Galaxy S24 - nos, Exynos
- Vodafone-ra áttért Digi Mobilosok
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest