VB 新手求解。。。

显示全部楼层 · 2012-10-4 13:47:06

Text1.Text = Text1.Text & Command1(Index).Caption 'text的内容是command1的caption，也就是说这时的内容全都是command1 If Index >= 0 And Index = 0 And Index <= 9 ThenText1.Text = Text1.Text & Index
index为0-9时，text1又连上了一个index...

千问 · 2012-10-4 13:47:06

Select Case Index
Case 0
'单击Command1(0)事件 End
End Select你还缺少这个↑↑↑上面。Private Sub Command1_Click(Index As Integer)Select Case Index Case 0Text1.Text...

千问 · 2012-10-4 13:47:06

请问你的Command1(Index).Caption属性值都是些什么内容呢?...

千问 · 2012-10-4 13:47:06

Else:这句有问题，改为　Else...