VB Program to convert inch - cm
inch = Scrollbar Value
cm = inch * 2.5
Change-Event
Private Sub VScroll1_Change()
Label1.Caption = Str(VScroll1.Value) + " inch"
Label2.Caption = Str(VScroll1.Value * 2.5) + " cm"
End Sub
Scroll-Event
Private Sub VScroll1_Scroll()
Label1.Caption = Str(VScroll1.Value) + " inch"
Label2.Caption = Str(VScroll1.Value * 2.5) + " cm"
End Sub
Simple :
I can't show you complete code Directly so download full code from below .inch = Scrollbar Value
cm = inch * 2.5
Change-Event
Private Sub VScroll1_Change()
Label1.Caption = Str(VScroll1.Value) + " inch"
Label2.Caption = Str(VScroll1.Value * 2.5) + " cm"
End Sub
Scroll-Event
Private Sub VScroll1_Scroll()
Label1.Caption = Str(VScroll1.Value) + " inch"
Label2.Caption = Str(VScroll1.Value * 2.5) + " cm"
End Sub
Full Code :
Output(converter.exe)
Full code(converter.doc)
Full project(converter.zip)
*Note Full project require Visual Basic 6.0
