重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先把Lbale控件的AutoSize属性改成False,然后你就可以随便调整大小了
创新互联公司专注于企业营销型网站、网站重做改版、莒县网站定制设计、自适应品牌网站建设、H5场景定制、成都做商城网站、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为莒县等各大城市提供网站开发制作服务。
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
使用的多的是微软的FlexGrid控件。
通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
左边放一个专门放行数的listbox,根据右边的行数自动生成行号
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的同步滚动,可以参考这篇文章: