中山脚轮厂:哪个强人给一段可以让VB程序的窗口移动，碰到边缘反弹的代码

来源：百度文库 编辑：神马品牌网 时间：2024/04/26 00:52:22
RT

简单示例，你需要再扩展

Option Explicit
Dim bM As Boolean

Private Sub Command1_Click()
bM = Not bM
Call MoveFrm
End Sub

Sub MoveFrm()
Dim iM As Long
iM = 100
Do While bM
With Me
.Left = .Left + iM
If .Left <= 0 Or (.Left + .Width) > Screen.Width Then iM = iM * -1
End With
DoEvents
Loop
End Sub

哪个强人给一段可以让VB程序的窗口移动，碰到边缘反弹的代码 VB 程序的一段问题 哪个强人可以给我些建议~用LINUX的SHELL写个脚本， 求助vb一段程序 求一段VB程序！ 如何让魔兽窗口化以后可以自由移动鼠标 vb 我想让窗口某一颜色的图形透明. vb 如何做全局热键？就是不管当前窗口是那个，都可以按键叫出自己的程序。 怎么让VB编译的程序可以在WIN9X下直接运行？ VB很菜的问题....关于如何让窗体移动