Vb Combobox Werte auslesen

Vb Combobox Werte auslesen (12 Beiträge, 65 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

hasts ja eh schon ...

mit ComboBox.ListIndex findest heraus, welcher Item gewählt wurde .. und danach halt je nach gewähltem Item mit den richtigen .addItems füllen

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

kannst ma das mal hinschreiben für ein Beispiel?

wenn ich in meine Textbox den text aus der txt einlese, müsste noch ein Scrollbalken dazu,sobald der Text länger ist als die box, wie würde das gehen?

Scrollbar hab ich nun..habs übersehen :/

25.09.2005, 19:10 Uhr - Editiert von hellraiser, alte Version: hier

muss ich das mit einer If anweisung reinschreiben?

richtig ...

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

und wie würde das aussehen?
kommt das eh in die Sub rein, wo ich das txt aufrufe?

also vb6 supporte ich wirklich nimmer

was für ein txt ?

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

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 & Combo2.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:23 Uhr - Editiert von hellraiser, alte Version: hier

schreib mal überall wo ein \ vorkommt \\ (also zwei)

sprich: aus "L:\cde.txt" wird "L:\\cde.txt"

Wozu weibliche Unvernunft imstande ist, hat sich schon an der Idee erwiesen, sich von einer sprechenden Schlange Diätvorschriften geben zu lassen. (Orson Welles)

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