如何实现当鼠标放到Commandbutton上时,Commandbutton自动移动,使鼠标不能点击[2条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要：比如joyo上商品可以添加到收藏夹中,但收藏夹中商品超过3个月自动删除是系统自动删除的吗?还是要管理员定期手动删除? ......

·答疑 »显示摘要«

摘要：各位：我现在遇一问题，想请大家帮我解决：描述：我现有一foxpro 2.6 for windows编写的一个程序生成的一个dbf文件，我编了一个pb程序对它进行处理，过程是：用一个dw将dbf文件import（）进去，然后让用户进行编辑，编辑后保存用saveas（“xxx”，dbase3！）这种方法，通过dbase3！的格式保存成一个新的dbf文件，然后再用刚才说那个foxpro程序进行......

如何实现当鼠标放到Commandbutton上时,Commandbutton自动移动,使鼠标不能点击Commandbutton

如何实现当鼠标放到Commandbutton上时,Commandbutton自动移动,使鼠标不能点击Commandbutton

NO.1 作者： _baal_

在command1_MouseMove事件中加入
command1.Left = command1.Left + command1.Width
：）这个只是向右移……

NO.2 作者： gcsoft

Private Sub Command1_Click()
MsgBox "OK"
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim x1 As Single, y1 As Single

x1 = Rnd * (Me.Width - Command1.Width)
y1 = Rnd * (Me.Height - Command1.Height - 240)
Command1.Move x1, y1
End Sub

Private Sub Form_Load()
Randomize
End Sub

·简单，白拿分（50分，弯个腰就有了） »显示摘要«

摘要： class animal{} class mammal extends animal{} class cat extends mammal{ } class dolphin extends mammal{ public static void main(string s[]){ mammal m=new cat(); animal a=m; dolphin d=(dolphin)a;......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：