Hirdetés
- Apple Watch
- Szívós, szép és kitartó az új OnePlus óra
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Google Pixel topik
- A piac legerősebb kameráját ígéri a Xiaomi 17 Ultra
- Megérkezett a Google Pixel 7 és 7 Pro
- Érintésnélküli fizetési megoldások - PayPass via NFC
- Samsung Galaxy A55 - új év, régi stratégia
- Apple iPhone 17 - alap
- Honor 200 Pro - mobilportré
Ú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
- AMD Radeon RX 7600 8GB OC HIBÁTLAN!!
- Hibátlan 2+ Év Garancia! GIGABYTE GeForce RTX 4060 EAGLE OC 8GB
- AZONNAL KÉSZLETRŐL! AMD Ryzen 7 9800X3D 64GB 6000MHz RAM 2TB Gen4 SSD RTX 5090 32GB GDDR7 1200W
- AZONNAL KÉSZLETRŐL! Intel Core i5 14600K 64GB 6000MHz RAM 2TB Gen4 SSD RTX 5060 8GB FSP 750W
- AZONNAL KÉSZLETRŐL! Intel Core i5 14600K 32GB 6000MHz RAM 2TB Gen4 SSD RTX 5060 8GB FSP 750W
- ÁRGARANCIA!Épített KomPhone i5 14400F 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Gigabyte H610M i3 12100F 16GB DDR4 512GB SSD RTX 2060 6GB Zalman S2 TG Chieftec 600W
- GYÖNYÖRŰ iPhone 15 Pro 256GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, 100% Akkumulátor
- HIBÁTLAN iPhone 14 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3240
- Samsung Galaxy S23 Ultra Green 120 Hz Dynamic AMOLED 2X, 200 MP kamera, beépített S Pen
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest