Re(6): Vb Combobox Werte auslesen

Vb Combobox Werte auslesen (12 Beiträge, 77 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Habe 3 Comboboxes und in jeder stehen Werte.

Jetz soll
1.) die zweite und dritte combox nicht anwählbar sein,solange in der ersten nix ausgewählt wurde
wenn in der ersten was ausgewählt wurde, soll die 2te Box zum Auswählen gehen.
3te noch gesperrt.
2te ausgewählt, dann sollte dritte freigeschalten werden.

2.) je nachdem welche werte ausgewählt wurden, sollte ein entsprechende txt file aufgemacht werden,und dessen inhalt in eine Textbox geschrieben werden.
also txt Inhalt einlesen hab ich schon.

Aber wie kann ich die Werte abfragen, und aufgrund deren die entsprechende txt aufrufen?

Source:

Private Sub Form_Load()

Combo1.AddItem "Wählen Sie die Maschinentype"
Combo2.AddItem "Wählen Sie die Etikettgröße"
Combo3.AddItem "Wählen Sie die Paketgröße"

Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0

End Sub

Private Sub Combo1_DropDown()

With Combo1
  .Clear
  .AddItem "Wählen Sie die Maschinentype"
  .AddItem "3038"
  .AddItem "3138"
  .AddItem "3138-N"
  .ListIndex = 0
End With

End Sub

Private Sub Combo2_DropDown()
With Combo2
  .Clear
  .AddItem "Wählen Sie die Etikettgröße"
  .AddItem "10x5  mm"
  .AddItem "15x10 mm"
  .AddItem "20x15 mm"
  .ListIndex = 0
End With
End Sub

Private Sub Combo3_DropDown()
With Combo3
  Combo3.Clear
  .AddItem "Wählen Sie die Paketgröße"
  .AddItem "15x10  mm"
  .AddItem "20x15 mm"
  .AddItem "30x20 mm"
  .ListIndex = 0
End With
End Sub

Re: Vb Combobox Werte auslesen (Somnatic am 25.09.2005, 18:48:42)

Re(2): Vb Combobox Werte auslesen (hellraiser am 25.09.2005, 19:05:37)

Re(2): Vb Combobox Werte auslesen (hellraiser am 25.09.2005, 19:11:39)

Re(3): Vb Combobox Werte auslesen (Somnatic am 25.09.2005, 19:26:33)

Re(4): Vb Combobox Werte auslesen (hellraiser am 25.09.2005, 19:30:13)

Re(5): Vb Combobox Werte auslesen (Somnatic am 25.09.2005, 19:44:04)

mittlerweile hab ich die If so hingedreht, das es geht

also nach der Auswahl drück ich den Button für Einlesen der entsprechenden txt file.
wenn ich jedoch keine Maschine auswähle, kommt die MsgBox mit der Meldung.
Aber danach kommt ein File Path Error und ich kann die Maschine nicht auswählen.

Wie geht das, das er nach dieser MsgBox wieder zurück ins normale Menü wechselt?
Edit: hab das jetz auch geschafft.

Jedoch hab ich jetzt folgendes Problem:

ElseIf (Combo1.ListIndex = 1 & Combo1.ListIndex = 1) Then
dateiname = "L:\xyz.txt"

das heisst, er sollte die xyz txt aufrufen,wenn der Listindex der 1.sten Combo auf 1 und der Listindex der 2ten Combo auf 1 ist.
Hier hat er aber einen "File/Path" not found.
Ohne die Bedingung der 2ten Combo gehts :/

Private Sub cmdHardware_click()

'Diese Sub öffnet die datei XYZ.txt und schreibt den Inhalt in das Textfenster
Dim dateinummer As Integer
Dim dateigroesse As Long
dateinummer = FreeFile

If Combo1.ListIndex = 0 Then
antwort = MsgBox("Kein Printer Applicator ausgewählt," & vbCrLf & _
"bitte wiederholen.", bExclamation, "Text-Editor")
Exit Sub

ElseIf Combo1.ListIndex = 1 Then
dateiname = "L:\xyz.txt"

ElseIf Combo1.ListIndex = 2 Then
dateiname = "L:\abc.txt"

ElseIf Combo1.ListIndex = 3 Then
dateiname = "L:\cde.txt"

End If

25.09.2005, 21:22 Uhr - Editiert von hellraiser, alte Version: hier

[ Dieser Beitrag wurde inzwischen editiert. Die aktuelle Version befindet sich hier. ]

Re(6): Vb Combobox Werte auslesen (hellraiser am 25.09.2005, 19:57:18)

Re(7): Vb Combobox Werte auslesen (Somnatic am 25.09.2005, 22:40:32)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung