先把Lbale控件的AutoSize屬性改成False,然后你就可以隨便調(diào)整大小了
創(chuàng)新互聯(lián)公司專注于企業(yè)營銷型網(wǎng)站、網(wǎng)站重做改版、莒縣網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5場景定制、成都做商城網(wǎng)站、集團公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為莒縣等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
使用的多的是微軟的FlexGrid控件。
通過菜單"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"進行選擇。這個是包含在VS6 SP6安裝包內(nèi)的。
左邊放一個專門放行數(shù)的listbox,根據(jù)右邊的行數(shù)自動生成行號
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Dim arr() = RichTextBox1.Text.Split(vbLf)
Dim str As String
str = ""
For i = 1 To arr.Length
str = str i vbCrLf
Next
RichTextBox2.Text = str
End Sub
接下來是兩個listbox的同步滾動,可以參考這篇文章: