PDA

Vollständige Version anzeigen : Combobox


BHR PG
21.05.2001, 18:53
Hallo da gibt es ein kleines Problem:

Private Sub cmbdateif_Click()
If cmbdateif.ListIndex = 0 Then
txtspeichern.Text = txtspeichern.Text + ".txt"
End If
If cmbdateif.ListIndex = 1 Then
txtspeichern.Text = txtspeichern.Text + ".doc"
End If
If cmbdateif.ListIndex = 2 Then
txtspeichern.Text = txtspeichern.Text + ".bhr"
End If
If cmbdateif.ListIndex = 3 Then
txtspeichern.Text = txtspeichern.Text + ".log"
End If
If cmbdateif.ListIndex = 4 Then
txtspeichern.Text = txtspeichern.Text + ".bat"
End If
End Sub
Ein bisschen verschoben sollte aber lesbar sein?
Also ich will nun eben in eine Textbox (txtspeichern)
noch etwas hinzufügen. Dazu gibt es eine ComboBox(cmbdateif)
Wenn man nun diese Combo anklickt, dann wird an den Text etwas hinzugefügt, genauergesagt eben das was man angeklickt hat.
Aber wenn man nun den ersten List eintrag anklickt dann den zweiten werden beide Anhänge angefügt!!!
Es sollte nur einer sei!
Wie geht das?
Thanks Johannes Roth

Stefan Kulpa
22.05.2001, 05:08
<font face="Verdana" size="2">Hallo,

Du könntest Dir beispielsweise in der Tag-Eigenschaft des
Textcontrols merken, ob bereits diese Veränderung durchgeführt
wurde; z.B.:</font>
<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> cmbdateif_Click()

<FONT COLOR=#000080>Dim</FONT> sAdd <FONT COLOR=#000080>As String</FONT>
<FONT COLOR=#000080>If</FONT> txtspeichern.Tag = "" <FONT COLOR=#000080>Then</FONT>
Select Case cmbdateif.ListIndex
Case 0: sAdd = ".txt"
Case 1: sAdd = ".doc"
Case 2: sAdd = ".bhr"
Case 3: sAdd = ".log"
Case 4: sAdd = ".bat"
Case <FONT COLOR=#000080>Else</FONT>: <FONT COLOR=#000080>Exit Sub</FONT>
<FONT COLOR=#000080>End</FONT> Select
<FONT COLOR=#000080>With</FONT> txtspeichern
.Tag = sAdd
.Text = .Text & .Tag
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></PRE>

<font face="Verdana" size="2">Gruß</font>

BHR PG
22.05.2001, 16:54
Danke so klapts!!!

Johannes Roth