VB6：picture控件的几个小问题
答案:2 悬赏:0
解决时间 2021-02-10 05:37
- 提问者网友：曖昧情执
- 2021-02-10 01:13
VB6：picture控件的几个小问题
最佳答案
- 二级知识专家网友：茫然不知崩溃
- 2021-02-10 02:51
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\1.bmp")
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\2.bmp")
End Sub
Picture1.Picture = LoadPicture(App.Path & "\1.bmp")
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\2.bmp")
End Sub
全部回答
- 1楼网友：一身浪痞味
- 2021-02-10 04:10
option explicit
private sub command1_click()
picture2.paintpicture picture1.picture, 0, 0
end sub
private sub command2_click()
picture2.cls '我也试了试，可以清空原来paint图啊，你的怎么不能清空？我这可以！
end sub
'set picture2=nothing
'loadpicture("") 都可以清空，估计是你不小心哪里写错了，你再检查检查
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯