重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
左边放一个专门放行数的listbox,根据右边的行数自动生成行号
创新互联公司长期为上千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为鹤山企业提供专业的网站制作、网站设计,鹤山网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
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的同步滚动,可以参考这篇文章:
SetCellPosition 设置表示单元格的行号和列号的 TableLayoutPanelCellPosition。
SetColumn 设置指定子控件的列位置。
SetColumnSpan 设置子控件跨的列数。
SetRow 设置指定子控件的行位置。
SetRowSpan 设置子控件跨的行数。
将行标题隐藏,修改下第一列单元格样式,第一例写你的行标题
DataGridView1.Rows(0).Cells(0).Value = "第一行 "
DataGridView1.Rows(1).Cells(0).Value = "第二行 "
DataGridView1.Rows(2).Cells(0).Value = "第三行 "
DataGridView1.Rows(3).Cells(0).Value = "第四行 "