当前位置: 开源爱好者 » VB源码 » 控件组件 » 详情页

VB 用滚动条接收用户输入

VB 用滚动条接收用户输入,用滑动条滑块很好的模拟了用户数值的填写,拖动滑块即可改变相应的数值。
  在本例中,当拖动滑块确定输入数据时,单击操作按钮,将计算出两个数的和:
  Private Sub Command1_Click()
  Dim x%, y%, s%, v!
  x = Val(Text1) '把两个文本框里值取出来存到变量里去
  y = Val(Text2)
  s = x + y '然后做加法运算
  v = s / 2 '求平均值
  Label1.Caption = "两个数的和是:" & s & Chr(13) & "平均值是:" & v
   '结果放到标签里显示
  End Sub
  
  Private Sub HScroll1_Change()
  Text1 = HScroll1.Value '将水平滚动条的当前值赋给text1.text
  End Sub
  
  Private Sub VScroll1_Change()
  Text2 = VScroll1.Value '将垂直滚动条的当前值赋给text2.text
  End Sub

VB 用滚动条接收用户输入测试效果图
源码包大小:2.16K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图