Új hozzászólás Aktív témák
-
KrAt
veterán
Nagyon kezdő vagyok még (ma kezdtem) de vki segítene?
Miért lép tovább akkor, ha az egyik (akármelyik) textbox-ba (x2, x, cons) semmit nem írok, pedig ott van, ha a textlenght = 0, akkor írjon hibaüzenetet..
Kód:
If x2.TextLength = 0 Then
adathiany.Show()
End If
If x.TextLength = 0 Then
adathiany.Show()
End If
If cons.TextLength = 0 Then
adathiany.Show()
End If
If x2.Text = 0 Then
x2biztos.Show()
x2igen.Show()
End If
If x.Text = 0 Then
xbiztos.Show()
xigen.Show()
End If
If cons.Text = 0 Then
consbiztos.Show()
consigen.Show()
End IfMit rontottam el? Pedig az alsó 3 kódrészlet működik (ha az érték 0, akkor kérdezzen rá)
[ Szerkesztve ]
-
[HUN]Zolee
senior tag
Azért nem jó ez így, mert egyik feltétel sem kapcsolódik a másikhoz.
If x2.TextLength = 0 or x.TextLength = 0 or cons.TextLength=0 Then
adathiany.Show()
else {
If x2.Text = 0 Then
x2biztos.Show()
x2igen.Show()
End If
If x.Text = 0 Then
xbiztos.Show()
xigen.Show()
End If
If cons.Text = 0 Then
consbiztos.Show()
consigen.Show()
End If
}
End IfValahogy így kellene kinézni, de én már régóta nem programoztam VB-ben
[ Szerkesztve ]
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
ArchElf
addikt
Inkább próbáld ki így:
If x2.Text = "" Then
adathiany.Show()
End If
If x.Text = "" Then
adathiany.Show()
End If
If cons.Text = "" Then
adathiany.Show()
End IfAE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
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..
[ Szerkesztve ]
-
[HUN]Zolee
senior tag
-
KrAt
veterán
válasz [HUN]Zolee #1007 üzenetére
Áhá, értem mit basztam el.. Kezdek megvilágosodni..
[ Szerkesztve ]
-
shift+ő
senior tag
Szaisztok
ACCESS 2007 VBA a környezet.
Szeretném elérni azt, hogy amíg végrehajtódik egy SELECT, addig program végrehajtás ne álljon le, és tudjam vizsgálni, hogy a select fut-e még.
-
Boolash
aktív tag
Sziasztok!
Fontos lenne!
Ezzel mi lehet a hiba?Sub elso()
Dim i, j As Integer
For i = 1 To 65536
For j = 1 To 1000
If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
Else
Munka1.Cells(i, j).Interior.ColorIndex = 27
End If
Next j, i
End SubEz a sor nem jó: If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
merthogy application/object defined error....
De miért?
Hogy kellene?Egyébként azt csinálja, hogy 2 munkalapot összehasonlít, és ahol különbözik a kettő, azt sárgával megjelöli.
Köszi!
-
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! -
[HUN]Zolee
senior tag
válasz Boolash #1015 üzenetére
Nemtudom. De én úgy szoktam megtudnia a parancsokat, hogy elindítok egy makró rögzítést és megadom a függvényt ami kell nekem beépítetből, így szépen lementi a mscro verzióját.
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Boolash
aktív tag
válasz [HUN]Zolee #1016 üzenetére
Okés, megvan minden! Köszi!
Egyébként: ActiveCell.SpecialCells(xlLastCell).Select -
Noobi
tag
Sziasztok!
Egy kis segítségre lenne szükségem VB-ben...
Az office word-jébe beépített Visual Basic-et használom, és nem tudom, hogy lehetne n-ig kiíratni az ikerprímeket... (az n-ig prím megy)
Előre is köszönöm a választ! -
NoLF
addikt
üdv, pénzügyi suliba járó barátnőm kapott egy kis házit, visual basicben kell megoldani néhány részletet belőle, de nem igazán ért(ünk) hozzá. tudna segíteni valaki?
The Institute of Unfinished Research has concluded that 6 out of 10 people
-
lúzer
veterán
üdv!
mi az opendialog, savedialog -szerű fájlkezelő abak vb-ben?MO. RIP. - az utolsó kapcsolja le a villanyt.
-
Polyák
tag
CommonDialog. az összetevők közt Microsoft Common Dialog Control néven van. (COMDLG32.OCX)
.showcolor = szinek ablak
.showopen = megnyitás ablak
.showsave = mentés ablak
stb...(remélem erre gondoltál )
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
lúzer
veterán
valaki kipróbálná hogy nála megy?
MO. RIP. - az utolsó kapcsolja le a villanyt.
-
VIC20
őstag
Sziasztok! Van valakinek ötlete az alábbi problémához?
Szeretnék külső programot meghívni egy VB programban, konkrétan egy RAR-os tömörítést szeretnék csinálni (biztonsági mentés). Van ugye ez a Shell() függvény, de az, ha jól tudom, nem várja meg, amíg a külső program lefut, és a visszatérési értéket sem adja vissza (errorlevel vagy ilyesmi).
Van valakinek megoldása? Köszi előre is!
-
Glean
csendes tag
Sziasztok!
A minap nagy problémával találtam szembe magam, amiben a segítségeteket szeretném kérni:
Visual Basic 2005-ben fejlesztek egy robotvezérlő/képelemző szoftvert, és egy Directx-es Joystick vezérlés is van benne.
Ehhez referenciának be kellett adnom 2 file-t:
Microsoft.DirectX.dll
Microsoft.DirectX.DirectInput.dllA program működik lefordítva, de debug módba folyton warningokat dob, és nagyrészben ki is fagy.
A következő hibaüzenetet kapom:DLL 'C:\WINDOWS\assembly\GAC\Microsoft.DirectX.DirectInput\1.0.2902.0__31bf3856ad364e35\Microsoft.DirectX.DirectInput.dll' is attempting managed execution inside OS Loader lock. Do not attempt to run managed code inside a DllMain or image initialization function since doing so can cause the application to hang.
Ha valaki tudja mi a probléma, nagyon megköszönném a segítséget!
Üdv: Glean
Gaben
-
VIC20
őstag
Tapasztal VB programozók, tudtok segíteni?
Ha készítek egy programot, amit aztán föltelepít valaki, honnan fogja tudni az a program, hogy hova telepítették, milyen elérési úton keresse a konfigurációs fájlt, meg az adatfájlokat, amikkel majd dolgozni fog? Hogyan kell ezt beírni a kódba?
[ Szerkesztve ]
-
ArchElf
addikt
Kérdés, hogy hogyan telepítették föl... Mondjuk a legegyszerűbb megoldás a registry (telepítéskor beíródik oda minden adat, ami neked kell), de lehet egy text file is a programod mellett. Mindenesetre ez nagyban függ attól, hogy te írod a telepítőt is, vagy valami szabvány telepítőbe teszed bele a programod.
Amúgy az alkalmazás le tudja kérdezni a környezeti változóit. Pl mi a futtatott fájl elérési útvonala, mi van megadva "start in" könyvtárnak a linkjében, ha azzal indították, ésatöbbi...AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
VIC20
őstag
válasz ArchElf #1035 üzenetére
Hát, igen, az első megoldás az lenne, hogy összecsomagolom, és használati utasításként mellé írom, hogy a c:\xyz könyvtárba KELL kitömöríteni, és csak oda, mert máshol nem működik. (Bár ez nem igazi megoldás.)
Valami szabvány telepítőre gondoltam; gondoltam, azzal nem lesz sok gond. Tartalmaznak az ilyenek valami módszert a registry írásra vagy más effélére?
[ Szerkesztve ]
-
ArchElf
addikt
A Visual Studionak van saját installere (persze nem az Express változatnak), de lehet válogatni a piacon is bőséggel (de ha van egy 1 órád, vagy fél napod, te is összedobhatsz egy alap telepítőt a programodhoz)... Anno használtam VB6-hoz is a beépített installer plugint (bár azért az kicsit már a szenvedés határát súrolta).
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
ArchElf
addikt
Épp azt írtam, hogy ez program és installer függő. Vagy célszerű tudnia programodnak, hogyan működik az installer (hova milyen adatokat ír), vagy pedig csak egyszerűen le kell kérdeznie a futó folyamat indítási könyvtárát.
Amúgy az alkalmazásodba ne statikus, hanem relatív útvonalat használj. Tudom, hogy ez problémás a fejlesztéskor, mert alapból VB könyvtárában keresi a fájlokat, ha egy projektet indítasz, nem a projekt könyvtárában, de ezt is meg lehet kerülni.AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
VIC20
őstag
válasz ArchElf #1039 üzenetére
Igen, ebbe a statikus-dinamikus dologba én is beleszaladtam, még az elején, így egyelőre statikus maradt. Az vigasztal, hogy a végén elég egyszerűnek ígérkezik lecserélni relatívra.
Lehet, hogy lamerség, de azért megkérdem, hol találom konkrétan a futó folyamat indítási könyvtárát? Köszi!
-
VIC20
őstag
Nem valami App.Path ?
-
ArchElf
addikt
De (vagy CurDir???)
Amúgy ha jól rémlik ezt azt adja meg, ami:
1)
Ha magát az exe-t indítottad el, az a könyvtár, ahol az exe van
2)
Ha shortcut-ot indítottál, az a könyvtár, ami a shortcut "start in" mezőjében szerepel. Ha a start in könyvtár nem érvényes, akkor asszem a %windir% környezeti változó lesz az értéke (ami leggyakrabban c:\windows, de ez is telepítésfüggő)Úgy rémlik, hogy a VisualBasic IDE-t úgy lehet "átvágni", hogy ne a c:\program files\... legyen a start in könyvtár a projektnél, hanem a projektkönyvtár, hogy nem az IDE-ből indítod el a projektedet, hanem közvetlenül a projekt fájl megnyitásával. Elég régen használtam már VB6-ot nem vagyok benne biztos.
AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
VIC20
őstag
válasz ArchElf #1042 üzenetére
Köszi a tippeket!
Egyébként most miben programozol? Fejlettebb VB-ben, vagy úgy általában abbahagytad a VB-t? Csak azért kérdeztem, mert én most ezen gondolkodom. Megpróbáltam egy projektet átvinni VB2005 alá, de nem sikerült. Annyival eltérnek az újabb verziók? Annyira, hogy gyakorlatilag újra kell tanulni a programozásukat? Megéri?
-
Goose-T
veterán
A VB6 után már a VB.NET jött, és nagyon eltér a régi verzióktól, tényleg újra kell tanulni. Mondjuk szerintem megéri, mert sokkal többet tud. Érdekes, hogy még VB6-ot használsz, az már egy tíz éves őskövület.
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
ArchElf
addikt
Az utasítások eléggé különböznek, de azt szoktam mondani, hogy ha az ember nem "szemellenzősen" tanul programozni, az egyik nyelvről egy másikra való váltás csak napok/hetek kérdése. A váltásnál a legnagyobb nehézség a megszokások lerázása (alap változótípusok megtanulása, alap műveleti típusok formázása, programfelépítés), a többi csak arról szól, hogy nem a-nak hívják a függvényt, hanem b-nek, és nem három argumentuma van, hanem négy
Amúgy ezekben aktívan programozok, azt azért nem merem mondani, hogy fejlesztek
C#
PHP
VBS
Ezekben meg nem aktívan, csak ha úgy hozza az igény:
VB.NET
ASP.NET
Java
VB6
C/C++AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
puncspuding
csendes tag
Nem hozzáértőként szeretném megkérdezni, hogy lehet-e VB-ben olyan programot írni, ami egy beírt szöveg alapján emulál billentyűzet leütéseket bármilyen programban?
Gondolok arra, hogy egy rendkívül nehézkesen kezelhető adatbáziskezelő programba automatikusan beírná azokat az adatokat (ehhez szükség van TAB és ENTER leütésekre is), amiket én megadok a programnak. A billentyűzet leütések szekvenciáját meghatároznám VB-ben. Lehet, hogy hülye kérdés, programozni nem tudok, de gyorsan tanulok, köszi.
-
DerStauner
senior tag
válasz puncspuding #1046 üzenetére
használd a SendKey-t
többek között itt is körülnézhetsz.
ennek persze előfeltétele, hogy az adatbázist kezelő alkalmazás legyen az aktív
[ Szerkesztve ]
-
puncspuding
csendes tag
válasz DerStauner #1047 üzenetére
Köszi szépen a segítséget, megnézem, csak utána kell olvasnom a visual basicnek is .
Gondolom, hogy a sendkeys parancsba beépíthetek változó elemeket is, tehát olyat, amiknek az értékét én adom meg a program használata során.
Pl. beírok egy szót egy beviteli mezőbe, a program pedig beírja ezt a szót egy másik programba. Ha ez sikerülne, utána még tovább kéne bonyolítani a dolgot, de egyelőre eddig szeretnék eljutni. -
NoLF
addikt
hi
az lenne a kérdésem, hogy konkrétan mi az a rutin?
meg tudná valaki fogalmazni?
The Institute of Unfinished Research has concluded that 6 out of 10 people
Új hozzászólás Aktív témák
- HP Probook 340S G7 i5-1035G1/8GB/256SSD/Windows 11 -10% Csak ameddig a készlet tart!89.780 Ft
- iPhone 14 Pro 128 GB Space Black, 11 hónapos, kártyafüggetlen, 2024. május végéig garis , akku 91%
- Asus VivoBook X509JA-BQ904T
- HP EliteBook 640 G9 Ezüst (14" / Intel i5-1235U / 16GB / 512GB SSD / Win 11 Pro) -10% Most 203.990 F
- Lenovo M810z AIO Core I5 6400 4x2700/8GB/120G SSD/wifi/cam 21,5 -10% 66.950 ft