Ú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?
-
-
Polyák
tag
válasz
Jester01
#763
üzenetére
Hali!
Köszi!
Ezt bogarászom éppen, de nem jutottam sokra.
Ezekkel probáltam: TrayInitialize Form1, meg: TaskbarShow
de nem sikerült, én értettem félre valamit? Engem ezek a modulok mindig szivatnak. Nem értem hogy hogy hivatkozzak most erre? Tudnál nekem segíteni? Meg amugy általánosságban a modulokban tudnál nekem segíteni?
Köszi előre is!
-
Polyák
tag
válasz
Jester01
#628
üzenetére
Köszi.
Az este folyamán rájöttem mind a 3 kérdésremre. Kreáltam probaprogit oszt kifundáltam mindent. Minden sikerült és köszönom neked is és ollie-ek is!
Ezek amugy hogy működnek és mire jók?
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename); -
#441
matekmatika
tag
Jester01
#437
matekmatika
tag
válasz
Jester01
#437
üzenetére
Az IsNumber-t ötletét a makrorögzítő adta, nekem fogalmam sem volt, hogy van ilyen (nekem magyar Office lévén SZÁM szerepelt a munkalap függvényében) Ergo: olyan nagyon rosszat nem írhattam. Az IsNumeric-et már a neten találtam, több helyen is, több példát, de nem jók. (Lehet Visual Basic.Net kell hozzá?
) Nem tudom. -
tkazmer
addikt
válasz
Jester01
#415
üzenetére
Persze, felraktam, és regeltem is. A nem ment alatt azt értem, hogy deboggolni ugyan tudta a fordító, de én a kódot egy gomb eseménykezelőjébe írtam be, és amikor ráclickeltem, akkor kezdett el próblémázni.
Mostanra már sikerült megcsinálnom, valszeg az előző regeléssel lehetett a baj, mert unregeltem, aztán ismét regeltem, és így már ok -
#399
MartinIsti
csendes tag
Jester01
#398
MartinIsti
csendes tag
-
tkazmer
addikt
válasz
Jester01
#368
üzenetére
Ok, megpróbáltam így:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri
Erre azt írja( már nem az alsó sorban, hanem fordítás közben) hogy
Null Reference Exception was unhandled
Object reference not set to an instance of an object.
Aztán megpróbáltam így:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri.ToString
Ugyanez a hiba
Aztám így:
TextBox1.Text = WebBrowser1.Url.ToString
Így is rossz. Na most mi legyen? -
#319
[HUN]Zolee
őstag
Jester01
#318
[HUN]Zolee
őstag
-
#315
[HUN]Zolee
őstag
Jester01
#314
[HUN]Zolee
őstag
válasz
Jester01
#314
üzenetére
op(i) az a szakasz végpontjai, vagyis e közül kerül ki a kör középpontja.
alappont az a 0°os körívnél lévő pont![[kép]](http://vazsonykom.hu/~magasi/rajz4.JPG "[kép]")
fixp az a kezeti pont ahonnan indítjuk a köríavet
vp az a változó pont, ami mindíg az aktiális egérelmozdulási értéket kapja meg (ez még nincs kész)
és a i=kpont(fixp.X,fixp.Y) kell. töbszem többet lát
[Szerkesztve]
) Nem tudom.
![[kép]](http://vazsonykom.hu/~magasi/rajz3.JPG "[kép]")
Új hozzászólás Aktív témák
- PlayStation 5
- Path of Exile (ARPG)
- Nintendo Switch 2
- Így nézz tévét 2025-ben: új ajánlások, régi szabályok
- Zelda Játékok
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Ingatlanos topic!
- BestBuy topik
- Magas AI-költségek, csökkenő létszám: dolgozók ezreit rúgja ki a Microsoft
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...
- T14s Gen2i 14" FHD IPS i5-1135G7 16GB 256GB NVMe magyar vbill ujjlolv IR kam gar
- Új Poco F7 Ultra 512/16GB Black 3év garancia!
- Samsung Galaxy Watch Ultra 2év garancia!
- Újszerű Apple MacBook Air 13.6" (2024) - M3 - 68 Ciklus- 8GB/256GB (MRXN3MG/A) Asztroszürke - MAGYAR
- G.SKILL 32GB Trident Z5 DDR5 6400MHz CL32 KIT F5-6400J3239G16GX2-TZ5S
- Okosóra felvásárlás!! Samsung Galaxy Watch 6, Samsung Galaxy Watch 7, Samsung Galaxy Watch Ultra
- PlayStation Network Card (PSN) ajándékkártyák, egyenesen a Sony-tól!
- AKCIÓ! ASUS PRO WS W790E-SAGE SE alaplap garanciával hibátlan működéssel
- DDR5 8/ 16/ 32GB 4800-5600MHz SODIMM laptop RAM, több db- számla, garancia
- IPhone 15 128GB Zöld ÚJ! 12 Hó Jótállás!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest