Private Sub Türblatt_Change()
Select Case Türblatt.Value
Case "Brunex VS-Nova 1"
Selection.Activate
Info_VS_Nova_1.Show
Case "Brunex VS-Nova 2"
Selection.Activate
Info_VS_Nova_2.Show
Case "Entla LS HPD Norm", "Entla LS GF Norm"
Selection.Activate
Info_Entla_LS_Norm.Show
End Select
End Sub
Besteht die Möglichkeit über das Feld Images in der gleichen Art technische Skizzen und Infos auf dem ersten Dialogfeld anzuzeigen, d.h. es wird kein separates Dialogfeld mehr angezeigt sondern die hinterlegten Infos werden auf dem selben Dialogfeld eingeblendet.
Vielleicht geht's gar nicht aber ....
Danke für Hilfe
Private Sub Türblatt_Change()
Dim strPfad As String
Select Case Türblatt.Value
Case "Brunex VS-Nova 1"
strPfad = "C:\Pfad\Info_VS_Nova_1.jpg"
Case "Brunex VS-Nova 2"
strPfad = "C:\Pfad\Info_VS_Nova_2.jpg"
Case "Entla LS HPD Norm", "Entla LS GF Norm"
strPfad = "C:\Pfad\Info_Entla_LS_Norm.jpg"
End Select
Me.Image1.Picture = LoadPicture(strPfad)
End Sub
Was auch moeglich waer. Fuer jede Graphik ein separates Image Steuerelement zu verwenden und mit ein-/ausblenden (hide/show) arbeiten. Die Graphiken sind dadurch in der Mappe gespeichert und nicht separat.
Private Sub Türblatt_Change()
Dim strPfad As String
Select Case Türblatt.Value
Case "Brunex VS-Nova 1"
Image1.Show
Image2.Hide
Image3.Hide
Case "Brunex VS-Nova 2"
Image1.Hide
Image2.Show
Image3.Hide
Case "Entla LS HPD Norm", "Entla LS GF Norm"
Image1.Hide
Image2.Hide
Image3.Show
End Select
End Sub
Gruss
Chris