Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  combobox mit mehreren spalten

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  combobox mit mehreren spalten (258 mal gelesen)
bimbelhuber
Mitglied
technischer zeichner


Sehen Sie sich das Profil von bimbelhuber an!   Senden Sie eine Private Message an bimbelhuber  Schreiben Sie einen Gästebucheintrag für bimbelhuber

Beiträge: 12
Registriert: 08.01.2020

erstellt am: 13. Apr. 2023 21:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

servus profis...

ich habe eine combobox1 bei der ich beim UserForm_Initialize zuerst alle einträge lösche und danach folgendermaßen befülle:

    combobox1.AddItem "erster eintrag"
    combobox1.AddItem "zweiter eintrag"
    combobox1.AddItem "dritter eintrag"

bis hier her klappt alles prima. jetzt möchte ich aber zusätzliche
spalteneinträge generieren. das geht wohl mit listindex. aber ich komm einfach nicht weiter.

wie müsste der code aussehen wenn ich folgendes "umgangssprachlich" haben möchte:

    combobox1.listindex(0).AddItem "erster eintrag"
    combobox1.listindex(0).AddItem "zweiter eintrag"
    ... usw.

    combobox1.listindex(1).AddItem "Nr. 1"
    combobox1.listindex(1).AddItem "Nr. 2"
    ... usw.

dank euch schon mal für eure hilfe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2635
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2022
Plateia, Canalis
Visual Basic

erstellt am: 16. Apr. 2023 12:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für bimbelhuber 10 Unities + Antwort hilfreich

Hallo,
Verwende mal diesen Code:
Code:

    With ComboBox1
        .ColumnCount = 2
        .AddItem "erster eintrag"
        .List(.ListCount - 1, 1) = "Nr. 1"
        .AddItem "zweiter eintrag"
        .List(.ListCount - 1, 1) = "Nr. 2"
        .AddItem "dritter eintrag"
        .List(.ListCount - 1, 1) = "Nr. 3"
    End With


Zur Erklärung:
AddItem erzeugt immer eine neue Zeile und erhöht den ListCount um einen Zähler.
Normalerweise wird ein das Feld immer bei Null begonnen, weshalb ListCount-1 verwendet werden muß und Spalte 2 somit auch den Index 1 bekommt.

Wenn Du es wie in Deinem Beispiel machen wolltest:

Code:

    ' Erzeugen der Zeilen
    combobox1.AddItem "erster eintrag"
    combobox1.AddItem "zweiter eintrag"
    combobox1.AddItem "dritter eintrag"

    ' Füllen der Spalte 2
    combobox1.list(0,1) = "Nr. 1"
    combobox1.list(1,1) = "Nr. 2"
    ... usw.


[Edit] Noch ein Wort zur ListIndex-Eigenschaft: Diese gibt den Wert der ausgewählten Zeile wieder bzw. kann man damit auch eine bestimmte Zeile auswählen.

Grüße
Klaus  

[Diese Nachricht wurde von KlaK am 16. Apr. 2023 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bimbelhuber
Mitglied
technischer zeichner


Sehen Sie sich das Profil von bimbelhuber an!   Senden Sie eine Private Message an bimbelhuber  Schreiben Sie einen Gästebucheintrag für bimbelhuber

Beiträge: 12
Registriert: 08.01.2020

erstellt am: 26. Apr. 2023 12:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

super, vielen dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz