Visual Basic 常用代码

Visual Basic 常用代码

比如：

怎样得到文本框（TextBox）中的文本行数？

＇计算文本框中输入文本的行数可以使用SendMessage函数返回，当一行文字发生环绕时，它将被当作新的一行，而被非简单的计算文本中的换行符个数。

＇把以下API函数的声明添入模块文件的general declarations区域，如果您使用的是VB4-32或VB5，也可以把此声明添入FORM1的general declarations中，并把所有的“Public”更换为“Private”。

Option Explicit

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const EM_GETLINECOUNT = &HBA

Form Code

Sub Text1_Change()

Dim lineCount As Long

On Local Error Resume Next

＇得到/显示文本行数

lineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)

Label1 = Format$(lineCount, "##,###")

End Sub

＇注释：为了使本程序成功，请在设计阶段把文本框的Multiline属性设为True。
你要的话可以发给你

最好的是MSDN 你要吗？

可以发给你

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息