一个TEXT控件,一个VScrollBar控件,如何根据VScrollBar来改变text里的值??

utilguy 2004-07-15 05:47:15
一个TEXT控件,一个VScrollBar控件,如何根据VScrollBar来改变text里的值?
每按向上,TEXT的值就加1
每按向下,TEXT的值就减1
...全文
298 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
reker 2004-07-17
  • 打赏
  • 举报
回复
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub
这个不行的
这样做出来以后
按上箭头是减少
下箭头是增加
与楼主的要求正好相反

随想他说的对

ps:随想做的按钮控件挺不错的,强烈推荐
dongge2000 2004-07-15
  • 打赏
  • 举报
回复
我楼上的就可以了,不要这么麻烦。
ryuginka 2004-07-15
  • 打赏
  • 举报
回复
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub
熊孩子开学喽 2004-07-15
  • 打赏
  • 举报
回复
capricciososoft(随想软件) 说的对,
只是把Text1 = Str(Val(Text1) - 1)和Text1 = Str(Val(Text1) + 1)
改成Text1 = Val(Text1) - 1 和Text1 = Val(Text1) + 1吧,VB自己会做这个

鸡蛋里挑骨头,不就是为了捞点分吗。
northwolves 2004-07-15
  • 打赏
  • 举报
回复
Private Sub Form_Load()
With VScroll1
.min = 100
.Max = 1
.Value = 50
Text1.Text = .Value
End With
End Sub

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub

也可以用UPDOWN 控件
capricciososoft 2004-07-15
  • 打赏
  • 举报
回复
Dim V0 As Integer

Private Sub Form_Load()
V0 = VScroll1.Value
End Sub

Private Sub VScroll1_Change()
If V0 < VScroll1.Value Then
Text1 = Str(Val(Text1) - 1)
Else
Text1 = Str(Val(Text1) + 1)
End If
V0 = VScroll1.Value
End Sub
happyhsh 2004-07-15
  • 打赏
  • 举报
回复
VScrollBar.value
shixiaoz 2004-07-15
  • 打赏
  • 举报
回复
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub



在vscroll里面设置max和min值
VB控件属性大全【珍藏版】 1.01、窗体(FORM)的常用属性 2 1.02、标签控件(Lable)的常用属性 7 1.03、文本框控件(TextBox)的常用属性 9 1.04、框架控件(Frame)的常用属性 13 1.05、命令按钮控件(CommandButton)的常用属性 15 1.06、复选框控件(CheckBox)的常用属性 17 1.07、单选钮控件(OptionButton)的常用属性 19 1.08、组合框控件(ComboBox)常用属性 22 1.09、列表框控件(ListBox)的常用属性 25 1.10、水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)的常用属性 28 1.11、定时器控件的常用属性 30 1.12、文件系统控件的常用属性 30 1.13、形状控件(Shape)常用属性 33 1.14、直线控件(Ling)的常用属性 35 1.15、图像控件(Image)的常用属性 36 1.16、图片框控件(PictureBox)的常用属性 38 1.17、数据控件(Data)的常用属性 43 1.18、OLE容器控件(OLE)的常用属性 46 1.19、菜单控件的常用属性 48 2.02、电影(ActiveMovie)控件的常用属性 49 2.01、Adodc控件的常用属性 52 2.03、动画(Animation)控件的常用属性 55 2.04、公用对话框控件(CommonDialog)控件的常用属性 56 2.05、数据组合框(DataCombo)控件的常用属性 60 2.06、数据型电子表格控件(DataGrid)的常用属性 62 2.07、数据列表(DataList) 控件的常用属性 65 2.08、DTPicker控件的常用属性 67 2.09、平面滚动条控件(FlatScrollBar)的常用属性 70 2.10、图像组合框(ImageCombo)控件的常用属性 71 2.11、图像列表控件(ImageList)的常用属性 74 2.12、Inet控件的常用属性 74 2.13、列表视图控件(ListView)的常用属性 75 2.14、MAPIMessages控件的常用属性 79 2.15、MAPISession控件的常用属性 80 2.16、MaskEdBox控件的常用属性 80 2.17、多媒体(MMControl)控件的常用属性 83 2.18、月视图(MonthView)控件的常用属性 86 2.19、图表控件(MSChard)的常用属性 89 2.20、MSComm的常用属性 93 2.21、电子表格控件(MSFlexGrid)的常用属性 94 2.22、层次型电子表格控件(MSHFlexGrid)的常用属性 99 2.23、MSRDC控件的常用属性 104 2.24、PictureClip控件的常用属性 106 2.25、进度栏(ProgressBar)控件的常用属性 107

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧