十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
左边放一个专门放行数的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 = "第四行 "