- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Speciális kiadású AMD-s alaplapot villantott az ASUS a 20 éves ROG-jubileumra
- Apple MacBook
- AMD FX
- Milyen ÚJ notebookot vegyek?
- Milyen TV-t vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
- A Linux megnégyszerezte magát a Steamen — a Microsoft ismét ígérget
- Fujifilm X
- Projektor topic
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Új hozzászólás Aktív témák
-
VIC20
őstag
Sziasztok!
Egy gyors segítség jól jönne! Word-ben programozok, és elakadtam (elég hamar...) Azt szeretném kérdezni, hogy hogyan kell egy teljes szót kijelölni? Konrétan arról lenne szó, hogy rákeresek egy betüre a teljes word dokumentumban, majd az kellene nekem, hogy ne csak az a betü legyen kijelölve, hanem az egész szó!Set myrange = ActiveDocument.Content
myrange.Find.ClearFormatting
With Selection.Find
.Text = "@"
.Forward = True
End With
Selection.Find.Execute
End SubIlletve ez így ugyebár, ha megtalálta az első egyezőt, akkor leáll. Gondolom egy if -el nézem azt, hogy a myrange végére ért e. Hogy mondom neki, hogy végére ért e?
Köszi!Huh, most mindenféle utánanézés előtt megkérdem: szoktad használni a Word makrórögzítőjét? Nagyon hasznos tud lenni: megcsinálja ezeknek a szövegszerkesztős műveleteknek a kódját.
-
VIC20
őstag
Köszönöm szépen a segítséget!
Kommentár a "Comment1"-hez: De mégis, milyen jó, hogy meg lehet kérdezni ilyesmit a hozzáértőktől egy ilyen fórumon, mint ez is, amely tulajdonképpen ezért van.
-
VIC20
őstag
Elmondom, hogy is van ez nálam.
Van ugye a formon egy ListView vezérlő, ami eléggé el nem ítélhető módon a ListView1 nevet viseli.
Az inicializáló részben a következők történnek:
ListView1.ColumnHeaders.Add 1, , "Címke", 900
ListView1.ColumnHeaders.Add 2, , "Leírás", 8000
ListView1.ColumnHeaders.Add 3, , "Típus", 5000
ListView1.ColumnHeaders.Add 4, , "Dátum", 1500Vagyis kap négy oszlopot. (Az első név félrevezető: a címke valójában a sorszámot jelenti.)
Ezeket a következőképpen töltöm fel.
'A listview vezérlő feltöltése
If Tombmeret > 0 Then
For i = 1 To Tombmeret
If AdatBazis(i).hasznalt = True Then
a$ = "A" & Str(i) 'Sajnos számot még füzér alakban sem fogad el a hülye listview vezérlő, ezért egy betű kell elé. De ez komoly, még str(i)-t sem enged magába tölteni.
FoAblak.ListView1.ListItems.Add , a$, Str(i)
FoAblak.ListView1.ListItems(a$).SubItems(1) = Trim(AdatBazis(i).leiras)
FoAblak.ListView1.ListItems(a$).SubItems(2) = Tipus_szoveggel(AdatBazis(i).tipus)
FoAblak.ListView1.ListItems(a$).SubItems(3) = AdatBazis(i).datum
End If
Next i
End IfA rendező rész a következő:
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
Dim a As Integer
a = ColumnHeader.Index - 1
ListView1.SortKey = ColumnHeader.Index - 1
If ListView1.SortKey = a Then
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
ElseIf ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
End If
End IfListView1.Sorted = True
End SubEzzel vidáman rendez pl. dátum szerint is oda-vissza, de az első oszlop (ami a sorszám lenne) a szokásos hibát produkálja: a 10 nem a 9 után jön, hanem az 1 után (ABC szerinti rendezés).
Mit lehet tenni?
-
VIC20
őstag
Köszi a választ!
Hogyan gondoltad az oszlop típusát számmá alakítani?A súgó azt mondja, a SortKey tulajdonságra, hogy:
Setting:
0 Sort using the ListItem object's Text property.
> 1 Sort using the subitem whose collection Index is specified here.Nálam a rekordszámnál 0-ra jön ki a setting, mivel az van az első oszlopban, tehát szöveg alapján fog rendezni. A többi esetre nem mondja ki, de nem lehet, hogy ott is a text tulajdonság alapján rendez?
Akkor mit tehetek? Nekem kell megírni a rendező algoritmust, az majd törli a vezérlő teljes tartalmát, majd feltölti "kézzel" az elemeket?
-
VIC20
őstag
Egy rövid kérdés: ha a ListView vezérlőben az első oszlop egy adatbázis rekordjainak a sorszámát tartalmazza, és én e szerint szeretném rendeztetni az elemeket, hogyan tudom elérni, hogy az 1 után a 2 következzen, ne a 11, 12... stb. ?
-
VIC20
őstag
Tényleg, röviden össze tudja valaki foglalni, miért érdemes VB.NET-re váltani?
-
VIC20
őstag
Hát, nem tudom, van-e olyasmi, ami miatt feltétlenül szükséges .NET-re váltanom. Arról annyit hallottam, hogy bonyolultabb és lassabb, több erőforrást zabál.
-
VIC20
őstag
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
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?
-
VIC20
őstag
Nem valami App.Path ?
-
VIC20
őstag
É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
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
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
Az érdekelne, hogy hol van a kapcsolódási pont az installer és az installált program között.Vagyis honnan veszi át a program azokat az adatokat, hogy hova is telepítették, milyen beállításokkal?
-
VIC20
őstag
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
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?
-
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?
-
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!
-
VIC20
őstag
-
VIC20
őstag
Elmondom részletesebben.
Word-ben szeretnék alkotni valamit, ami képes összerakni egy dokumentumot anélkül, hogy "előre ismerné" annak tartalmát. Ezt tartalmazná a szövegfájl. Tehát a VBA program csak bekérné a változókat, kiválasztaná a megfelelő txt fájlt, aztán ráengedné az értelmezőjét.
Leegyszerűsítve valahogy így:
HunyóNeve$, " a hunyó!"
És akkor a program szépen a HunyóNeve változóból tenné be, hogy "Józsika" vagy "Pistike".
Tehát az eredmény ilyesmi lenne:
Pistike a hunyó!
Igazából persze bonyolultabb a dolog. Papíron egy egyszerűbb HA... AKKOR... szerkezetet lefirkantottam már, de a változókra való hivatkozás jelenti a fő gondot.
Arra gondoltam, hogy valamiféle előzetes "rögzítés" azért kellene: vagyis a változóneveket azért fixálni kellene, tehát ugyanazokat a változókat kellene használni a programnak, mint amelyek a leíró fájlban szerepelnek. Aztán a programba meg írni kéne valami kezelőt, mondjuk egy függvényt, ami visszaadja az adott változó értékét. Ehhez gondolom minden változót egyenként fel kellene vinni, "meg kell tanítani" neki. Sok változónál ez baromira nagy munkának tűnik. Főleg, hogy új típusokat is bevezetnék (Pascal-os rekord-szerűségekre gondolok), ez még bonyolítaná is.
Esetleg van valami huszárvágás-szerű megoldás? (Hivatkozni a változóra egy füzérrel? Kis túlzással adatból kódot csinálni?)
-
VIC20
őstag
Sziasztok! Lenne egy érdekes kérdésem:
Elég különleges módon szeretnék hivatkozni egy változóra. Nem a felhasználó beavatkozásán múlna a dolog, hanem egy állományból olvasnám be a nevét. Szerintetek van erre valamilyen módszer vagy valamilyen értelezőt kell írni hozzá?
-
VIC20
őstag
Nem tudom, találkozott-e már valaki ezzel: Win98-as géppel dolgozom, Office XP van rajta. Megpróbálom futtani kedvenc kis VBA-projektemet, erre csak egy hibaüzenet küld: Compile error in hidden module: bla-bla-bla. Megnyitom a DOT-fájlt, ekkor már értelmesebben reagál: Can't find project or library, és egy egyerű Date függvénynél akadt meg. Úgy tűnik, mintha alapvető VBA-s függvényeket nem tudna értelmezni.
Teljesen újratelepítettem az Office-t, eredmény semmi. Lehet, hogy a Windows-al van a hiba? Hiányzik valami DLL? Hol tárolhatja a VBA-értelmezőt a Windows?
Kösz a segítséget!
Új hozzászólás Aktív témák
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Autós topik
- Vivo X200 Pro - a kétszázát!
- Lightyear - befektetési app
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Revolut
- Kamionok, fuvarozás, logisztika topik
- Speciális kiadású AMD-s alaplapot villantott az ASUS a 20 éves ROG-jubileumra
- Apple MacBook
- AMD FX
- Samsung Galaxy Felhasználók OFF topicja
- További aktív témák...
- 24 magos AMD Threadripper alapú munkára kiváló félgép, 128GB RAM-mal
- HP ZBook Fury 15 G7 i7-10850H 32GB 512GB SSD Quadro T2000 4GB FHD HUN bill, szép állapotban eladó
- Eladó MacBook Pro 16,1 2019 CTO
- új 0 km es garanciás lenovo loq rtx 5050 8gb
- Eladó teljesen újszerű karcmentes Samsung Galaxy Watch Ultra
- iPhone 13 128GB 89% (1év Garancia)
- iPhone 12 Pro 256GB Graphite-2 ÉV GARANCIA - Kártyafüggetlen, MS4752, 100% AKKSI
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
- GYÖNYÖRŰ iPhone 14 128GB Midnight -2 ÉV GARANCIA - Kártyafüggetlen, MS5381
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

(vagy CurDir???)



