如何用vb软件制作滚动条改变文本框大小
1个回答
展开全部
首先我们打开vb 6.0软件 进入到标准”工程1“界面,这些比较简单,就不一一上图了,在”form1“窗口上加载一个文本框”text1”如图
文本框加载好以后,需要在右边属性界面设置它的高度和宽度
先单机属性界面的“height”设置文本框“text1”的高度为2000,再点击“width”设置文本框“text1”的宽度为2500 如图
然后再在文本框“text1”下面加载一个水平滚动条,然后设置水平滚动条的属性最大值“max“为2500 ”value“的值也为2500 ,最后更改水平滚动条的名称为”h1“ 如图
然后把水平滚动条的最大位移量(largechange)设置为 20 最小位移量(smallchange)设置为 2 如图
按照上面的方法,我们再把垂直滚动条加上,设置它的属性最大值为2000 "value"值为2000,更改垂直水平条名称为v1 ,再设置垂直水平条最大位移量为 20 最小位移量为 2 如图
然后是给这个工程编写程序
Private Sub h1_Change()
Text1.Width = h1.Value (文本框的宽度等于水平滚动条的 value值)
End Sub
Private Sub v1_Change()
Text1.Height = v1.Value (文本框的高度等于垂直滚动条的 value值)
End Sub
如图
以上就是如何利用v6制作滚动条改变文本框的大小,运行软件后你拉水平滚动条文本框会宽度会随水平滚动条改变,拉垂直滚动条文本框高度会随垂直滚动条改变
文本框加载好以后,需要在右边属性界面设置它的高度和宽度
先单机属性界面的“height”设置文本框“text1”的高度为2000,再点击“width”设置文本框“text1”的宽度为2500 如图
然后再在文本框“text1”下面加载一个水平滚动条,然后设置水平滚动条的属性最大值“max“为2500 ”value“的值也为2500 ,最后更改水平滚动条的名称为”h1“ 如图
然后把水平滚动条的最大位移量(largechange)设置为 20 最小位移量(smallchange)设置为 2 如图
按照上面的方法,我们再把垂直滚动条加上,设置它的属性最大值为2000 "value"值为2000,更改垂直水平条名称为v1 ,再设置垂直水平条最大位移量为 20 最小位移量为 2 如图
然后是给这个工程编写程序
Private Sub h1_Change()
Text1.Width = h1.Value (文本框的宽度等于水平滚动条的 value值)
End Sub
Private Sub v1_Change()
Text1.Height = v1.Value (文本框的高度等于垂直滚动条的 value值)
End Sub
如图
以上就是如何利用v6制作滚动条改变文本框的大小,运行软件后你拉水平滚动条文本框会宽度会随水平滚动条改变,拉垂直滚动条文本框高度会随垂直滚动条改变
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询