Question

VB中如何令按钮按后变Caption并改变代码？

Private Sub Command2_Click(Index As Integer)
If Command2.Caption = "打开串口" Then
MSComm1.PortOpen = True
Command2.Caption = "关闭串口"
Else
Command2.Caption = "打开串口"
MSComm1.PortOpen = False
End If
End Sub
报错：未找到方法或数据

Answer 1

修改如下：
Private Sub Command2_Click(Index As Integer)
If Command2（index).Caption = "打开串口" Then
MSComm1.PortOpen = True
Command2（index).Caption = "关闭串口"
Else
Command2（index).Caption = "打开串口"
MSComm1.PortOpen = False
End If
End Sub

Answer 2

Private Sub Command2_Click(Index As Integer) ''''' index是数组，这里没有啊。
==把括号中的内容去掉

追问

我程序中其它地方用了数组，不是这个的错误，哦删了括号中的反而报错：声明的什么与过程不匹配

追答

Command2(1).caption 类似这样
仔细看下按钮的属性，看他的数组编号

Answer 3

你这按钮控件是数组，要对应 index。可以在属性列表找到index。如Command2(1).Caption = "打开串口"