VB编写图片向左右移动不碰壁就回弹
这是我代码。 请自己实验一下有什么问题。Dim i As BooleanPrivate Sub Form_Load()i = FalseTimer1.Interval = 1End SubPrivate Sub Timer1_Timer()If i = False ThenShape1.Left = Shape1.Left - 50If Shape1.Left Form1.ScaleWidth Theni = FalseEnd IfEnd IfEnd Sub
是不是没碰到左壁?如果是语句If shape1.left<0 then
i=true
end if调整一下的位置应该就可以了。
答:不得其门而入详情>>
答:DVB关键技术编辑DVBH技术是DVB和DVBT两种技术的融合,但是如果仅仅依靠上述两种技术是不能完全解决DVBH所面临的问题的详情>>
答:Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFile...详情>>