vb 图片在窗体自由移动，窗体在桌面自由移动

概述'添加一个计时器 Timer1 ，一个图像框 Image1Option ExplicitDim dx '定义两个窗体层变量Dim dy '分别存放X，Y 方向变化增量Private Sub Form_Load() '初始化 Timer1.Enabled = True Timer1.Interval = 100 dx = Form1.Width /

'添加一个计时器 Timer1  ，一个图像框 Image1Option ExplicitDim dx '定义两个窗体层变量Dim dy '分别存放X，Y 方向变化增量Private Sub Form_Load() '初始化    Timer1.Enabled = True    Timer1.Interval = 100    dx = Form1.WIDth / (Rnd * 150 + 200)    dy = Form1.Height / (Rnd * 150 + 200)End SubPrivate Sub Timer1_Timer()    Image1.top = Image1.top + dy '通过改变 top 属性改变高度    Image1.left = Image1.left + dx    If Image1.top <= 0 Then dy = -dy '如“碰壁”则变向    If Image1.left <= 0 Then dx = -dx    If Image1.top >= Form1.Height - Image1.Height Then dy = -dy    If Image1.left >= Form1.WIDth - Image1.WIDth Then dx = -dxEnd Sub

Option ExplicitDim dx '定义两个窗体层变量Dim dy '分别存放X，Y 方向变化增量
Private Sub Form_Load() '初始化 Timer1.Enabled = True Timer1.Interval = 10 dx = Screen.WIDth / (Rnd * 150 + 200) dy = Screen.Height / (Rnd * 150 + 200)End Sub
Private Sub Image1_Click()Unload MeEnd Sub
Private Sub Timer1_Timer() Me.top = Me.top + dy '通过改变 top 属性改变高度 Me.left = Me.left + dx If Me.top <= 0 Then dy = -dy '如“碰壁”则变向 If Me.left <= 0 Then dx = -dx If Me.top >= Screen.Height - Me.Height Then dy = -dy If Me.left >= Screen.WIDth - Me.WIDth Then dx = -dxEnd Sub

总结

以上是内存溢出为你收集整理的vb 图片在窗体自由移动，窗体在桌面自由移动全部内容，希望文章能够帮你解决vb 图片在窗体自由移动，窗体在桌面自由移动所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。