combobox的使用
Private Sub Combo1_Click(index As Integer)
Select Case index
Case 0
tem(0) = vbBlack
Case 1
tem(0) = vbBlue
Case 2
tem(0) = vbGreen
End Select
End Sub
Private Sub Combo2_Click(index As Integer)
Select Case index
Case 0
tem(1) = vbBlack
Case 1
tem(1) = vbBlue
Case 2
tem(1) = vbGreen
End Select
End Sub
Private Sub Combo3_Click(index As Integer)
Select Case index
Case 0
tem(2) = vbBlack
Case 1
tem(2) = vbBlue
Case 2
tem(2) = vbGreen
End Select
End Sub
在编译以上代码时不能通过，错误提示：procedure declaration does not match description
of event or procedure having the same name
问题点数：0、回复次数：4Top
1 楼tmran（Rocky 爱瘦鱼）回复于 2005-06-01 21:11:42 得分 0
变量设置不对吧？用的是什么数组类型？Top
2 楼cxbkkk（本命年，旺啊！）回复于 2005-06-02 00:19:50 得分 0
大哥你要实现什么功能啊，不需要这么写吧，可以吧你点的那个的index弄出来，直接就可以设置了，不需要写三段一样的Top
3 楼penguinMII（企鹅）回复于 2005-06-02 08:15:55 得分 0
tem怎么定义的？？
应该定义成dim tem(2) as stringTop
4 楼zuoxingyu（激情成就梦想）回复于 2005-06-02 09:48:08 得分 0
要实现什么功能?
要这么复杂吗?Top
