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

2024-07-21 02:16:19

字体：大中小

来源：转载

供稿：网友

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

把以下api函数的声明添入模块文件的general declarations区域。

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.caption = format(linecount, "##,###")

end sub

注释：为了使本程序成功，请在设计阶段把文本框的multiline属性设为true。

网站运营seo文章大全

提供全面的站长运营经验及seo技术!

上一篇：Tag属性的妙用

下一篇：Word编程中，事件的作用和顺序