AW: 2 Listboxen, aufheben der selection
17.09.2004 16:32:09
Tobias
Public Sub deselect(box As Integer, box2 As Integer, box3 As Integer, box4 As Integer)
Dim intIndex As Integer
If (box = 1) Then ' bibo
List_own_added.ListIndex = -1
List_circuit.ListIndex = -1
End If
.... (kommt immer das gleiche für die anderen boxen)
End Sub
Private Sub fill_textbox(text As Variant)
Dim tempArray() As String
Dim lauf As Integer
Dim all_times As String
'string wird wieder zerlegt und in einem array zwischengespeichert
tempArray = Split(text, ";", , vbTextCompare)
'die ersten elemente werden in die entsprechenden textboxen ausgegeben
textbox_name.text = tempArray(0) <------ erste Stelle an der er rummeckert
textbox_input.text = tempArray(1) wenn ich das mit dem List=-1 mach
textbox_output.text = tempArray(2)
'für die textbox alle zeiten wird ein extra string zusammengefügt
For lauf = 3 To UBound(tempArray) - 1
all_times = all_times & tempArray(lauf) & ";"
Next
all_times = all_times & tempArray(UBound(tempArray))
'string all_times wird dann ebenfalls ausgegeben
textbox_all_time.text = all_times
End Sub
Private Sub List_bibo_Click()
Dim text As String
fill_textbox (List_bibo.List(List_bibo.ListIndex)) <---- hier übergebe ich
text = textbox_all_time.text den index mit
textbox_used_time.text = ""
fill_timelist (text)
Sortlistbox
filter_time
LCLE_Value = List_bibo.SelCount
LCLE_bibo = True
LCLE_own_added = False
LCLE_circuit = False
deselect 1, 0, 0, 0
End Sub
weiß nicht ob das reicht, aber das sind nur die sachen die man dafür eigentlich braucht.
mfg
Tobias