VB单位转换器怎样做

发布网友发布时间：2022-05-06 00:24

共1个回答

热心网友时间：2022-06-28 09:35

刚才有个人提了一个类似的问题（cm m km的转换），不过他是要求只在一个text和combo中实现的，比你的要求更严格，你看看，要转换成两个的也很方便的：

Private Sub Combo1_Click()
If IsNumeric(Text1.Text) Then Text1.Text = Val(Text1.Text) / Val(Text1.Tag) * Combo1.ItemData(Combo1.ListIndex)
Text1.Tag = CStr(Combo1.ItemData(Combo1.ListIndex))
End Sub

Private Sub Form_Load()
Text1.Tag = "1000"
Text1.Text = ""
Combo1.Clear
Combo1.AddItem "cm"
Combo1.ItemData(Combo1.NewIndex) = 100000
Combo1.AddItem "m"
Combo1.ItemData(Combo1.NewIndex) = 1000
Combo1.AddItem "km"
Combo1.ItemData(Combo1.NewIndex) = 1
Combo1.ListIndex = 1
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com