Frage zu ListBox_Click
10.02.2013 11:13:04
Frank
Auf einer UF befinden sich Textfelder und ListBoxen.
Mittels Klick auf ListBox1 wird der folgende Code ausgeführt:
With frmIndex
.TextBox2.Value = .ListBox1.Column(0, .ListBox1.ListIndex)
.TextBox3.Value = .ListBox1.Column(1, .ListBox1.ListIndex)
.TextBox4.Value = .ListBox1.Column(2, .ListBox1.ListIndex)
.TextBox21.Value = .ListBox1.Column(0, .ListBox1.ListIndex)
.TextBox1 = .TextBox2 & " " & " / " & " " & "CD 1"
End With
TextBox22 = Format(TextBox21, "0000") & " " & "-" & " " & "Titelbild"
Dim strDatei As String
If Not Me.Image1.Picture Is Nothing Then
Image1.Picture = Nothing
End If
strDatei = Dir("O:\Meine Dateien - neu\CD - Archiv\Cover\" & TextBox22 & ".jpg")
If strDatei = "" Then
MsgBox "Bild nicht vorhanden"
Else
Image1.Picture = LoadPicture("O:\Meine Dateien - neu\CD - Archiv\Cover\" & TextBox22 & ".jpg")
DoEvents
End If
TextBox23 = Format(TextBox21, "0000") & " " & "-" & " " & "Rückseite"
If Not Me.Image2.Picture Is Nothing Then
Image2.Picture = Nothing
End If
strDatei = Dir("O:\Meine Dateien - neu\CD - Archiv\Cover\" & TextBox23 & ".jpg")
If strDatei = "" Then
MsgBox "Bild nicht vorhanden"
Else
Image2.Picture = LoadPicture("O:\Meine Dateien - neu\CD - Archiv\Cover\" & TextBox23 & ".jpg")
DoEvents
End If
Mittels Klick auf ListBox2 wird der Code ausgeführt:
With frmIndex
.TextBox10.Value = .ListBox2.Column(0, .ListBox2.ListIndex)
.TextBox11.Value = .ListBox2.Column(1, .ListBox2.ListIndex)
.TextBox12.Value = .ListBox2.Column(2, .ListBox2.ListIndex)
.TextBox9 = .TextBox10 & " " & " / " & " " & "CD 2"
End With
Nun meine Frage:
In Spalte1 beider ListBoxen können gleiche Werte stehen. Wenn ich nun in ListBox2 klicke und der Wert aus Spalte1 ist auch in ListBox1 vorhanden, dann soll der Code aus ListBox1 ausgeführt werden und derr entsprechende Eintrag in ListBox1 selectiert werden. Konntet Ihr mich verstehen? Bitte um Hilfe!
DEanke und Gruß Frank H.