VB中如何让UPDOWN控件每次按0.1递增,每按一下值加0.1

Question

VB中如何让UPDOWN控件每次按0.1递增,每按一下值加0.1

Answer 1

这个你应该在代码做一个转换.'定义变量
Dim pvfValue As Single'随便设置一下控件属性
VScroll1.SmallChange = 1
VScroll1.LargeChange = 5
VScroll1.Max = 100
VScroll1.Min = 0演示过程
Private Sub VScroll1_Change()    
    pvfValue = VScroll1.Value / 10
    Debug.Print "Current value = "; pvfValue
End Sub

Answer 2

不要指定 BuddyControl 和 BuddyProperty。
Private Sub UpDown1_Change()
    Text1 = UpDown1.Value / 10
End Sub