vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Schnelle "Select" Findung im ListView? 
Autor: ILM
Datum: 26.11.01 13:05
Hi,

Ich hab irgendwo im Netz folgenden Tip gefunden:

Add this code to the Module:

Option Explicit

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Const LB_GETSELITEMS = &H191
'-- End --'


Add this code to the Form:

Option Explicit

Private Sub Form_Load()
Dim i As Integer
' Add some items to the listbox
For i = 1 To 25
List1.AddItem "Item " & i
Next i
End Sub

Private Sub Command1_Click()

Dim SelItems() As Long
Dim SelectedCount As Long
Dim i As Long
Dim sMsg As String

' The LB_GETSELITEMS is passed to the ListBox
' using SendMessage. To work LB_GETSELITEMS
' requires two additional parameters: A pointer
' to the array that will hold all indexes of
' selected items (lParam) and a parameter holding
' the number of selected items.

' First get the number of selected items
SelectedCount = List1.SelCount
' If one or more items are selected then
' fill then proceed.
If SelectedCount > 0 Then
' Redimension the Array so that it can
' hold index values of all selected items.
ReDim SelItems(SelectedCount - 1)
' Now fill the array with the index values
' of all selected items. The pointer to the
' array is the first array element.
SendMessage List1.hwnd, LB_GETSELITEMS, ByVal SelectedCount, _
SelItems(0)
End If

' Show a message box with the caption of all selected items
If SelectedCount > 0 Then
sMsg = "Selected items:" & vbCr & vbCr
For i = 0 To SelectedCount - 1
sMsg = sMsg & List1.List(SelItems(i)) & vbCr
Next i
MsgBox sMsg, , "Selected items"
Else
MsgBox "No items were selected", , "Selected items"
End If

End Sub
' -- End --'

Dieser Code findet besonders schnell heraus, welche Item im List selektiert sind. Gibt es sowas auch für die ListView?

Danke

ILM

PS: Sorry, wenn ich hier fremden Code veröffentliche....
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Schnelle "Select" Findung im ListView?52ILM26.11.01 13:05
Re: Schnelle "Select" Findung im ListView?274ModeratorDieter26.11.01 22:51

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel