关于PaintPicture的用法。
我用PaintPicture向一个picture中画图的时候,发现它会把图放大一点。图的右边和下边有一些画不上。请问如何解决?
我的代码如下,我把test1.jpg的右边和下边各画了一条线。效果很容易看到。
多谢!!
Private Sub Command1_Click()
Dim TempPic As IPictureDisp
Picture1.AutoRedraw = True
Set TempPic = LoadPicture("D:/test1.jpg")
Picture1.PaintPicture TempPic, 0, 0, Picture1.Width, Picture1.Height
Set TempPic = Nothing
End Sub
Private Sub Form_Load()
Picture1.Move 0, 0
Picture1.AutoSize = True
Open_Name = "D:/test1.jpg"
Picture1.Picture = LoadPicture(Open_Name)
bb1 = Picture1.Width
bb2 = Picture1.Height
End Sub