VB工程--百例54--鼠标跟随

发布时间：2020-12-16 22:39:24 所属栏目：大数据来源：网络整理

导读：Option Explicit Private Sub lbl1_click() End End Sub Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) lbl1.Move X,Y 使标签框以鼠标指针的位置移动 End Sub 这个程序很简单，只有短短的几行代码。但是却透露出

Option Explicit

Private Sub lbl1_click()
End

End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
lbl1.Move X,Y 使标签框以鼠标指针的位置移动

End Sub

这个程序很简单，只有短短的几行代码。但是却透露出一种思想（人为控制，剑不离手），这是我至今认为最好玩的一个程序。不信您试试！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!