Question

vb中Combo控件，如何实现第二个文本和其对应选择的单位，进行自动转化，求高手指教，先谢谢了！

Answer 1

你的目的是要点击“转化”按钮后进行转化呢，还是点了ComboBox控件后就自动转化？

下面是点按钮转化的代码：

Private Sub Command1_Click()
Dim s As Double
If Combo1.ListIndex < 0 Or Combo2.ListIndex < 0 Then Exit Sub
s = Val(Text1.Text)
Select Case Combo1.ListIndex
Case 0
    s = s * 100000
Case 1
    s = s * 100
Case 2
    s = s * 10
End Select
Select Case Combo2.ListIndex
Case 0
    s = s / 100000
Case 1
    s = s / 100
Case 2
    s = s / 10
End Select
Text2.Text = s
End Sub

追问

非常感谢！！！谢谢了！！！