为什么在Form_Load时Picturebox的PaintPicture不行

picturebox 的 autodraw 改成 true 就可以了

谢谢

'缩小1/4图

Private Sub Form_Load() 
 Me.AutoRedraw = True 
 With Picture1 
 .AutoRedraw = True 
 .AutoSize = True 
 .BorderStyle = 0 
 .Move Screen.Width 
 End With 
 Picture1.Picture = LoadPicture("c:\car.jpg") 
 Me.PaintPicture Picture1, 0, 0, Picture1.Width \ 4, Picture1.Height \ 4, 0, 0, Picture1.Width, Picture1.Height 
End Sub

CBM老师想问一个问题。

除号 /和\有区别吗�

msgbox 5/2

msgbox 5\2

看看各别得到什么? 使用 \ 得到的商数是整数忽略小数