- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Apple iPhone 15 Pro Max - Attack on Titan
- Bluetooth-headsetekről általában
- Jolla és SailfishOS tapasztalatcsere
- iPhone topik
- Honor 200 Pro - mobilportré
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Milyen hagyományos (nem okos-) telefont vegyek?
- Brutális összegeket fektet a Samsung az AI fejlesztésekbe
- Xiaomi 17 Ultra - jó az optikája
Új hozzászólás Aktív témák
-
VIC20
őstag
válasz
Jester01
#1058
üzenetére
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
válasz
Jester01
#1056
üzenetére
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
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?
-
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
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?
-
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
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
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
Hirdetés
- Forza sorozat (Horizon/Motorsport)
- Parfüm topik
- AMD Navi Radeon™ RX 9xxx sorozat
- BMW topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Nvidia GPU-k jövője - amit tudni vélünk
- Villanyszerelés
- Mibe tegyem a megtakarításaimat?
- Milyen billentyűzetet vegyek?
- Nem fut az Intel grafikus vezérlőin az év egyik legjobban várt címe
- További aktív témák...
- OH! Dell Latitude 7340 Üzleti Profi Fémházas Ultrabook Laptop 13,3" -65% i7-1365U 16/512 FHD IRIS Xe
- Azta Dell Latitude 7440 -65% Üzleti Profi Fémházas Érintős Ultrabook Laptop 14" i7-1365U 32/512 FHD+
- DJI Osmo Action 4 Adventure Combo + sok tartozékkal búvárkodáshoz
- Samsung 32GB DDR4-2666V 2 x 16 GB (M393A2K43BB1-CTD6Q) Szerver memória
- Felújított (Refurbished) DELL Latitude 5430 Tartós Üzleti Laptop 14" -70% i5-1235U 10Mag 16/512 FHD
- Apple iPhone 15 Pro Max 256 GB White Titanium 1 év Garancia Beszámítás Házhozszállítás
- Lenovo ThinkPad T14s Gen 6 Ryzen AI 7 PRO 350W Radeon 860M 32 GB RAM 7500 MT/s 512 GB 3év gar
- Apple Mac Pro Workstation Dual Xeon,18GB RAM,WIFI,BT,Profi Munkaállomás és Szerver
- LG 32UN880K - 32" IPS ERGO / 4K UHD / 60Hz 5ms / DisplayHDR 400 / USB Type-C / AMD FreeSync
- Apple iPad Air 2 (A1566) 64GB Wi-Fi Asztroszürke
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest