我想在窗体上放一个command组（多个command按扭也可以，我觉得用command组应该更容易做到）
然后在timer事件中触发鼠标自动依次单击每个command （循环）


我写了代码不能实现
请问如何做到 望各位指教
（按index属性单击或者按窗体上的位置单击都行）

你Command中要触发的事件？在Timer中依次触发你要触发的事件就行！你不是要看按钮点动的动作吧？

我看LZ有这个意思

因为command中有事件的 不能用timer来触发
所以我用command来触发 用timer 来点command
每个command的事件是不一样滴


如果command 用图标样式，应该也有被按下的动作被看到吧

做成了这个样子
但是要用在command中添加别的事件却添不上了

Dim i As Integer

Private Sub Command1_Click(Index As Integer)
BackColor = QBColor(Index)
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Command2.Caption = "开始"
Command3.Caption = "停止"
Command4.Caption = "退出"
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If i = 7 Then
Call Command1_Click(i)
i = 0
Else
Call Command1_Click(i)
i = i + 1
End If
End Sub
你还要添加什么事件呢?

我想在command事件中添加 move事件
在上面放一个text
但是move只在一个command里有效
第二次move就无效了


在backcolor里用qbcolor的话颜色就是固定的顺序了而且qbcolor（15） 16个颜色滴
本来我想用move调command的
让他颜色打乱

[此贴子已经被作者于2007-8-7 17:17:25编辑过]

学习了!

太长，没听懂楼主的意思 ...

下次来点简单的。

如果你想以此点击command，那你就在第一个command过程的最后调用第二个command过程，第二个的最后再调用第三个，依次类推，直到最后一个被调用。