: hi guys,
: i was wondering if we could create a program with a ComboBox that includes km,m,cm and if we choose km for example it converts them to mm.
:
: Any ideas how it can be done?(1km = 1000m,etc...)
Easy, as long as you know the calculations:
Combo1.AddItem "km -> mm (1:1000)"
Combo1.AddItem "mm -> km (1000:1)"
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text2.Text = CStr(Val(Text1.text) * 1000)
Case 1
Text2.Text = CStr(Val(Text1.text) / 1000)
End Select
End Sub
Hope this helps!
