Vb Combobox Werte auslesen

Re(7): Vb Combobox Werte auslesen

Somnatic — Sun, 25 Sep 2005 20:40:32 GMT

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

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

Re(6): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:57:18 GMT

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

Re(6): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:57:18 GMT

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

Re(6): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:57:18 GMT

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?

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")

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

Re(5): Vb Combobox Werte auslesen

Somnatic — Sun, 25 Sep 2005 17:44:04 GMT

also vb6 supporte ich wirklich nimmer

was für ein txt ?

Re(4): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:30:13 GMT

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

Re(3): Vb Combobox Werte auslesen

Somnatic — Sun, 25 Sep 2005 17:26:33 GMT

richtig ...

Re(2): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:11:39 GMT

muss ich das mit einer If anweisung reinschreiben?

Re(2): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:05:37 GMT

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?

Re(2): Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 17:05:37 GMT

Re: Vb Combobox Werte auslesen

Somnatic — Sun, 25 Sep 2005 16:48:42 GMT

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

Vb Combobox Werte auslesen

hellraiser — Sun, 25 Sep 2005 16:34:18 GMT

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