7491
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
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
按 钮的闪开是由鼠标移动（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
Select Case index
Case 0, 1, 2
SendKeys "{tab}"
Case Else
Exit Sub
End Select
End Sub
关于谷歌浏览器页面出现光标闪动，鼠标的焦点没有消失解决 最近在谷歌浏览器测试博客系统代码时，发现点击回到顶部的组件时，光标一直在组件上闪动，开始认为可能需要配置组件，然而并没有找到解决方法，哈哈哈哈。后来查找了一下，是谷歌浏览器的问题，谷歌浏览器设置中有...
托盘的实现 详编版 TIP: 以前开发应用软件比较少,所以比较落后,QT是06年出的,我也是最近才知道的.让大家见笑了.所以写的关于QT的东西,...希望高手看到了,不要BS,安静地走开,或,飞快地闪开即可. ^o^ *开始前,我说明一下,托盘和任务栏...
游戏策划应该主意到的几点：《沉浸》 作者：Geoff Howland译者：余建斌 描述:（一篇老文章）对很多人而言，游戏是第二人生。在游戏的世界中，展开自己心灵深处的自我。沉浸在快乐之中…… 沉浸在字典上的意思是：“陷入在一些事件的包围和覆盖中”。在...
游戏策划之火灾时刻 游戏名称：火灾时刻（特此声明此策划系本人原创！请勿抄袭） 1：场景动态物品和电脑人： ... 不同的物品设置不同的属性，比如湿抹布就带有水属性，抹布继承...而这绳不是一开始就出现在玩家的物品栏里，而是
Excel-事件（Workbook、Worksheet、Range、OnKey/OnTime） 一、Excel事件介绍 Excel事件就是一个能被对象识别的操作。 当某个事件发生后自动运行的过程称为事件过程。事件过程也是Sub过程。 实践过程必须写在特定对象所在的模块中，而且只有过程所在的模块里的对象才能...
ubuntu9.04 3D桌面开启，特效设置和详解 ubuntu 开启3D桌面的方法： 在新立得搜索以下三个，第三个是中文配置： ...然后打开如下图的compizconfig设置管理器，就开始3d之旅了 ubuntu桌面特效设置 一、写在前面 本 文的设置均是基于ubuntu9.04(...
ubuntu10.04开桌面3D特效 一般右击桌面设置的那是基本的效果。还有更高级的，首先要安装compizconfig: sudo apt-get install compizconfig-settings-manager emerald ...确保这几个插件都装上了 最好用新得利软件管理器装 python-compiz
云中之城（三） 三大亮点：第一，好玩——秒杀一切网络游戏！第二，有用——积分可换取“云币”，且优秀玩家有机会入驻虚拟云城的凌云别墅区！第三，增进友谊——结对与怪物挑战，寻找现实中已经迷失的真情……（来自虚拟云城官方...
Ubuntu 9.04桌面特效设置过程详解[多图] 一、写在前面 本文的设置均是基于Ubuntu 9.04(准确地说是针对于compizconfig-settings-manager0.8.2)，对于8.10基本适用，8.04有部分设置的位置 不同，更低的版本就没尝试过了。。在配置之前务必保证你的系统有良好...
我与酷派手机N900+的艰难之旅 本人，程序员，资深电脑玩家，曾多次帮人在各色手机上做系统，捣哧通讯录，算得上是阅“机”无数了吧。几天前，有人请我帮他给新手机酷派N900+导一下通讯录。上网看了一下手机的参数，发现报价高达6880，心下有些...
在word中插入excel表格并自动更新 现在说一下步骤： 在首先之前，插入一句看似没用，实际上又很重要的话：我的office版本是office2003。 首先，建立一个excel表格，里面随便输入一些内容。然后再新建一个word文档，在需要插入表格的地方，选择菜单...
excel表格如何在word中自动更新 现在说一下步骤： 在首先之前，插入一句看似没用，实际上又很重要的话：我的office版本是office2003。 首先，建立一个excel表格，里面随便输入一些内容。然后再新建一个word文档，在需要插入表格的地方，选择菜单...
