两个按钮控件,当鼠标点击第一个按钮时,第一个按钮在窗体中乱跑,让人一直点不了,只能点第二个按钮了谢谢!...

展开全部
收起
6回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Harper

    18人对此回答表示赞同

    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    X = Rnd * (Form1.ScaleWidth - Command1.Width)
    Y = Rnd * (Form1.ScaleHeight - Command1.Height)
    Command1.Move X, Y
    End Sub
    展开
    18
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • AvaDJ

    17人对此回答表示赞同

    大家的回答都很有思路啊,,真是大珠小珠落玉盘,好看.

    但按这咱思路的实现方法,上面的所有的设计都忽略了一点,
    必须将窗体设置为 不可调大小的.
    即 form1.borderstyle 不能等 2 或 5 (sizable),别的4个值都可以.

    要不,总是有办法能点到的.
    调整窗体大小,到 command1 跑到几乎不能跑时,点到!

    当然加这个太简单,我就不再多罗嗦了.
    展开
    17
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • William

    11人对此回答表示赞同

    这一种是当你的鼠标想去点击按钮1时就会随机跑动,不让人可以点到。
    Dim CMD1 As Boolean'设置一个全局布尔变量
    Private Sub Command1_Click()
    CMD1 = True
    End Sub

    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If CMD1
    展开
    11
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Gary_Jin

    10人对此回答表示赞同

    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    X = Rnd * (Form1.ScaleWidth - Command1.Width)
    Y = Rnd * (Form1.ScaleHeight - Command1.Height)
    Command1.Move X, Y
    End Sub

    永远点击不了按钮1
    展开
    10
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 千层月饼

    3人对此回答表示赞同

    一个Timer1 两个按钮
    Private Sub Command1_Click()
    Me.Timer1.Interval = 20
    End Sub

    Private Sub Command2_Click()
    Me.Timer1.Interval = 0
    End Sub

    Private Sub Timer1_Timer()
    Me.Command1.Top = Form1.ScaleHeight * Rnd
    展开
    3
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 绿茶`红茶`乌龙茶

    1人对此回答表示赞同

    你好!
    方法如下:
    1、在表单FORM1上放置两个按扭Command1与Command2;
    2、在表单FORM1上放置一个Timer名称为Timer1;将其InterVal设置为10;
    3、代码如下:
    Private Sub Command1_Click()

    Timer1.Enabled = True

    End Sub

    Private Sub Command2_Click()
    展开
    1
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部