VB.net怎么显示RichTextBox的行数、列数和总行数啊

求行：

RichTextBox1GetLineFromChar(RichTextBox1SelStart)+1

这个代码呢，我的理解呢，是获取在selstart的地方的行数。一般来讲selstart的地方都是光标的地方，然后会给你返回line。不过返回的时候要自己加1。不是很懂这个语法，有懂得可以教我一下

以上是求行数。

求列：

For i = 0 To RichTextBox1SelStart

If RichTextBox1GetLineFromChar(RichTextBox1SelStart) - RichTextBox1GetLineFromChar(RichTextBox1SelStart - i) <> 0 Then Exit For

j = j + 1

Next i

这个for循环呢，讲的是检查这一行光标前有多少个列，然后用J输出列的个数。

因为VB60没有RichTextBox1GetFirstCharIndexOfCurrentLine这种语法。所以就得自己模拟这个过程。

具体怎么检查的呢，首先将 i 从0循环到光标处，

如果 光标字符数处的行数 减去 光标字符数减去 i 个字符数处的行数小于0了，我写了个不为零。但此时写小于零就可以。那么代表着换行了，同时也代表着光标到上一行之间有多少字。用j存储循环次数，得出对应列数。（我们中文习惯是叫第一列，但程序实际上是第零列，但在循环的时候就注意到并解决这个问题了）

如果你替换写法，例如

If RichTextBox1GetLineFromChar(RichTextBox1SelStart) - RichTextBox1GetLineFromChar(RichTextBox1SelStart + i) > 0 Then Exit For

j = j + 1

Next i

这个 J 就对应着光标到该行结尾有几个字符了，如果有需要可以使用，但一般不需要。

那么就像上面说的那样，行列都求出来了，最后用事件和TEXT或者caption表现出来就好了

至于说总行数

RichTextBox1GetLineFromChar(Len(RichTextBox1Text)) + 1

通过对最后一个字符的位置（总长度）的行来判断呗，不过也得加一。

借助另存为txt

ActiveWorkbookSaveAs Filename:="D:\Users\soulbag\Desktop\新建文本文档2txt", FileFormat:=xlUnicodeText, CreateBackup:=False

然后用 vb的读文件 readline 遍历 txt的

用split 分割每一行vbtab成数组 看 arr(0) 是否为空 不是统计加1

这样即使中间有空行 后面间隔1000行才有数据也能统计出来

先创建Excel对象，Dexcel As New ExcelApplication，然后再在Dexcel中打开工作簿，再判断行、列中是否有数值存在。例：if Dexcelcells(i,p)="" then 

Dim rng As Range

Dim i As Integer, j As Integer

Set rng = xlActiveSheetUsedRange

i = rngRowsCount '已使用的行数

j = rngColumnsCount'已使用的列数

但是建议你不使用这种方式，比如你的excel有3行，然后你在第5行里写入数据，然后再把写的数据删了，此时得到的行数还是5只要用过了它就算在内

open as #1

linenum =0 'dim linenum as integer

do until eof(1)

line input #1,buff 'dim buff as string

linenum = linenum +1

loop

close

以上就是关于VB.net怎么显示RichTextBox的行数、列数和总行数啊全部的内容，包括:VB.net怎么显示RichTextBox的行数、列数和总行数啊、求解怎样在vb中求出有字的行数、如何在vb中获得Excel对象行数，列数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！