AW: Laden Bild UserForm
14.05.2013 08:22:37
Beverly
Hi Mehmet,
Private Sub ComboBox1000_Change()
Dim strVorhanden As String
strVorhanden = Dir("D:\pic\" & ComboBox1000.List(ComboBox1000.ListIndex, 1) & _
"-" & ComboBox1000.List(ComboBox1000.ListIndex, 3) & "-" & _
ComboBox1000.List(ComboBox1000.ListIndex, 5) & ".jpg")
If Not bolaendern Then
TextBox1000 = ComboBox1000.List(ComboBox1000.ListIndex, 1)
TextBox2000 = ComboBox1000.List(ComboBox1000.ListIndex, 2)
TextBox3000 = ComboBox1000.List(ComboBox1000.ListIndex, 3)
TextBox4000 = ComboBox1000.List(ComboBox1000.ListIndex, 4)
TextBox5000 = ComboBox1000.List(ComboBox1000.ListIndex, 5)
Label1000 = ComboBox1000.List(ComboBox1000.ListIndex, 1)
Label2000 = ComboBox1000.List(ComboBox1000.ListIndex, 2)
Label3000 = ComboBox1000.List(ComboBox1000.ListIndex, 3)
Label4000 = ComboBox1000.List(ComboBox1000.ListIndex, 4)
Label5000 = ComboBox1000.List(ComboBox1000.ListIndex, 5)
If strVorhanden "" Then
Image1000.Picture = LoadPicture("D:\pic\" & _
ComboBox1000.List(ComboBox1000.ListIndex, 1) & "-" & _
ComboBox1000.List(ComboBox1000.ListIndex, 3) & "-" & _
ComboBox1000.List(ComboBox1000.ListIndex, 5) & ".jpg")
Else
Image1000.Picture = Nothing
MsgBox "Bild nicht vohanden"
End If
End If
bolaendern = False
End Sub