ComboBox-Text überschreiben?

  • VB6

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Pascal.

    ComboBox-Text überschreiben?

    Hallo liebe Experten!

    Bitte um Rat. Habe bisjetzt nichts zum Thema gefunden (nur eine Lösung zu einem umgekehrten Problem :) ).
    Ich habe eine ComboBox, mit der ein bestimmter Wert für Lamellenabstand ausgewählt wird. Nun möchte ich dem Anwender die Möglichkeit geben den Wert der Combobox zu überschreiben, also wenn man nur zwischen 2,5 und 3,0mm wählen kann, dass man auch 2,8mm in der Combobox eingeben kann und damit weiterrechnen. Style ist auf 0-Dropdown-Kombinationsfeld eingestellt.

    Habe es mit einem Textfeld versucht, TxtLA.Text=CmbLA.Text, klappt nicht, es werden nur per .AddItem hinzugefügte Einträge übernommen.

    Danke für eure hilfe im Voraus!

    Viele Grüße

    Wie ist Deine Frage zu verstehen? Mu möchtest also, dass der zusätzlich eingetragene Wert mit in die DropDown Liste aufgenommen wird? Dazu im keypress auf chr$(13) prüfen. Wenn dieser kommt, den aktuellen Wert mit allen vorhandenen vergleichen und bei nicht vorhanden sein Eintragen.

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub Combo1_KeyPress(KeyAscii As Integer)
    4. Dim i As Integer
    5. Dim bolDa As Boolean
    6. Dim strWert As String
    7. bolDa = False
    8. strWert = Combo1.Text
    9. If KeyAscii = 13 Then
    10. For i = 0 To Combo1.ListCount - 1
    11. If Combo1.List(i) = strWert Then
    12. bolDa = True
    13. Exit For
    14. End If
    15. Next i
    16. If Not bolDa Then
    17. Combo1.AddItem strWert
    18. cboSort
    19. End If
    20. End If
    21. If KeyAscii = Asc(",") Then
    22. KeyAscii = Asc(".")
    23. End If
    24. If KeyAscii = 32 Then
    25. KeyAscii = 0
    26. End If
    27. End Sub
    29. Private Sub Form_Load()
    31. Dim i As Integer
    32. Combo1.Clear
    33. For i = 1 To 50
    34. Combo1.AddItem Trim(Str(i))
    35. Next i
    36. Combo1.AddItem "50.5"
    37. For i = 51 To 100
    38. Combo1.AddItem Trim(Str(i))
    39. Next i
    41. Combo1.ListIndex = 0
    43. End Sub
    47. Private Sub cboSort()
    48. Dim i As Integer
    49. Dim intPos As Integer
    50. Dim iMax As Integer
    51. Dim sngWert() As Single
    52. Dim sngMerk As Single
    53. If Combo1.ListCount > 1 Then
    54. ReDim sngWert(Combo1.ListCount - 1)
    55. For i = 0 To Combo1.ListCount - 1
    56. sngWert(i) = Val(Combo1.List(i))
    57. Next i
    58. intPos = UBound(sngWert)
    59. Do While CBool(intPos > 0)
    60. iMax = intPos - 1
    61. intPos = 0
    62. For i = 0 To iMax
    63. sngMerk = sngWert(i)
    64. If sngWert(i + 1) < sngMerk Then
    65. sngWert(i) = sngWert(i + 1)
    66. sngWert(i + 1) = sngMerk
    67. intPos = i
    68. End If
    69. Next i
    70. Loop
    71. Combo1.Clear
    72. For i = 0 To UBound(sngWert)
    73. Combo1.AddItem Trim(Str(sngWert(i)))
    74. Next i
    75. Combo1.ListIndex = 0
    76. End If
    77. End Sub
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „peterfido“ ()

    Nein, dass möchte ich gar nicht.
    Angenommen, ich habe in dem Dropdown-Menü Auswahl zwischen 1mm, 2mm, 3mm, 4mm und 6mm. Diese Werte werden als 1, 2, 3, 4 und 6 im Programm weiter verwendet. Wenn der Anwender aber lieber mit 3,4mm rechnen möchte, soll das auch gehen, indem er diesen Wert in das Textfeld der Combobox eintippt. Das Dropdown-Menü soll unverändert bleiben. Das Problem ist, dass dieser eingetippte Wert anscheinend aus der Combobox nicht ausgelesen werden kann.

    Hallo, Lia.

    Erstmal Willkommen im Forum!

    So, nun zu deinem Problem. Im Prinzip kann ich mich Marcus Gräfe nur anschließen - genauso, wie du es beschrieben hast, müsste es eigentlich gehen. Unabhängig davon, ob in der Combo-Box jetzt Werte aufgelistet sind oder nicht, müsste die Weiterverarbeitung des Inhaltes der Text-Eigenschaft der CB eigentlich reibungslos funktionieren. Wenn sie das nicht tut, stimmt irgendetwas bei dir nicht.

    Damit wir dir dabei helfen können herauszufinden, was da nicht klappt würde ich dir empfehlen, erstmal eine genaue Fehlerbeschreibung hier zu posten. Was genau passiert, wenn der Benutzer eine eigene Zahl eingibt? Wird diese nicht angenommen, kommt eine Fehlermeldung, passiert einfach gar nichts? Hast du schonmal versucht, mit Haltepunkten herauszufinden, wo das Problem liegt?

    Zur Not könntest du das Projekt als Ganzes vielleicht hochladen damit man direkt einen Blick drauf werfen könnte.

    mfG

    Malcolm

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Malcolm“ ()

    Hallo!!

    Vielen Dank für Eure Antworten!
    Ich muss zugeben, Marcus Gräfe und Malcolm haben Recht, das funktioniert, ich beschreibe hier kurz was los war:

    *1* also ich habe es so versucht, wie zippozappo beschrieben hat, mit einem Textfeld neben der Combobox, das deren Wert mit

    TxtLA.Text=CmbLA.Text in Sub CmbLA_Click()

    übernehmen sollte. Das hat geklappt, allerdings nur mit den in der Box enthaltenen Werten, die vom Benutzer eingetragenen Werte wurden in das Textfeld nicht übernommen

    *2* dann habe ich den Wert CmbLA.Text in einem Fextfeld auf einem anderen Formular anzeigen lassen und das funktioniert 100%ig so wie ich es will

    *3* habe auch mit CmbLA_Change() versucht, allerdings hat mich das Programm nur ein einziges Zeichen eingeben lassen

    Also im Prinzip fnktioniert alles, nur würde mich interessieren, warum *1* nicht geht.

    Danke nochmals Euch allen!

    Gruß

    Hallo, Lia.

    Eigentlich müsste das auch auf dem selben Formular funktionieren, auf dem die ComboList ist, eigentlich brauchst du kein neues Formular, damit es funktioniert. Ich vermute, dass irgendwas bei dir falsch eingestellt ist. Ohne den Quellcode von dir kann man dir dabei leider nicht weiterhelfen, schließlich können wir sonst nur raten, wo das Problem liegt. Also bitte veröffentliche den betreffenden Quellcode oder das ganze Projekt.

    mfG

    Jo, das denke ich auch. Wenn Du das Change-Ereignis nimmst, reagiert Dein Programm natürlich nach jeder Eingabe (es ändert sich ja auch was).

    Bei Dir bietet sich das KeyUp-Ereignis an, denn dann kannst Du prüfen ob es sich um die Eingabetaste handelt. Ist das der Fall, kannst Du den Wert aus der ComboBox auslesen und im weiteren Programmverlauf verwenden.

Facebook
Telefonspende