Sliver
Erfahrenes Mitglied
Grüße,
kann mir jemand bei dem folgenden vielleicht helfen und mir sagen was ich flasch gemacht hab bzw. was ich besser machen könnte?
Also das ist eine eigene Form und soll als Auswahlfenster dienen. Also es soll ein Bild wählen das dann bei Form1 oder bei Form2 angezeigt wird. Das kommt drauf an welche der Form auf Show ist.
Danke im Vorraus...
Sliver
kann mir jemand bei dem folgenden vielleicht helfen und mir sagen was ich flasch gemacht hab bzw. was ich besser machen könnte?
Also das ist eine eigene Form und soll als Auswahlfenster dienen. Also es soll ein Bild wählen das dann bei Form1 oder bei Form2 angezeigt wird. Das kommt drauf an welche der Form auf Show ist.
Danke im Vorraus...
Code:
Private Sub Command1_Click()
Me.Hide
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
If Form1.Show Then
Form1.Image1.Picture = LoadPicture(SelectedPicture)
End If
If Form2.Show Then
Form2.Image1.Picture = LoadPicture(SelectedPicture)
End If
End Sub
Sliver