各位大侠，请问在VB中文本框中的内容根据组合框的内容而动态改变呢

来源：百度知道 编辑：UC知道 时间：2024/06/16 20:14:29
小弟在文本框里输入一个数值，组合框里是一些单位，怎么才能够使文本框的值根据组合框里选择的单位而变呢（值的大小没有改变），谢谢

我做个简单的，您试试看
Option Explicit

'用于记住在TextBox输入数值时所对应的单位
Dim intMark As Integer

Private Sub Combo1_Click()

Dim intTemp As Single

'若TextBox内容不为空，且是数值
If (Text1.Text <> "") And (IsNumeric(Text1.Text) = True) Then

intTemp = Val(Text1.Text)

Select Case Combo1.ListIndex

Case 0

intTemp = intTemp / (10 ^ intMark)

Text1.Text = intTemp

intMark = 0

Case 1

If intMark > 1 Then

intTemp = intTemp / (10 ^ (intMark - 1))

Else

intTemp = intTemp * (10 ^ (intMark + 1))