kann mir jemand helfen, ich habe eine Picture1 und möchte, dass diese sich automatisch an
die Größe des Bildes anpasst (also mit Rahmen). Hier mein bisheriger Quelltext.
Ich muss aber dazu sagen, ich bin ein Laienprogrammierer.
<Quelltext>
Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
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()
Dim Pfadname As String
Pfadname = File1.Path
If Right(Pfadname, 1) <> "\" Then _
Pfadname = Pfadname & "\"
Pfadname = Pfadname & File1.FileName
Label1.Caption = UCase(Pfadname)
Picture1 = LoadPicture(Pfadname)
Picture1.PaintPicture Picture1.Picture, 0, 0, _
Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "*.jpg;*.ico;*.bmp"
'.AddItem "*.Ico"
'.AddItem "*.bmp"
'.AddItem "*.jpeg"
'.AddItem "*.psd"
.ListIndex = 0
End With
File1.Pattern = Combo1.Text
End Sub
Registrieren
Login
