Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Eigenschaften einer ComboBox
zurück: and operator weiter: Alle Zeilen mit Datum älter als heute löschen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Klappspaten
Gast


Verfasst am:
28. Feb 2013, 00:13
Rufname:

Eigenschaften einer ComboBox - Eigenschaften einer ComboBox

Nach oben
       Version: Office 2010

Hi zusammen

Mal kurz nachgefragt: Gibt es eine Möglichkeit, die Eigenschaften einer ComboBox (auf Userform) auszulesen?
Code:
Sub CbxProp()
Dim i As Integer
Dim s As Integer

On Error Resume Next
s = 1
With frmDasWillIchWissen.Controls("DasMussGehen")
For i = 1 To 40
Worksheets("Tabelle1").Range("A" & s) = .Properties(i)
s = s + 1
Next
End With

End Sub

Das funktioniert gar nicht. Natürich kann man sich eine Liste aller möglichen Properties schreiben und die dann nacheinander abfragen, aber dazu bin ich zu faul.

Danke für Eure Mühe. Gruss, Peter
Isabelle :-)
Menschin


Verfasst am:
28. Feb 2013, 01:14
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis


AW: Eigenschaften einer ComboBox - AW: Eigenschaften einer ComboBox

Nach oben
       Version: Office 2010

Hallöchen,

Laughing Laughing Laughing Laughing Laughing

Wenn's so einfach ginge, dann könnte es ein jeder.

Das geht nur mit einer speziellen DLL, nämlich der tlbinf32.dll. Die gehört zu den Runtime-Bibliotheken von VB6.0. Die wird z.B. installiert, wenn du dir hier:

http://www.intorel.com/index.php/company/about-us/news/28-vbscript-editor-free-download

den VBScript Editor runterlädst und installierst.

Ein Beispiel wie du alle, auch verborgene, Eigenschaften und Methoden einer Combobox auslesen kannst:

Code:
Public Sub Combobox_Propertys()

    Dim objTLIApplication As TLIApplication
    Dim objTypeLibInfo As TypeLibInfo
    Dim objCoClassInfo As CoClassInfo
    Dim objMemberInfo As MemberInfo

    Set objTLIApplication = New TLIApplication

    Set objTypeLibInfo = objTLIApplication.TypeLibInfoFromFile( _
        Filename:="C:\Windows\System32\fm20.dll")

    For Each objCoClassInfo In objTypeLibInfo.CoClasses

        If objCoClassInfo.Name = "ComboBox" Then

            For Each objMemberInfo In objCoClassInfo.DefaultInterface.Members

                With objMemberInfo

                    Debug.Print .Name & Space$(50 - Len(.Name)), Switch( _
                        .InvokeKind = INVOKE_PROPERTYGET, "Lesen", _
                        .InvokeKind = INVOKE_PROPERTYPUT, "Schreiben", _
                        .InvokeKind = INVOKE_FUNC, "Methode", _
                        .InvokeKind = INVOKE_PROPERTYPUTREF, "Objekt")

                End With
            Next

            Exit For

        End If
    Next

    Set objMemberInfo = Nothing
    Set objCoClassInfo = Nothing
    Set objTypeLibInfo = Nothing
    Set objTLIApplication = Nothing

End Sub

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
Gast



Verfasst am:
28. Feb 2013, 10:20
Rufname:

AW: Eigenschaften einer ComboBox - AW: Eigenschaften einer ComboBox

Nach oben
       Version: Office 2010

Hi Isi

Dazu hatte ich schon einen recht umfangreichen Code - der ebenfalls auf die TliApplication abstellt. Dabei wird allerdings der Abrufteil in eine separate Funktion ausgelagert.
Code:
Public Function getInvokeString(ByVal invoke As Long)
    Dim s As String
    Select Case invoke
        Case 0: s = "INVOKE_UNKNOWN"
        Case 1: s = "INVOKE_FUNC"
        Case 2: s = "INVOKE_PROPERTYGET"
        Case 4: s = "INVOKE_PROPERTYPUT"
        Case 8: s = "INVOKE_PROPERTYPUTREF"
        Case 16: s = "INVOKE_EVENTFUNC"
        Case 32: s = "INVOKE_CONST"
        Case Else: s = "??? PANIC"
    End Select
    getInvokeString = s
End Function

Scheint nix anderes zu geben. Schade eigentlich. Dachte, da würde MS mal was machen für die armen Amateure.

Danke für den Tip. Gruss, Peter
Gast



Verfasst am:
28. Feb 2013, 13:54
Rufname:

AW: Eigenschaften einer ComboBox - AW: Eigenschaften einer ComboBox

Nach oben
       Version: Office 2010

Hi,

bevor du die dll benutzt, solltest du dies lesen

http://social.msdn.microsoft.com/Forums/de-DE/visual_studiode/thread/

ob du sie dann verwendest bleibt dir überlassen

Gruß Steve
Gast



Verfasst am:
28. Feb 2013, 13:57
Rufname:


AW: Eigenschaften einer ComboBox - AW: Eigenschaften einer ComboBox

Nach oben
       Version: Office 2010

Hi,

Link oben ist nicht korrekt, hoffe das es jetzt klappt

http://social.msdn.microsoft.com/Forums/de-DE/visual_studiode/thread/2d958429-310e-49e8-b9f6-800997c2a147/

Steve
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Wo ist Eigenschaften-Dialog von ComboBox? 2 freeone 791 11. Jul 2011, 09:17
freeone Wo ist Eigenschaften-Dialog von ComboBox?
Keine neuen Beiträge Excel Formate: Combobox verstellt sich 0 gitarrist 497 01. Sep 2010, 17:14
gitarrist Combobox verstellt sich
Keine neuen Beiträge Excel Formeln: Rechenformeln für Userform- TextBox + ComboBox 1 espresso 1604 08. Jun 2010, 09:30
Gast Rechenformeln für Userform- TextBox + ComboBox
Keine neuen Beiträge Excel Formeln: Inhalt (Auswahl) von Combobox in Zelle mit Formel? 1 Steffen11 399 08. Dez 2009, 18:35
neopa Inhalt (Auswahl) von Combobox in Zelle mit Formel?
Keine neuen Beiträge Excel Formeln: Separate Excel Liste in einer Combobox, machbar? 0 PabloGomez 1388 23. Jul 2009, 10:49
PabloGomez Separate Excel Liste in einer Combobox, machbar?
Keine neuen Beiträge Excel Formeln: mittels Combobox Zeilen verstecken ? 0 Simon-ch 381 14. Okt 2008, 12:07
Simon-ch mittels Combobox Zeilen verstecken ?
Keine neuen Beiträge Excel Formeln: ComboBox Text in Zelle bzw. Variable kopieren 2 ghune 4961 28. Jan 2008, 00:54
ghune ComboBox Text in Zelle bzw. Variable kopieren
Keine neuen Beiträge Excel Formeln: "Eigenschaften" gleicher Datensätze aufsummieren 4 Gst070417_1 508 18. Apr 2007, 17:01
Gast070417_3 "Eigenschaften" gleicher Datensätze aufsummieren
Keine neuen Beiträge Excel VBA (Makros): Mit Variable mehrer Eigenschaften verknüpfen 17 Andre1977 1301 15. Jan 2005, 16:01
Feanor Mit Variable mehrer Eigenschaften verknüpfen
Keine neuen Beiträge Excel VBA (Makros): ComboBox Probleme 12 Benjamin 588 21. Dez 2004, 17:23
Kilrathy ComboBox Probleme
Keine neuen Beiträge Excel VBA (Makros): Nur bestimmte Einträge in Combobox 1 sreuber 586 11. Dez 2004, 10:21
Nepumuk Nur bestimmte Einträge in Combobox
Keine neuen Beiträge Excel VBA (Makros): Combobox: Nebenwerte parallel in Tabelle füllen 7 Feanor 2002 05. Okt 2004, 21:42
Hindy Combobox: Nebenwerte parallel in Tabelle füllen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln