Hirdetés
- TCL LCD és LED TV-k
- Milyen billentyűzetet vegyek?
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- AMD vs. INTEL vs. NVIDIA
- OLED TV topic
- Apple asztali gépek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Projektor topic
- Samsung LCD és LED TV-k
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
Ú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
Hirdetés
- TCL LCD és LED TV-k
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Milyen billentyűzetet vegyek?
- Hardcore pizza és kenyér topik
- exHWSW - Értünk mindenhez IS
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- AMD vs. INTEL vs. NVIDIA
- OLED TV topic
- iPhone topik
- Bittorrent topik
- További aktív témák...
- Beszámítás! ASUS ROG XBOX Ally X 24GB/1TB kézikonzol garanciával, hibátlan működéssel
- Beszámítás! MSI Thin A15 B7VE FHD Gamer notebook - R5 7535HS 16GB DDR5 512GB SSD RTX 4050 6GB W11
- Beszámítás! Lenovo Legion 5 15ACG6 165Hz Gamer notebook -R7 5800H 32GB DDR4 1TB SSD RTX 3070 8GB W11
- Beszámítás! Apple iPad Pro 13 M5 1TB Wifi tablet garanciával hibátlan működéssel
- Apple iPhone 11 64GB, Kártyafüggetlen, 1 Év Garanciával
- Készpénzes / Utalásos Videokártya és Hardver felvásárlás! Személyesen vagy Postával!
- Samsung Galaxy A04 64GB, Kártyafüggetlen, 1 Év Garanciával
- Sosemhasznált! HP OmniBook 5 i3-1315U 8GB 1TB 16" FHD+ Gar.: 1 év
- Microsoft Surface Laptop 3 13.5" fekete i5-1035G7 16GB 512GB 1 év garancia
- 8 GB Samsung 4800 MHz-es DDR5 memória
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest