vb点虐 代码行数 vbnet imemode

VB点虐 怎么显示RichTextBox的行数、列数和总行数啊？

求行：

创新互联长期为1000多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为台江企业提供专业的网站制作、成都网站制作，台江网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。

RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1

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

以上是求行数。

求列：

For i = 0 To RichTextBox1.SelStart

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart - i) 0 Then Exit For

j = j + 1

Next i

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

因为VB6.0没有RichTextBox1.GetFirstCharIndexOfCurrentLine这种语法。所以就得自己模拟这个过程。

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

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

如果你替换写法，例如

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart + i) 0 Then Exit For

j = j + 1

Next i

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

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

至于说总行数

RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1

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

VB.NET中，如何获得文本框中可见区域的首行的行号？

可先计算出文本框TextBox1中的总行数，然后在行号框TextBox2中填上从1到总行数的行号。

再用API函数GetScrollPos分别获得文本框和行号框当前行号，最后再使用API函数SendMessage使行号框的行号滚动到对应的行数。

因为文本框的滚动条没有滚动事件，可以暂时使用一个Timer定时刷新，虽然方法笨了点，但暂时只能这么用了

代码如下：

Private Declare Function GetScrollPos Lib "user32" (ByVal handle As IntPtr, ByVal nbar As Integer) As Integer

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a as integer

a = GetScrollPos(TextBox1.Handle, 1)

Dim b as integer

b = GetScrollPos(TextBox2.Handle, 1)

SendMessage(TextBox2.Handle, HB6, 0, a-b)

End Sub

vb点虐 如何统计datagridview某一列有值的行数，代码怎么写？

int colIndex = 2;

int notNullRows = this.dataGridView1.Rows.OfTypeDataGridViewRow()

.Count(r = r.Cells[colIndex].Value != null);

vb点虐 报表设置记录行数

Visualbasic代码编辑器没有这个功能，但可以用第三方的编辑软件Emedit来实现这个功能。

1、用Emedit打开*.frm文件。

2、点工具，当前配置属性，然后勾选显示行号即可。