SOS

combo1下拉表中有一串选项a,b,c,d,e,f,g,对应1,2,3,4,5,6,7
当combo1选中a时,label1里只能显示1,选b时,label1里只能显示2,以此类推,语句怎么写?
虾米求教

解决方案 »

  1.   

    LZ这样是干嘛?
    直接在click事件中,debug.print combo1.listindex+1
    或者利用一下itemdata,方法很多.
    先把前面的帖子结了再说吧......
      

  2.   


    Option ExplicitPrivate Sub Combo1_Click()
       Label1.Caption = Combo1.ItemData(Combo1.ListIndex)
    End SubPrivate Sub Form_Load()
        Dim i As Integer
        For i = 97 To 103
            Combo1.AddItem Chr(i)
            Combo1.ItemData(i - 97) = i - 96
        Next
        
    End Sub
      

  3.   

    新来的,不好意思,呵呵!!各位没理解我的意思,我只是求个算法,问题是这样的
    combo1选项:国寿 ,海富通 , 增强 , 晚晴 , 稳健 , 计划 等选项
    label1的对应显示:国寿 显示WQC001,海富通 显示WQS001,增强 显示WQX001 ,晚晴 显示WQ0001 ,稳健 显示JHDHA1 ,计划 显示020001 等等
    还有好几个就不列了
    这个循环能做么?还是只能用人肉模式?
      

  4.   


    Option ExplicitDim myDataPrivate Sub Combo1_Click()
        Label1.Caption = myData(Combo1.ListIndex)
    End SubPrivate Sub Form_Load()
        Dim i As Long
        myData = Array("a", "b", "c", "d", "f")
        For i = 0 To UBound(myData)
            Combo1.AddItem myData(i)
        Next
        Combo1.Text = Combo1.List(0)
        Label1.Caption = myData(0)
    End Sub
      

  5.   

    Option ExplicitDim myData, myCaptionPrivate Sub Combo1_Click()
        Label1.Caption = myCaption(Combo1.ListIndex)
    End SubPrivate Sub Form_Load()
        Dim i As Long
        myData = Array("a", "b", "c", "d", "f")
        myCaption = Array("001", "002", "003", "004", "005")
        
        For i = 0 To UBound(myData)
            Combo1.AddItem myData(i)
        Next
        Combo1.Text = Combo1.List(0)
        Label1.Caption = myCaption(0)
    End Sub
      

  6.   

    Label1.Caption = Combo1.ListIndex+1