成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

利用VB編程軟件制作滾動條改變文本框大小

本文介紹如何使用VB編程軟件制作滾動條,通過移動滾動條來改變文本框的高度和大小。如果你對此感興趣,接著往下看吧。 打開VB 6.0軟件并加載文本框首先打開VB 6.0軟件進入到標(biāo)準“工程1”界面,在“

本文介紹如何使用VB編程軟件制作滾動條,通過移動滾動條來改變文本框的高度和大小。如果你對此感興趣,接著往下看吧。

打開VB 6.0軟件并加載文本框

首先打開VB 6.0軟件進入到標(biāo)準“工程1”界面,在“form1”窗口上加載一個文本框“text1”。設(shè)置文本框的高度為2000,寬度為2500。然后在文本框下方加載一個水平滾動條,并將其最大值和value值均設(shè)為2500,再將水平滾動條名稱更改為“h1”。調(diào)整水平滾動條的最大位移量為20,最小位移量為2。

添加垂直滾動條并設(shè)置屬性

接著在文本框下方再添加一個垂直滾動條,將其最大值和value值均設(shè)為2000,名稱更改為“v1”。同樣地,設(shè)置垂直滾動條的最大位移量為20,最小位移量為2。

編寫程序?qū)崿F(xiàn)滾動條改變文本框大小

為工程編寫以下程序:

```vb

Private Sub h1_Change()

Text1.Width ' 文本框?qū)挾入S水平滾動條改變

End Sub

Private Sub v1_Change()

Text1.Height ' 文本框高度隨垂直滾動條改變

End Sub

```

以上就是利用VB 6制作滾動條以改變文本框大小的方法。運行軟件后,當(dāng)你拖動水平滾動條時,文本框?qū)挾葧鄳?yīng)改變;拖動垂直滾動條時,文本框高度也會跟著改變。這樣便實現(xiàn)了通過滾動條來調(diào)整文本框大小的功能。

標(biāo)簽: