vb 控件移动闪烁
TIMER里面移动控件,比如按钮,IMAGE,PICTRUE,等等时,控件看起来闪烁,不舒服,如何解决,PICTRUE.PRINT吗?具体怎么使用,麻烦代码说明下!谢谢啊...
TIMER里面移动控件,比如按钮,IMAGE,PICTRUE,等等时,控件看起来闪烁,不舒服,如何解决,PICTRUE.PRINT吗?具体怎么使用,麻烦代码说明下!谢谢啊!
不好意思,我只有2分,给不了分数!
1,2楼理解错我的意思了!移动我会!我要达到的效果是移动起来不闪烁。 展开
不好意思,我只有2分,给不了分数!
1,2楼理解错我的意思了!移动我会!我要达到的效果是移动起来不闪烁。 展开
3个回答
展开全部
嗨嗨……听我讲:
闪烁是因为时间间隔太大和移动距离所致。所以建议把间隔该小些,同样每次移动的距离也要小一些。
当然喽时间间隔太小会浪费系统资源。
至于你说的PICTRUE.PRINT我没用过
不知可满足条件?
谢谢
闪烁是因为时间间隔太大和移动距离所致。所以建议把间隔该小些,同样每次移动的距离也要小一些。
当然喽时间间隔太小会浪费系统资源。
至于你说的PICTRUE.PRINT我没用过
不知可满足条件?
谢谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'比喻 移动 按钮
' 复制 粘贴 运行
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If Command1.Left < Me.ScaleWidth Then
Command1.Left = Command1.Left + 100
Else
Command1.Left = 0
End If
End Sub
' 复制 粘贴 运行
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If Command1.Left < Me.ScaleWidth Then
Command1.Left = Command1.Left + 100
Else
Command1.Left = 0
End If
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先把.visible改成false……移完了再改回来
要不就复杂了,要用挺多api
要不就复杂了,要用挺多api
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询