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

本文介紹如何使用VB編程軟件制作滾動(dòng)條，通過(guò)移動(dòng)滾動(dòng)條來(lái)改變文本框的高度和大小。如果你對(duì)此感興趣，接著往下看吧。

打開(kāi)VB 6.0軟件并加載文本框

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

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

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

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

為工程編寫(xiě)以下程序：

```vb

Private Sub h1_Change()

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

End Sub

Private Sub v1_Change()

Text1.Height ' 文本框高度隨垂直滾動(dòng)條改變

End Sub

```

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