Private Sub Command1_Click()
Dim Pic As StdPicture
Set Pic = LoadPicture(FileName)
Picture1.PaintPicture Pic, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
Dim Pic As StdPicture
Set Pic = LoadPicture(FileName)
Picture1.PaintPicture Pic, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
加上这句
Picture1.AutoRedraw=True
Image1.Picture = LoadPicture(FileName)
Image1.Stretch = True
Image1.Width = Picture1.Width
Image1.Height = Picture1.Height
End Sub