Question

vb中combobox选中不同的项触发不同的事件的代码

我用的selectindexchanged
然后再select case combobox.text
case “1”
case “2”
end select
但是选1成功，切换选项2的时候就出错了
在 System.InvalidCastException 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常
求哪位大神解答

Answer 1

刚刚特为你做了一个小程序，经本人测试成功

具体方法是，建立一个 Shape1 控件数组，本人建立了13个数组元素

然后根据列表框的选择内容，分别对应 Shape1 的数组元简雀素

列表框中有12行选择内容，Shape1 则有13个数组元素

在列表框中选择哪一行，则Shape1数组中的哪个元素被赋予红色

Shape1数组的元素 0，闲置不用，你也可以根据需要进行使用

具体代码如下，若有不懂之处可以私密我加好友，或继续追问

如果能帮到你，请记得采纳哦，谢谢！

Option Explicit '强制变量声明

Private Sub 清空() '自定义函数，用于清空 Shape1 数组元素值

    Dim n As Integer

    

    For n = 0 To 12                             '循环赋值

        Shape1(n).BackColor = RGB(255, 255, 255) '白色

    Next n

    

End Sub

Private Sub Combo1_Click() '列表框选择

    Call 清空  答滑             '调用清空函数

    Shape1(Combo1.ListIndex).BackColor = RGB(255, 0, 0) '红色

    

End Sub

Private Sub Form_Load() '窗体加载

   清咐腊 Dim n As Integer

    

    Combo1.AddItem "关闭所有" '先建立一行选择项

    

    For n = 1 To 12

        Combo1.AddItem "点亮第 " & n & " 个" '循环建立其它项

    Next n

    

    Combo1.ListIndex = 0 '设置列表框显示的内容

    

End Sub

Answer 2

selectindexchanged
那你就应该用启缺御
select case combobox.selectindex
case 0
case 1
case 2
end select
至少错误，你看停在哪句上了，可能你的代码段有问题也可能悄岩的扮烂。