VBA ComboBox 索引值

Question

我有一个包含组合框的表单，其中包含值

With io6
   .AddItem "90°"
   .AddItem "180°"
   .AddItem "270°"
   .AddItem "360°"
End With

我实际使用的这个方法的成员是.ListIndex。当用户选择 270 度时，我将 2 发送到变量。当我读取变量时，我希望组合框正确显示适当的值。换句话说，如果变量为 1，我希望组合框显示 180 度。如果没有写入 .Value 的 select\if 语句，这是否可以实现？

Sub varChange(val as integer)

   With comboBox

     Select Case val
       Case 1
         .value = "90°"
       Case 2
         .value = "180°"
       Case 3
         .value = "270°"
       Case 4
         .value = "360°"
     End Select

    End With

End Sub

这个问题我能问的最直接的是，方法元素可以根据索引来设置吗？我可以根据索引设置组合框元素，而不必写入新值吗？

Answer 1

我不确定我是否正确，但我认为您想获取所选项目的列表索引。
你可以通过

x = io6.ListIndex + 1

+1 在那里，因为 ListIndex 基于 0，但您希望它基于 1。
而完全不同的东西，
拆下括号。没有返回值的方法调用不会在 VBA 中使用它们

评论后编辑
换一种方式，即从索引值中获取值，请执行以下操作:

y = io6.List(x - 1)