我在vb编程中,生成的工程出现运行出错‘481’无效图片,这是怎么回事

来源:百度知道 编辑:UC知道 时间:2024/06/17 18:38:47
这是程序
Option Explicit
Private Sub Form_Paint()
Dim wid As Single
Dim hgt As Single
Dim x As Single
Dim y As Single
wid = Picture1.ScaleWidth
hgt = Picture1.ScaleHeight
y = 0
Do While y < ScaleHeight
x = 0
Do While x < ScaleWidth
PaintPicture Picture1.Picture, _
x, y, wid, hgt
x = x + wid
Loop
y = y + hgt
Loop
End Sub

把picture1的picture属性设置一张图片即可。

x=0 放错位置