olvasom softwareonline.hu-t, erre ezt látom Minden cikk ingyenesen elolvasható! ez nagyon király, használjátok ki! én annó tíz-ezreket fizettem a könyvért és a cd-ért kezdõk, haladók, mindenkinek csak ajánlani tudom!
Szerintem ne generálj hibaüzenetet, mert felesleges, írd át a pontot vesszõre autómatikusan. Keresed az adott karaktert a sztringben és ha találtál, akkor csere.
hi mindenkinek van egy kis gond, ha lennétek szívesek segíteni egy kis miniprg-ra volna szükségem, amiben megjelenne egy ablak, de ha kell a hide-al egy programozási sorban el is tûnne, mert olykor látnom is kellene és olykor meg nem is kellene, hogy megjelenjen felraktam a visbas 6 enterprise-t, de biztosan jó lenne az alap 6-os is, de 2 napja keresek a neten olyan utasítássort, amiben a következõt szeretném, de vagy jóval többet tud és sajnos nem tudom mit vehetek ki belõle és mit nem, de sajnos ilyesmi nincs tehát megjelent egy ablak (ha úgy akarom, most igen) és nézzem meg, hogy a D:\ meghajtón (programsorok közt $-ként pl. d:, amit bármelyik meghajtóra kitudok cserélni, és nézze meg a drive teljes helyét, a foglalt és szabad helyét, majd rakja el mondjuk egy $-ben lévõ file-ba egy adott útvonalra, amit, ha elhagyok akkor a futtatási exe-e mellé, a forrás file-t meg innen kitörlöm, mert csak a javításokhoz kell majd. Egy külsõ program hívná meg ezt az exe prg-ot, lementi az adatfile-t, amiben a fent leírt 3 sor van, majd be is záródik, de ha kell legyen benne 1 sor, ami nem engedi a bezárást egy ' -jel után megjegyzéssel. sima basic-ben szerintem 6-8 sor, de ez a fránya visual basic viccelõdik velem, mert alapban nincs a 6-osban egy egyszerû file létezés lekérési, mindegy.
elõre is köszi a segítségeteket, további jó visual basicozást, hi
Irtam egy kis számoló progit.A számokat meglehet adni tizedes vesszõvel, de ha az értéket tizedes ponttal adom meg akkor a mûveletett nem csinálja meg. Egy hiba üzetet falat szeretnék csinálni, ha tizepes ponttal adom meg a számokat, akkor jelenlen meg egy üzenet, hogy csak mondjuk tizedes vesszõt lehet használni.
Hogyan lehet ezt megcsinálni? A pontot nem tudom hogy kell megadni,hogy hibát megcsinálja?
Tudok erre valami okosságot mondani?
Hogyan lehet adatokat (textbox) exportálni excelbe (.xls kiterjesztés)? Hol lehet valami okoságot találni erre a megoldásra?
Az elõbb nem VNA, természetesen VBA for Excel
Sziasztik! VNA for Excel!
Hogan lehet programozottan beállítani a nyomtatási területet, illetve a lapok méretét? A nyomtatási terület beállítása elvileg: ActiveSheet.PageSetup.PrintArea = "$A$3:$J$118" De a "$A$3:$J$118" értéket nekem kellene különbözõ paraméterektõl függõen váltroztatni, nem pedig fixen beíni. Az oldaltöréseket pedig: Set ActiveSheet.HPageBreaks(9).Location = Range("A36") Set ActiveSheet.VPageBreaks(1).Location = Range("H1") lehet állítani, de itt sem tudom a Range tartományt, hogy tudnám leprogramozni (sztrinhként nem fogadja elk a "A31"-et, illetve bonyolult is lenne az oszlopoka, monjuk a FG19-et kiszámolni, hogy az 154.-ik oszlop Help!
Srácok, kérnek tõlem egy másik megoldást is a letiltásra. Hogy lehet eltüntetni menüpontokat és gombokat a wordben? Köszi elõre is a segítséget!
Ennyivel le is tiltja a Mentés másként gombot, és kiírja, hogy Hehe! ??
A következõ a helyzet, szakdogámat addig nem fogadja el tanár, míg nem csapok hozzá egy "általam" írt makróvírust, és nekem ehhez lövésem sincs. Valaki tud segíteni nekem, egy olyan ártalmatlan word makróvírus létrehozásában, ami letiltja a pl. a mentés és nyomtatás gombokat, és nem fertõzi meg a normal.dot-ot, és nincs benne szaporító rutin? Elég égetõ a helyzet, maga a program tanár szerint 6-8 sor.
on error goto errhan Do While vonalszam > 156 MsgBox ("A vonalszám maximum 155 lehet") vonalszam = InputBox("Melyik vonal sebességét alakítsuk át? Kilépés=k") If vonalszam = "k" Then Exit Sub End If Loop
exit sub errhan: if err.number = 1004 then 'a fájl nem létezik end if
sziasztok!Szeretném a segítségeteket kérni.Egy cella értékétõl függõen szeretnék behívni egy másik excel táblát,ami 1.-156.-ig tartalmaz lapokat,de azonban nem folytatólagosan,vannak közte hézagok.Az lenne a kérdésem,hogy a fájl megnyítása elött hogy tudok meggyõzödni,létezik-e az adott munkalap.A forrás jelenleg így néz ki:
Do While vonalszam > 156 MsgBox ("A vonalszám maximum 155 lehet") vonalszam = InputBox("Melyik vonal sebességét alakítsuk át? Kilépés=k") If vonalszam = "k" Then Exit Sub End If Loop
Még egy kérdés,hogy tudom lekérdezni egy fájl meglétét behívás elött,hogy létezik vagy sem?
Köszönöm a segítséget
Algoritmus: Kettesbõl tízesbe (egész számot feltételezve): 1. Vedd a bináris szám n. (utolsó) számjegyét, és szorozd meg eggyel (2^(n-n) = 2^0). 2. Vedd a bináris szám n-1. (utolsó elõtti) számjegyét, és szorozd meg kettõvel (2^(n-(n-1)) = 2^1). 3. Vedd a bináris szám n-2. számjegyét és szorozd meg néggyel (2^(n-(n-2)) = 2^2). . . . n-1. Vedd a bináris szám második számjegyét és szorozd meg 2^(n-2)-el. n.: Vedd a bináris szám elsõ számjegyét és szorozd meg 2^(n-1)-el. Az n a bináris szám számjegyeinek száma.
Sziasztok! Készítettem Visual Basic programmal egy egyszerû, négy alapmûveletess számológépet. Szeretném megoldani a kettes és tizes számrendszer közötti váltást. Tud valaki ebben segíteni?
Hol lehet Excel programozásró info találni.Lehetõleg magyar oldalra gondoltam.
Hahó! tudna vki segíteni? Nekem a vb 101 kéne, igaz van jobb is, de nekem akkkor is az kell. honnan tudnám letölteni?
Helló! Lenne egy nagy problémám. Kaptunk egy házi feladatot Visual Basic-el kapcsolatba, de nem tudom megcsinálni. A feladat: "Írj programot amely kiszámítja két szám legnagyobb közös osztóját és legkisebb közös többszörösét." Ha valaki tudja ennek az algoritmusát akkor kérem segítsen. Elõre is köszönök minden segítséget.
Ez a könyvnincs me valaminek elektronikus formában?
hi
hol lehet találni VB 6.0-val irt programokat vagy program részleteket vagy olyan dolgokat ami segithet egy szakdolgozatban???
Köszönet érte.Tényleg úgy van ahogy mondod (írod). Az igazság, hogy nem én programozok VB-ben, hanem az apám, csak Õ meg az internetes fórumozást nem tudja használni... Idõközben úgy néz ki megoldódott.Valami VB tippek és trükkök könyvben leltem rá a megoldásra. A kérdésem azért volt zavaros, mert én nem értek a VB-hez, bár annyira belemélyültem a múltkor, hogy megértettem.
Tehát adott egy progi, ami használ a futás közben egy .mdb fájlt és amikor összepakoltam a P&D wizard-dal, majd letelepítettem, a progi mindig abban a könyvtárban kereste az .mdb fájlt, amiben a fejlesztõgépen van.Tehát ott, ahol a teljes Visual Studio+a progi összes része( formok,stb telepítve/tárolva van).Namost két gép van itthon, az enyémen nincs semmi, ezen tesztelem a telepítést+az indulást.
Most már úgy néz ki megy, csak erre a fránya scriptre nem jöttem rá: App.Patch
Köszönöm mégegyszer.Nem sok VB-s ír egyébként ide az SG-re, de örülök, hogy még vannak.
Kissé zavaros a kérdés megfogalmazása, de ha jól hámozom ki, akkor kérdésedben benne a megoldás. Ha telepítéstõl függetlenül szeretnéd elérni mindig ugyanazt a külsõ állományt, akkor használj abszolút útvonalmegadást. (Gondolom ez egy hálózati hely lesz.) Ha mindig másikat szeretnél használni, (sajátmép egy könyvtára) relatív hivatkozás kell. App.Patch +"\adatok\data.mdb" Ez a programod könyvtára alatt lévõ adatok könyvtárban lévõ fájlra hivatkozik.
Sziasztok! Lenne egy kérdésem VB6-al kapcsolatban.Az a lényeg, hogy van egy tervezõ program, ami egy külsõ .mdb (Access adatbázis) fájlt használ.A progi szépen fut azon a gépen, ahol az egész VB fejlesztõkörnyezet telepítve van, plusz ahol a program található.Amikor elindul a program, hivatkozik erre a külsõ .mdb fájlra, amit használ.De ha én szeretném egy másik, teljesen független gépen futtatni, akkor MINDIG UGYANARRA AZ ELÉRÉSI ÚTRA HIVATKOZIK, ami meg van neki adva.Tehát, ha már másik könyvtárban helyezkedik el, mint a megadott, akkor nem találja az adatbázis fájlt. Hogy összefoglaljam: telepítem a programot, el is indulna, de mivel a felhasználó a telepítéskor más helyet, más könyvtárat ad meg, a program nem éri el a külsõ fájlt. Próbálok olyanon gondolkodni, mint a webfejlesztésben az abszolút és relatív hivatkozás. Hogyan lehetne megcsinálni itt a VB6-ban, hogy teljesen mindegy, hová telepítem a progit, az mindig megtalálja a külsõ adat fájlt és elérje? Vagy esetleg be kell ágyaznom, hogy egyáltalán ne legyen külsõ fájl? Vagy ezt az install-készítõben (Inno Setup) kéne meghatároznom? Kérlek segítsetek, mert ez az egyedüli problémám, egyébként mûködne. Ha van megoldás, várom válszotokat a [email protected] címre vagy ide a fórumba. Köszönöm.
huha, de latogatott ez a forum...koszi a sok valaszt :)
haliho egy magazinbol megvan nekem a visual basic 2005 express edition beta cd-n, s kellene regisztralni, hogy tovabb mukodjon....nincs netem, s a konyvtarbol, ahonnet netezem le van butitva az ie hogy a hekkeres oldalakra ne menjen fel, szal.....kellene egy regisztracios kulcs.....kiraly lenne, ha valaki segitene. elore is koszi minden infoert.
A blockinput winapi fügvénnyel az a baj, hogy ha megnyillik egy új ablak, akkor újra használható lesz az egér. És pont egy új ablak vezérléséhez kellene.
Lenne egy olyan kérdésem, hogy hogyan lehet (gondolom winAPI-val) azt megoldani, hogy ha az egeret mozgatják, akkor a képen ne mozogjon a cursor. (VB6-ban)
És nekem is egy exceles kérdésem lenne. Nem túl bonyi, de most sajnos elakadtam, és se könyv nincs a közelembe, + a progiból hiányzik a help is :(((. Szóval vb6ban szeretnék egy adott excelfile celláibõl a tartalmat kiolvasni. Hogyan lehetséges ez?
Sziasztok!
Excel-es makrókat próbálgatok mostanában írogatni, és lenne egy átfogó kérdésem, hogy miként lehet az egyes Excel táblák határait megállapítani? Érthetõbben kifejezve: az adott munkalapon szereplõ táblázat hány soros és hány oszlopos? Ez ugye ránézésre simán megy, de ha automatizálni akarom a folyamatot, akkor már gondban vagyok, mert makrórögzítés révén nem tudom kisilabizálni a dolgot. Ezenkívül van valamilyen függvény vagy utasítás, amely megállapítja, hogy az adott fájl hány munkalapból áll?
Ha nem teljesen világos a kérdésem, szívesen leírom a segíteni szándékozó kedves emberkének, mi is a pontos feladat, aminek a részeként ezek kellenek.
Köszi!
Helló! Az is megoldás lehetne, ha a MSDV tulajdonság ablakában található gombokat használnám. De ehhez valahogy meg kellene oldani, hogy a fx.ShowPropPage hWnd módón meghívott ablaknak ne legyen kerete, és meghatározott helyen jelenjen meg, akár formon belül, de az sem baj, ha csak simán nincs kerete. Egy formból lehet állítani egy másiknak a kinézetét? Legalább ha csak a helyzetét lehetne állítani, és a fölösleges részeket kitakarni, az is már jó lenne. Ezeknek a tulajdonság lapoknak mindig több füle van, és jó lenne, ha csak az általam kiválasztott jelenne meg. A másik, hogy WinAPI függvényekkel lehet valahogy vezérelni egy olyan formot, amit nem látok?
Megint egy kérdésem lenne, nem túl bonyi, de sajnos nincs helpem a vb6hoz :(. Hogy tudom a commondialog ablakot testreszabni és a felhasználói beállításokat visszanyerni? Konkrétan: Priner ablakról lenne szó, és szeretném, ha csak a nyomtatót lehetne kiválasztani a többi beállításra nincs szükség, eseteleg a példányszám. Olvastam valahol, hogy a commondialog1.flag -val lehet beállítani, de hiába irkáltam oda a változókat semmi hatása nem volt. (valami hasonlók voltak, hogy cd1DPNoFilePrint, vagy valami hasonlók :) ) A másik, ha a felhasználó kiválaszt egy nyomtatót, hogy tudom beállítani, hogy ezek után oda történjen a nyomtatás?
Meg sikrült csinálnom, hogy a videó a formon legyen. Már csak abban kellene segítség, hogy ezt hogy lehetne használni VB6 alatt: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/iamexttransportinterface.asp .
Kéne egy vba kód amivel képet tudok mozgatni a képernyõn.
Valaki...lécci...
Odáig sikerült eljutnom, hogy ha létrehozok egy ilyent: Dim cam_kont As VBVideoControl vagy Dim cam_kont As CameraControlInfo, de ezek nem akartak mûködni, és az MSDN-en sem találtam leírást. De viszont találtam olyant, hogy IAMExtTransport a DirectShow Interface-k között (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/iamexttransportinterface.asp) de ezt nem tudom, hogy hogy kell használni. Van ötletetek?
Helló mindenkinek!
Lenne pár kérdésem VB6-al kapcsolatban. Az egyik az lenne, hogy felépítettem egy gráfot directshow filterekbõl, amiben van egy Video Renderer. Amikor futtatom a gráfot, akkor a videó külön ablakban jelenik meg. Hogy lehetne ezt rátenni a formra? A másik kérdésem az lenne, hogy hogy lehet a Microsoft DV and VCR filter tulajdonságait állítani? A tulajdonság ablakot meg tudom nyitni, és az ott található gombokkal tudom vezérelni a kamerát. Hogy lehetne ezt megcsinálni anélkül az ablak nélkül, forráskódból? Egyáltalán a filterek tulajdonságait hogy lehet állítani programból?
Elõre is köszi a segítséget!
Lehetséges valahogy, hogy a VB5 vagy 6ban írt programom átkonvertáljam VB2005be? Mármint arra gondolok, hogy ne kelljen már újra írnom. Beolvasni próbáltam de nem ment.
álatlánosan vagy célirányosan? Ez így elég pongyola... Ha VB akkor pár sorral lejjebb írtam egy linket
hol lehet programíráshoz könyvet kapni, ami jó is? [email protected] kérlek titeket, kûldjetek mailt. Én is meg szeretnék tanúlni erõsebben írni.
jah meg formázni szeretnék programból de erre sem találtam semmit
vki megmondaná hogy hogy lehet automatikus indítással indítani a progimat. tehát ugy h nem én másolom bele az indítópultba. ugy hallottam hogy van erre vmi parancs csak nem találtam. pls help
Szerintem egy sorrendet érdemes felépíteni a tanulás menetében (fõleg VB-ben). Elsõként érdemes általánosságban tanuli a programozási technológiáról (Pszeudokód), majd ezután a VB terminológiájáról, folyamatairól stb. De feleslegesen beszélek, vedd meg a könyvet, tudomásom szerint általában kapható (van raktáron), rendkívül egyértelmûen (gyakorlatiasan) magyaráz, és teljesen a kezdõtõl egy erõs középfokig (tehát egy önálló többablakos alkalmazás elkészítéséig) megtanít. Véleményem szerint nincs jobb magyar nyelven megjelent könyv e témában.
kérdésedre válaszolva: csakis érdeklõdés kérdése 2-3 év alatt teljesen elsajátítható ez a szenzációsan egyszerû felépítésû nyelv. Tehát életkorod tudta nélkül a válaszom IGEN!
Kössz a segítséget. Úgy érzem, a könyvvel kell kezdenem. Lehet, hogy kicsit megöregedtem, de megrettentem salyát sötétségemtõl! Érdemes még elkezdenem?
VB6 Kék könyv, a legjobb magyar nyelvû kezdõtõl a haladóig.
akkor próbálkozz vmi ilyesmivel. azért nem tudtad a focus-t birizgálni mert te a kilépésre programoztad az egészet és miután kilép már nem nagyon fókuszál semmire ezért gondoltam h ha nincs hiba akkor lépsz ki.
Dim hiba As Boolean
Private Sub cikk_Exit(ByVal Cancel As MSForms.ReturnBoolean) hiba = False wcikk = cikk.Value If cikk = 0 Then ElseIf cikk < 1000000000 Then hiba = True ElseIf cikk > 9999999999# And cikk < 1000000000000# Then hiba = True ElseIf cikk > 9999999999999# Then hiba = True End If End Sub
Private Sub CommandButton1_Click() If hiba = True Then MsgBox ("Ez nem cikkszám") cikk.SetFocus cikk = "" Else End End If End Sub
szerintem
Kossz a segítséget még elmélázom az értelmén de .. EXCEL-ben szerkesztettem egy formot több textbox-szal. Ez az elsõ textbox-sza, de nem tudom a hiba esetén újra bekérni.Próbáltam a fokuszt visszaállítani nem sok sikerrel.Ha a bekért szám 10 jegyû akkor cikkszám és jó, ha 13 jegyü akkor vonalkód és az is jó. Itt az ettõl eltérõ beírást szûrném. Még nem a tutit megoldást keresem, elég ha valami megközelítõleg azt csinálja amit én akartam tõle. (Nincs egy jó könyvem ami kezdõket is eligazítana, így csak vaktában próbálkozok. Vagy esetleg egy használható tanfolyam? Ha van javaslatotok ....)
nemtom h jól értettem-e mert a feltételeid 1másnak ellent mondanak van tul-képpen csak a 0-át fogadod el
én inkább 1 inputbox-al és command -gombal csinálnám meg persze ciklussal de nemtom h jól értettelek e
az csak ennyi:
Private Sub CommandButton1_Click() Do Until cikk = 0 cikk = InputBox("ird be a cikkszámot", "input") Loop End End Sub
Kezdõként én még csak az EXCEL-t szeretném egy kicsit megpatkolni.Csináltam egy formot, aminek a cikk textbox-ába kértem be adatot, az ellenõrzés után, ha nem megfelelõ az érték szeretném kinullázni a változót és ismételten bekérni de nem tudok visszalépni.
Private Sub Cikk_Exit(ByVal Cancel As MSForms.ReturnBoolean) wcikk = Cikk.Value If Cikk = 0 Then ElseIf Cikk < 1000000000 Then MsgBox "Ez nem cikkszám" ElseIf Cikk > 9999999999# And Cikk < 1000000000000# Then MsgBox "Ez nem cikkszám" ElseIf Cikk > 9999999999999# Then MsgBox "Ez nem cikkszám" End If
hi! nem régóta csinálom ezt a vb-t kb 1.5 éve de csak sulis szinten. azt szeretném kérdezni hogy meg lehet e oldani valahogy hogy ha belépek 1 könyvtárba akkor elindul a progim (vagy már fut az indítópultból és figyel) és akkor kér 1 jeslzót és ha ezt beirtam csak akkor mutatja meg a könyvtár tartalmát.
másik. lehet-e a windows felhasználónak jelszót létrehozni saját prg-ból a vezérlõpult nélkül/felhasználók nélkül a rendszer win-xp lenne.
Van valakinek valami ötlete, hogyan lehetne egy progit valami seriallal levédeni? (Olyan módon mint a nagyoknál.) Arra gondolok, hogy milyen elvek szerint mûködik, ami alapján már lehetne programozni.
Raksz egy winsock és egy textbox vezérlõt a formra és:
Private Sub Form_Load() Text1 = Winsock1.LocalIP End Sub
a 6.0-ás vb-t. úgy képzeltem,hogy pl. te elindítod ezt a programod,és rámész,hogy ip megtekintése,és akkor kiírja egy texy boxba,hogy a te ip-d 80.12......
a saját ípécíme kell ? akkor már csak azt mondd meg hogy a vb melyik verzióját használod
nemértem a lényeget... kinek a minek az ípéje kell ?
szeretnék egy olyan progit csinálni,hogy mikor rámegy egy gombra,kiírja a progi használójának képernyõjére a csatlakoztatott internetnek az IP címét :) hát ez most hosszú,meg furcsa,de mind1,remélem értitek a lényeget :) szóval a code kellene :)
hát inis asztmondom hogy vb rúlz, de vb 2005 (vagy sima vb .net)
hát ezzel azért páran vitatkoznának, de én úgy vagyok vele, hogy százszor inkább nyúlok a vb-hez egy egyszerûbb alkalmazás készítésekor, mint mondjuk java-hoz.
a form_resize ben a windowstate lesz minimized ha minimizálják stb.
sztem a vb nem .netes verzióit már elkéne felejtni...
form_resizet használd arra is
Másik probléma amibe folyton beleütközök, az annak a figyelése mikor van a form a tálcára csukva és maximális méreten. Ugyanis ilyenkor pl. a form magassági méretét nem lehet piszkálni, de azt hiszem semmi magasságit nem enged. (minimumnál) Viszont a resize eseménybe meg állítgatnám ezeket. Arra gondoltam, hogy, ha tudnám mikor van pl. a tálcán a progi, akkor megirhatnám a resizeba, hogy tedd ezt vagy azt, kivéve, ha nincs ott. Most az On Erroe Resume Next sorral kompenzálom ezt a dolgot, de talán van jobb megoldás.
Rövidre zártam a kínlódást. :) Sajnos nem sikerült az elképzeléseim szerint megvalósítani a dolgot. Így egész egyszerûen kivetten a karakterek figyelését a szövegdobozban, és csak az elött vizsgálom meg, mielött mûveletet véégeznék vele. Így van rendes control+c meg control+v.
az egér jobb klikk és paste, még mindig enged karaktereket. Lehet, hogy jobban járnék, ha csak egyszerûen a szövegdoboz tartalmát ellenõrizném a mûvelet elött
a text.change esemény alkalmas rá, ott szintén as isNumeric() függvénnyel letilthatod a szöveg beírását. Viszont jobban javaslom a már említett Clipboard objektum ellenõrzését mégpedig a keypress eseményben. Tehát akár egy felh függvényben is jól néz ki a dolog:
function vagolapSzamE() as boolean
dim var var = clipboard.gettext if isnumeric(var) then vagolapSzamE = true end if
end function
így csak meg kell hívni a keypress eseményben: If vagolapSzamE = True then és már illeszthetõ is be a szövegmezõbe
Most látom, a két változó (a és b) felesleges, csak a nyomonkövetéshez kellett. :))
Köszi. Így sikerült, kiiktatnom a betük bekopizását, de csak a ctrl+v mûveletre, az egér jobb klikk és paste, még mindig enged karaktereket. Lehet, hogy jobban járnék, ha csak egyszerûen a szövegdoboz tartalmát ellenõrizném a mûvelet elött, vagy van valami mõdszer, hogy a jobbklikkes copyt is felügyelni tudjam? Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) a = Clipboard.GetText b = IsNumeric(Clipboard.GetText) If KeyCode = vbKeyControl Then If Not (IsNumeric(Clipboard.GetText)) Then Clipboard.Clear End If End If End Sub
a clipboard objektumból lehet kinyerni (Clipboard.getText), azt viszont hogy hogyan, azt én sem tudom, ilyet még nem csináltam. Talán a bill. kombinációt kellene figyelni ugyanazon keypress eseményben, bár ez így eléggé zavaros kódot eredményezne... Ha az isNumeric(clipboard.getText) false értéket ad vissza, akkor a vágólap tartalma nem szám (pl. "abc1122" is false értéket ad, mivel tartalmaz legalább egy nem numerikus karaktert), szerintem ez jó megoldás lenne, ebben az esetben figyelmen kívül kell hagyni a beillesztést.
Kipróbáltam, és nem igazán az, mit amit szeretnék. A copy-paste mûködik, de csak az egér jobb klikkes menünél. De ez az én verziómnál is mûködött. Én azt szeretném, ha a ctrl+c, x és v mûködne, úgy, hogy csak számokat enged beírni. Tehát még ezeket a billentyûkombinációkat is kéne engedélyezni, de nem ismerem, a kódjukat, amit figyelni kéne. A másik probléma ezzel, hogy, engedi, hogy betüt kopizzon a szövegdobozba. Ilyenkor miért nem nullázza ki a betüket? Ilyenkor külön kell figyelnem a bennt lévõ karaktereket? Vagy van valami egyszerübb módja ennek?
Köszönöm a segítséget. Közben felvetõdött bennem még egy kérdés (nyugi van belõle bõven) Van egy szövegdobozom, amibe azt szeretném, hogy csak számokat írhasson be a felhasználó. Addig oké, hogy ezt teszem:
Private Sub Text10_KeyPress(KeyAscii As Integer) If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then KeyAscii = 0 End If End Sub
De szeretném, hogy a copy-paste is mûködhessen, tehát a ctrl+c és a ctrl+v.