在线等待入门问题：combo取值

Question

    Dim txtTemp As String
    txtTemp = ComboDep.Text编译错误：
未找到方法和数据成员

Answer 1

Option ExplicitPrivate Sub Command1_Click()
        Dim txtTemp As String
        txtTemp = ComboDep.Text
        Debug.Print txtTemp
        End SubPrivate Sub Form_Load()
        ComboDep.AddItem "123456"
        ComboDep.AddItem "dsvfasdf"
End Sub

Answer 2

在窗体上添加一组合框ComboDep（将combo1改为此名字），一命令按钮command1