复制图片到Picturebox为何不行?改到Form_Initialize依然不行？

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/2msgbox 5\2看看各别得到什么? 使用 \ 得到的商数是整数忽略小数