Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Lite hjälp med en funktion i en listview

Postades av 2006-06-04 11:17:02 - Tyronne Engström, i forum visual basic - allmänt, Tråden har 3 Kommentarer och lästs av 775 personer

Hej!

Neda skrivna kod fungerar så att när jag skriver ett a som ex i txtQuickContact då söks denna rad upp i listviewn. Problemet är att den såker i alla kolumnerna. Det jag vill ha hjälp med är att bryta ut koden neda så att den bara söker i en viss kolumn ex kolumn 3.

Det ultimata vore att jag kunde klicka på kolumnhuvudet också söker den bara i den kolumn som är markerad.

Kan någon hjälpa mig med detta eller ge mig lite tips på hur detta skall gå till


/tyronne

<code>
Private Sub txtQuickContact_Change()
Set xItem = FindItem(ltwContact.ListItems, txtQuickContact.Text)

If xItem Is Nothing Then

Else
xItem.EnsureVisible
xItem.Selected = True
ltwContact.SetFocus

End If
ltwContact.Refresh
ltwContact.HideSelection = False
txtQuickContact.SetFocus
End Sub

Private Function FindItem(ListItems As ListItems, Text As String) As ListItem
Dim Item As ListItem
Dim SubItem As ListSubItem
For Each Item In ListItems
If InStr(1, Item.Text, Text, vbTextCompare) Then
Set FindItem = Item
Exit Function
Else
For Each SubItem In Item.ListSubItems
If InStr(1, SubItem.Text, Text, vbTextCompare) Then
Set FindItem = Item
Exit Function
End If
Next
End If
Next
End Function
</code>


Svara

Sv: Lite hjälp med en funktion i en listview

Postades av 2006-06-04 12:51:54 - Peter Larsson

Antar att det var så här du menade :)

Private Sub lvwContact_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Dim Item As ListItem

   Set Item = FindItem(lvwContact.ListItems, txtQuickContact.Text, ColumnHeader.Index)
End Sub

Private Function FindItem(ListItems As ListItems, Text As String, Col As Integer) As ListItem
Dim item As ListItem
Dim SubItem As ListSubItem
    For Each item In ListItems
        If InStr(1, item.SubItems(Col), Text, vbTextCompare) Then
            Set FindItem = item
            Exit Function
        End If
    Next
End Function


/Peter


Svara

Sv:Lite hjälp med en funktion i en listview

Postades av 2006-06-06 11:44:19 - Tyronne Engström

hej!

tack för hjälpen men jag får ett felmeddelande vid

<code>
If InStr(1, Item.SubItems(Col), Text, vbTextCompare) Then
</code>

Runtime err 308
meddelande säger invalid propertie value

Några förslag

/Tyronne


Svara

Sv: Lite hjälp med en funktion i en listview

Postades av 2006-06-06 22:10:36 - Tyronne Engström

Jag löste det själv...

Tack för hjälpen


/Tyronne


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 725
27 958
271 751
503
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies