各位高手！
能不能做两个控件数组，command1(n) 和 text1(n)，当控件command1(n) 按下后对应的text1(n)显示出值。如按下command1(6) 后显示text1(6)的值。望老鸟们支援！！！
菜鸟向你们致敬！！！

[此贴子已经被作者于2006-12-1 12:46:26编辑过]

原来是这样的啊，我写成Private Sub Command1(n)_Click(Index As Integer)
Text1(n).Text = Command1(n).Caption
End sub
所以错了
多谢斑竹！！

[此贴子已经被作者于2006-11-30 16:09:32编辑过]

是的！我想用让鼠标右键点击这个command产生不同的效果，写了以下代码
Private Sub command1_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Call LMouseUp

If Button = 2 Then
Call RMouseUp

If Button = 3 Then
Call LRMouseUp

If Button = 4 Then
Call MMouseUp

End Sub

问题是，这个语句怎么用在上面的语句中（右键点击command1(6)则显示其它的对话框）

[此贴子已经被作者于2006-11-30 16:35:06编辑过]

就是左键和右键点击command1()数组按钮产生不同的效果

自己再顶一下。如果我要响应中间键和同时按下左右键的，怎么写啊？还有就是如何写按下command1(1)后所有command1(index)控件全部隐藏呢？
问题比较多哦，希望别嫌麻烦！感激不尽！！

日后出山了，必会全力报答的！！！！！

[此贴子已经被作者于2006-12-1 10:01:25编辑过]

这些参数值哪里找的？我在VB的索引里找不到么！

Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Call RMouseDown
End If
End Sub
Private Function RMouseDown()
Command1(Index).Caption = "!"
End Function

和Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Command1(Index).Caption = "!"
End If
End Sub
有什么区别阿？为什么效果会是不一样的？（前一个无论在什么地方按右键都是第一个command1(1)显示“！”，后一个则正常。）

多谢各位，此类问题已经解决，下次开新贴问别的问题，还有劳各位！！！一鞠躬