VB编程怎样让这个滚动条控制这个文本框的字?

文本框有时候会出现很长的字,用这个滚动条往后拉控制字往后拉,怎么编程?

LZ可以用文本框自带的滚动条;设置如下:

设置好之后想怎么拉就怎么拉,妈妈整夜不会担心我看不到后面的字了。

有问题请追问,满意请采纳!

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-02-28
以必要吗,文本框不是自带有滚动条吗?设置ScrollBars属性,垂直的水平的都有。

你这个滚动条处理,可以在文本改变时,修改Max属性为文本长度-1,min为0。
然后在滚动条事件中根据value属性值修改文本框的selStart属性。
第2个回答  2014-02-28
其实文本框本来就支持滚动条,你把text的2个属性设置一下就可以了:
由于不允许给只读赋值,要手动设置
multiline 设置为 true

ScrollBars 的选第一项(scrollbar属性,0是没有,1为水平,2为竖直,3为两者都有
第3个回答  2019-10-26
enable属性是false时,就不能操作了,如果你一定要用代码实现操作,可以先把enable属性设置为true,然后滚动,滚动完之后再设置为false
第4个回答  2014-02-28
。。。。我想说。。。。你文本框没滚动条?
第5个回答  2014-02-28
什么意思,

VB编程怎样让这个滚动条控制这个文本框的字?
LZ可以用文本框自带的滚动条;设置如下:设置好之后想怎么拉就怎么拉,妈妈整夜不会担心我看不到后面的字了。有问题请追问,满意请采纳!

VB怎么让文本框滚动条滚动
1、在VB中实现文本框滚动条的滚动,首先需要将文本框的Mutiline属性设置为true,允许文本框显示多行文本。2、接下来,设置文本框的Scrollbars属性,可以选择垂直滚动条或水平滚动条,以适应不同的滚动需求。3、当向文本框输入内容并超出当前显示范围时,滚动条会自动显示。用户可以通过点击滚动条两侧的箭头...

VB怎么让文本框滚动条滚动
方法一:1、VB中让文本框滚动条滚动,设置文本框的属性值Mutiline属性为true;2、设置文本框的Scrollbars的属性为垂直滚动条或者水平滚动条;3、将文本框赋值后,当文本框的内容大于当前文本框显示内容时,文本框滚动条便会显示可用状态,这时点击滚动条两侧箭头可以使滚动条滑动,或者鼠标左键按住中间的滚...

vb滚动条控制字体大小
1、首先将滚动条的Min、Max分别设置为字号的最小值和最大值。2、其次当拖动滑块时,字体取原来值,字号便跟着变化。3、最后设置一个大小合适的字体即可。Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的等。

vb里面怎么设置textbox的滚动条?
1、首先打开VB,然后在VB窗体上添加一个文本框,如图。2、然后点击这个添加的文本框,接着在右侧的一个窗口中,设置他的相关名称和数值,然后将文本内容清空。如图。3、紧接着在窗体上面,再添加一个水平滚动条,如图。4、然后单击这个水平滚动条,设置名称和数值,将Min设置为0,Max设置为100。

vb中怎样用垂直滚动条控制窗体内容的上下移动,比如窗体是内容是一个...
在窗体中放图片框作容器,把窗体内容放在容器中,滚动条控件控制图片框移动。前天回答过类似问题,去看看吧:http:\/\/pan.baidu.com\/share\/link?shareid=3472365076&uk=221712017&app=zd

vb想写一个写字板程序,怎么让滚动条操控textbox里的文字移动?
textbox 有滚动条吧,scrollbars 属性。

vb编程列表框换行及滚动条问题
在VB编程中处理列表框(ListBox)的换行及滚动条问题,可以通过以下步骤实现:首先,要实现列表框中的元素能够自动换行,需要将属性`MultiSelect`设置为`2`。这将允许列表框同时选择多个项,即使列表项超出列表框的可视区域时,列表项也能自动换行,从而保持列表内容的完整性。接着,为了处理列表框的滚动事件...

vb怎么用滚动条控制text字体大小 代码是什么?
Option ExplicitPrivate Sub Form_Load() Text1.Text = "字" Text1.FontSize = 7 Label1.Caption = 7 VScroll1.Max = 256 VScroll1.Min = 7 VScroll1.Value = 7 End SubPrivate Sub VScroll1_Change() Text1.FontSize = VScroll1.Value Label1.Caption = ...

vb如何实现文本框与滚动条的值互相调整?
If Val(Text1.Text) > HScroll1.Max Or Val(Text1.Text) < HScroll1.Min Or Text1.Text = "" Then MsgBox "你输入的数据超出了滚动条滚动范围,请重新输入!!"Else HScroll1.Value = Val(Text1.Text)End If End Sub 直接粘贴复制过去 建一个滚动条 和 text 就可以直接用 刚刚运行...

相似回答