如何实现鼠标一移上按钮,按钮就闪开。。。。:(

wenti2003 2003-05-11 08:34:19
我想给女朋友选择,只能选喜欢 不能选不喜欢,点不到不喜欢。。。:)
...全文
78 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xks 2003-05-11
  • 打赏
  • 举报
回复
我做过!

前几年的电脑报合定本中有这个例子!


你不防查一下!

lanWay 2003-05-11
  • 打赏
  • 举报
回复
Private Sub Command1_GotFocus(index As Integer) '罪过,写错一个字符
LoveBH 2003-05-11
  • 打赏
  • 举报
回复
呵呵,这个看起来简单,其实也不简单阿,兄弟想戏弄你MM吗?

按 钮的闪开是由鼠标移动(MouseMove)这一事件触发的。因此在按钮的MouseMove事件过程中编写能使按钮移动的代码即可完成次功能

代码如下

Private Sub Command1_Click()
Label1.Caption = "我也爱你!!"
Command1.Enabled = False
Command2.Left = 2640
Command2.Top = 2040
Command2.Enabled = False
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
'取窗体宽度范围内的随机数
X = Rnd * (Form1.ScaleWidth - Command2.Width)
'取窗体高度范围内的随机数
Y = Rnd * (Form1.ScaleHeight - Command2.Height)
'移动按钮到窗体的(X,Y)位置
Command2.Move X, Y
End Sub


欢迎光临电脑爱好者论坛 bbs.cfanclub.net
lanWay 2003-05-11
  • 打赏
  • 举报
回复
Private Sub Command1_GotFocus(index As ingeger)
Select Case index
Case 0, 1, 2
SendKeys "{tab}"
Case Else
Exit Sub
End Select
End Sub

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧