＋设为首页 ＋添加到收藏夹
启动一个新的工程，屏幕上出现一个空白的窗体，在窗体上放置两个picturebox控件
其中控件picture2的visible属性设置为flase,也即控件picture2在程序运行期间处于不可见的状态，它
的作用只是为控件picture1提供一个图像文件的容器.
在程序的设计阶段双击控件picture1,在弹出的代码窗口中找到控件picture1的picture1_click()事件，并且
添加如下代码:
Private Sub Picture1_Click()
Dim i As Double
For i =1 To 10 Step 0.01
Picture1.Paintpicture Picture2.Picture,0,0,Picture1.ScaleWidth,Picture.ScaleHeight,i,i,Picture2.ScaleWidth *i,Picture2.ScaleHeight*i
Cls
Next
End Sub
控件属性设置
name Picture1
Align 3-Align Left
Height 3195
Left 0
Picture none
0
Visible True
Width 4680
name Picture2
Align 0-none
Height 1455
Left 2160
Picture (Bitmap)
720
Visible False
Width 1335
运行程序
在控件Picture1上单击鼠标时，控件上会有一幅图像不断的向左上角移动，并且会留下一个长长的“尾巴”
我的VB为6.0的中文版，当我点击Picture1时会出现<实时错误438:对象不支持该属性或方法>
我想问一下这道题哪里有问题？我该怎样才能把这道题调试出来？
有没有MSDN呀，查一下帮助
帮助上有详解的啊
Private Sub Picture1_Click()
Dim i As Double
For i =1 To 10 Step 0.01
Cls
Picture1.Paintpicture Picture2.Picture, _
0,0,Picture1.ScaleWidth,Picture.ScaleHeight, _
i,i,Picture2.ScaleWidth *i,Picture2.ScaleHeight*i
Next
End Sub
cls是一个方法，
它功能就是将清除某对象上的曾经画过的图像！
Private Sub Picture1_Click()
Dim i As Double
For i =1 To 10 Step 0.01
picture1.Cls
Picture1.Paintpicture Picture2.Picture, _
0,0,Picture1.ScaleWidth,Picture.ScaleHeight, _
i,i,Picture2.ScaleWidth *i,Picture2.ScaleHeight*i
Next
End Sub
cls是一个方法，
它功能就是将清除某对象上的曾经画过的图像！
因为要加在循环里才行！
Picture1.Paintpicture Picture2.Picture,0,0,Picture1.ScaleWidth,Picture.ScaleHeight,i,i,Picture2.ScaleWidth
哈哈.我这里运行没有任何问题,问题就在,你其中有个picture后面没有1啊.不是一个控件了...你写成了picture.scaleheight了.当然,可能程序里面没有写错,但是,当改成picture1后,我这里运行正常...
