vb中怎样使按钮每点击一次位移一次

来源：百度知道 编辑：UC知道 时间：2024/05/01 16:30:38
我是新手，刚开始学习vb，看到这个试题，试了好几次，都不行，刚刚做了个loop看行不行，测试时竟然vb崩溃了~汗~~ 题目如下：

在form1中画一个命令按钮，编写过程使程序每点击按钮一次，按钮向左移动100，要求程序中不能使用变量，事件过程中只能写一条语句。

再说点废话，我当时是这样想的，command1.left = left-100 发现不行，只能移动一次，又试着加do…loop，结果vb崩溃。又试一次直接跑到最右边边框，，最后想起来没有关联鼠标点击的次数，可使怎么关联点击次数呢？还想问一下，如果我设方程，例如 我用dim声明了x为ingteger，x=什么什么，这算不算我使用了变量？

通过检测和更改按钮的Left属性，就可以实现每一次按钮的点击并让它移动。

由于可能会有其它的控件引起遮挡，所以下面的代码让它左右移动：

Private Sub Command1_Click()        '交替左右移动

  If Command1.Left Mod 2 = 0Then

    Command1.Left = Command1.Left － 1001    '先左移

  Else

    Command1.Left = Command1.Left + 1001    ‘再右移’

  End If

End Sub


Private Sub Form_Load()    '初始时让按钮的Left属性为一个偶数值

  Command1.Left = Command1.Left + Command1.Left Mod 2

End Sub


下面的代码让它循环移动：

Private Sub Command1_Click()

  If Command1.Left + 500 > Form1.Width - Command1.Width Then