Új hozzászólás Aktív témák
-
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?
-
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?
-
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?
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
-
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?
-
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
-
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?
-
-
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?)
Hát VBA-ban nem vagyok otthon
-
Új hozzászólás Aktív témák
- Visszatérés az aranykorba: Heroes of Might and Magic: Olden Era Early Access
- sziku69: Fűzzük össze a szavakat :)
- Építő/felújító topik
- Macska topik
- sziku69: Szólánc.
- Xiaomi 15T Pro - a téma nincs lezárva
- Szeged és környéke adok-veszek-beszélgetek
- Google Pixel topik
- Milyen monitort vegyek?
- GoodSpeed: XIAOMI Smart Air Purifier 4 Compact EU - légtisztító újabb okoseszköz a lakásban
- További aktív témák...
- Lenovo ThinkPad 14"/Ultra5-125U/16GB/480GB/magyar bill.
- ASUS ROG STRIX Z690-F GAMING WIFI DDR5 Alaplap
- Xiaomi Redmi Note 15 6/128GB, Megkímélt, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Jonsbo RM2 Silver - 12hó gari! - Új!
- Xiaomi 13T Pro 12/512GB, Megkímélt, Kártyafüggetlen, Töltővel, Dobozzal, 1 Év Garanciával!
- Bomba ár! Lenovo ThinkPad X12 Detachable i5-11G I 16GB I 512SSD I FHD+ Touch I Cam I W11 I Gari!
- Honor 400 Lite / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- Apple iPhone 13 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- HP EliteBook 745 G6 14" Ryzen 5 pro 3500U - 7 pro 3700U - 16GB RAM, SSD, jó akku, számla, 6 hó gar
- Új/Újszerű Apple Macbook Air 15,3" M4 /24GB/1TB - Ezüst - MAGYAR - 15 Ciklus - 2,5 év garancia
Állásajánlatok
Cég: aiMotive Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest