用过"非爱不可"在进,没用过的也可以进(100分)
最近用了一下"非爱不可"觉得蛮有意思的,听说是用VB编的,谁能告诉我,当鼠标移到YES上,YES就离开,这个怎么做吗?没用过"非爱不可"的你们可以到 http://www.csjbbs.com/Games/Download.php?id=2857&downurl=1 下载,用用,谢谢 问题点数：100、回复次数：21Top
1 楼chenyu5188（来自东方的狼）回复于 2005-06-01 23:21:41 得分 0
用API捕获鼠标坐标然后。。。。Top
2 楼jsdydcwj（吴杰）回复于 2005-06-01 23:25:13 得分 0
能否具体点,我是VB初学者Top
3 楼jauntlin（逍遥吉他手）回复于 2005-06-01 23:28:14 得分 0
如果我帮你解答了，你会不会把分都给我？Top
4 楼jsdydcwj（吴杰）回复于 2005-06-01 23:30:17 得分 0
一言为定,不过我要听懂Top
5 楼jsdydcwj（吴杰）回复于 2005-06-01 23:42:56 得分 0
怎么不回了啊,对自己这么没信心啊Top
6 楼jsdydcwj（吴杰）回复于 2005-06-02 00:00:44 得分 0
大哥们,用API的哪个函数啊,一个可以解决吗,说说啊,谢谢Top
7 楼coralsoft（我是小虫虫~）回复于 2005-06-02 00:06:40 得分 0
是不是这样啊？就是说不管怎么样都点不到“YES”按钮：cmdYes是吧？
简单点可这么写：
编写cmdYes的MouseMove事件代码：
Private sub cmdYes_MouseMove(Button..，Shift..，X..，Y.. )
cmdYes.Left = rnd*5000
cmdYes.top = rnd*5000
'也可以将上面两句换成：
cmdYes.Move rnd*5000，rnd*5000
End Sub
这样，Yes按钮就可以随机跑到0至5000左右范围的地方。当然，也可以写成：
rnd*(me.width-cmdYes.Width)
===================
以上程序没地调试，我在外边上的。我想能用。这是适合初学者的实现办法。Top
8 楼coralsoft（我是小虫虫~）回复于 2005-06-02 00:08:44 得分 0
补一下：
rnd()是无参的随机函数，用于产生大于0小于1的单精度随机数。
以上我是假设你那会跑的Yes按钮的对象名即Name属性为 cmdYesTop
9 楼jsdydcwj（吴杰）回复于 2005-06-02 00:16:22 得分 0
Private sub cmdYes_MouseMove(Button..，Shift..，X..，Y.. )
这句话运行不了,说是缺少列表分割符或)
什么意思啊,不懂Top
10 楼jauntlin（逍遥吉他手）回复于 2005-06-02 00:19:29 得分 0
Private Sub ok_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ok.Left > 800 And X <> a Then
ok.Left = ok.Left - 580
Else: Y = b
End If
If ok.Left < 3780 And Y = b Then
ok.Left = ok.Left + 600
Else: X = a
End If
End Sub
Top
11 楼jauntlin（逍遥吉他手）回复于 2005-06-02 00:20:32 得分 0
通过了，这样行了，主要是你坐标的参数可以调一调Top
12 楼jsdydcwj（吴杰）回复于 2005-06-02 00:25:07 得分 0
系统通不过啊Top
13 楼jsdydcwj（吴杰）回复于 2005-06-02 00:29:27 得分 0
这个代码是不是只能放在 通用里面啊,运行之后,没反应Top
14 楼jsdydcwj（吴杰）回复于 2005-06-02 00:33:26 得分 0
我的QQ273471724
EMAIL chinawujie@gmail.com
如果可以把程序发给我的话,那就最好了,我自己这边通不过,Top
15 楼jauntlin（逍遥吉他手）回复于 2005-06-02 00:33:30 得分 0
运行通过了，就是你做一个按钮啊！我上面的按钮名称是ok,然后写它的MouseMove代码喔Top
16 楼jsdydcwj（吴杰）回复于 2005-06-02 00:37:03 得分 0
没办法写啊,我一写完了,MOUSEMOVE的代码就变成通用的了,没反应Top
17 楼jauntlin（逍遥吉他手）回复于 2005-06-02 00:41:59 得分 0
不会吧？？拖个按钮出来，然后双击它，就打开了写按钮CLICK事件的代码窗口了，然后代码窗口右上角的下拉菜单点一下，选MouseMove，这会详细了，应该会吧？楼主学VB多久了？Top
18 楼jsdydcwj（吴杰）回复于 2005-06-02 00:49:24 得分 0
If ok.Left > 800 And X <> a Then
编译错误Top
19 楼jauntlin（逍遥吉他手）回复于 2005-06-02 00:54:54 得分 0
ok是按钮的名称啊！如果你的按钮名是command1那这句就应该是
if command1.left>800 and x<>a thenTop
20 楼coralsoft（我是小虫虫~）回复于 2005-06-02 00:56:30 得分 100
1：画一个名为：cmdYes的按钮。
2：在空白处添加如下代码：
Private Sub cmdYes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdYes.Move rnd*5000，rnd*5000
End Sub
Top
21 楼coralsoft（我是小虫虫~）回复于 2005-06-02 01:15:18 得分 0
Name属性在VB6中文版本的属性窗口中译为：(名称)，这个属性和Caption是不一样的！
VB中控件的静态文字属性都是Caption，比如窗体、标签、按钮、单选复选框等，是用来设置他上面文字用的。Top
