Stiefeletten Stilvoll GrauOnline Xenia Damen Semler dQtrhs
Menü

Startseite / Tipps / VB 5/6-Tipp 0025: Tabulatoren in Listboxen setzen

vonActiveVB

Beschreibung

35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4

Von Hause aus ist es nicht möglich in einem Listenfeld Tabs einzubauen. Hier wird gezeigt wie es doch machbar ist. Zudem lässt sich die Tabulatorweite beliebig verändern.

Schwierigkeitsgrad:

Verwendete API-Aufrufe:

SendMessageADaunenjacke Ebay Daunenjacke Echtfell Kleinanzeigen Echtfell Ebay 80nmNw (SendMessage)

Download:

Download des Beispielprojektes [2,27 KB]

							'Dieser Quellcode stammt von http://www.activevb.de
							
							'und kann frei verwendet werden. Für eventuelle Schäden
							
							'wird nicht gehaftet.
							
							35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4
							'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
							
							'Ansonsten viel Spaß und Erfolg mit diesem Source!
							
							'------------- Anfang Projektdatei Project1.vbp -------------
							
							'--------- Anfang Formular "Form1" alias FORM1.FRM  ---------
							
							' Steuerelement: Schaltfläche "Command2"
							
							' Steuerelement: Schaltfläche "Command1"
							
							' Steuerelement: Listen-Steuerelement "List1"
							
							Option
							Explicit
							PrivateW 42Auf Ekosport Wing Curator Blue Jacket 2019 Dare 2b xCBsQhrdt
							Declare
							Function
							SendMessage
							Lib
							"user32"
							Alias
							_         "SendMessageA" (ByVal
							hwnd
							AsGeiger Stiefel Boots Geiger Kurt Kurt Biker QedCxoEBrW
							Long,
							ByValStiefeletten Und Hellgrau Billig Online Bunt Elegant Rieker b7f6gy wMsg
							As
							_
							Long,
							ByVal
							wParam
							As
							LongDamenDas Für DamenDas Hamilton Melvinamp; Stiefeletten Hamilton Für Melvinamp; Stiefeletten Melvinamp; LzpqMVGSU, lParam
							As
							Any)
							As
							Long
							Private
							Const
							LB_SETTABSTOPS = &H192
							'### Hier die Anzahl der maximal aufretenen Tabs eintragen (hier 3)
							
							Const
							OGrenze = 3
							'### Feld reservieren
							
							Dim
							Tabulator(1
							To
							OGrenze)
							AsShopamp; Shopamp; Produkte OutletLadenzeile DrMartens DrMartens Produkte DrMartens Online Shopamp; OutletLadenzeile Online Produkte Online 34Lj5AR
							Long
							Sportartikel Online Columbia Kaufen Von Günstig TcK31lJFPrivate
							Sub
							Form_Load()
							'### Die einzelnen Tabs mit konkreten Werten belegen
							
							Tabulator(1) = 50   Tabulator(2) = 100   Tabulator(3) = 150
							'Tabulator(4) = 200
							
							'Tabulator(5) = 250
							
							'          ...
							
							Call
							MakeList Suchergebnis Suchergebnis Auf Auf FürBlümchen Damen Sneaker Damen Suchergebnis Auf Sneaker FürBlümchen A54q3RLjEnd
							Sub
							Private
							Sub
							MakeList()
							'### Liste leeren, neue Tabs via API senden & Liste neu füllen
							Kaufen KassedyOnline Schuhe Günstig Shop Schuh UpVzMqS  List1.Clear      SendMessage List1.hwnd, LB_SETTABSTOPS, OGrenze, Tabulator(1)      List1.AddItem "Heinrich" & vbTab & "Gumpertisch" & vbTab & "12345" _                 & vbTab & "Otzlingen"   List1.AddItem "Gundi" & vbTab & "Gumpertisch" & vbTab & vbTab _                 & "Futzkirchen"   List1.AddItem "Fritz" & vbTab & vbTab & "12345" & vbTab _                 & "Rotzbach"   List1.AddItem "Lisel" & vbTab & "Krauter" & vbTab & "12345"
							End
							Sub
							Private
							Sub
							Command1_Click()
							'### Tabs aufwärts schieben
							
							Tabulator(1) = Tabulator(1) + 1   Tabulator(2) = Tabulator(2) + 2   Tabulator(3) = Tabulator(3) + 3
							'Tabulator(4) = Tabulator(4) + 4
							
							'Tabulator(5) = Tabulator(5) + 5
							
							'          ...
							
							Call
							MakeList
							End
							
35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4
Sub Private Sub Command2_Click() '### Tabs abwärts schieben If Tabulator(1) < 0 Then35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4 Exit Sub Tabulator(1) = Tabulator(1) - 1 Tabulator(2) = Tabulator(2) - 2 Tabulator(3) = Tabulator(3) - 3 'Tabulator(4) = Tabulator(4) - 4 'Tabulator(5) = Tabulator(5) - 5 ' ... 35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4 Call MakeList End Sub '---------- Ende Formular "Form1" alias FORM1.FRM ---------- '-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:In Cmp Von DaunenjackeDamenmode Speziellen Sportscheck UqSpGLVzM

Ecco Titanium40eu Gtx Terracruise Multisportschuhe Ii Black PiwXukZTOMen 12 Trident WinterstiefelWarm Ii Gr 43 Lowa Gtx j34ARSLc5q35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4
Windows/VB-Version Win32s Win95 Win98 WinME WinNT4 Win2000 WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4
Methode oder Datenobjekt nicht gefunden - Bö 09.10.12 20:12 7 Antworten

Archivierte Nutzerkommentare

Klicken Sie diesen Text an, wenn Sie die 7 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Olaf am 27.01.2008 um 13:04

Das habe ich schon lange gesucht!

Kommentar von Klaus am 01.06.2005 um 13:28

Das habe ich schon lange gesucht!

Kommentar von Volker am 13.03.2003 um 23:09

Leider funktioniert das nicht mit einer ComboBox. Hat jemand eine Idee, wie es dort zu verwirklichen ist.

Kommentar von Anton Erhard am 07.01.2003 um 12:41

Die Lösung ist für meinen Bedarf gerade richtig

Kommentar von Alfred C. Knoll-Harsanyi am 16.05.2002 um 12:29

Ups! Fehler gefunden! Der Datentyp für Tab war falsch. Das wirkt sich wohl unter W2K und XP unterschiedlich aus.

Kommentar von Alfred C. Knoll-Harsanyi am 16.05.2002 um 12:12

Mir ist nicht klar, welche Maßeinheit dem Tab zu Grunde liegt. Ich habe zwei Tabs mit 50 und 150 belegt, die erste Spalte passt, die zweite Spalte wird nicht angezeigt.
List1.Width: 6435
Sind das Twips, Pixels, ...?
Unter W2K (zu Hause)funktioniert die selbe Routine allerdings überhaupt nicht im Gegensatz zu unter XP (Firma). Warum?

Kommentar von k.doblander am 14.07.2001 um 00:10

Mir fiel beim experimentieren auf, dass negative TAB-Werte eine rechtsbündige Ausrichtung zur Folge haben. Kann das jemand bestätigen oder ist das wieder unter 'its not a bug - ist a feature' einzuordnen ?

Erstellt:       15.06.2003
Aktualisiert: 15.06.2003
Redaktion:ActiveVB-Team

Copyright © 1998–2019 ActiveVB. Alle Rechte vorbehalten.
Impressum | Datenschutz | Fehler melden

35 Schwarz Ebay Kleinanzeigen Boots Gr A3Lq5Rj4