vb中怎样计算或获取richtextbox的文章页数

在窗体上加入控件command1,RichTextBox1,然后复制下面代码，修改文件路径，运行后点击command1，即可看到结果。

Option

Explicit

Private

Declare

Function

SendMessage

Lib

"user32"

Alias

"SendMessageA"

(ByVal

hwnd

As

Long,

ByVal

wMsg

As

Long,

ByVal

wParam

As

Long,

lParam

As

Any)

As

Long

Private

Const

EM_GETLINECOUNT

=

&HBA

'获取翻页次数

Function

GetHs()

Dim

ctlNew

As

PictureBox,

Hs

As

Long,

t

As

Long

Set

ctlNew

=

MeControlsAdd("VBPictureBox",

"picNew",

Me)

Hs

=

SendMessage(RichTextBox1hwnd,

EM_GETLINECOUNT,

0,

0)

t

=

Int((RichTextBox1Height)

/

(ctlNewTextHeight("A")

+

65))

GetHs

=

Hs

\

t

+

1

ControlsRemove

ctlNew

End

Function

Private

Sub

Command1_Click()

MsgBox

"使用Pagedown翻页,需要"

&

GetHs

&

"次才能到文章结尾。"

End

Sub

Private

Sub

Form_Load()

RichTextBox1FileName

=

"c:\1txt"

'请修改

End

Sub

用电脑版的应用宝软件就行了

应用宝是腾讯旗下的手机安全功能软件，有很多的安全功能

当然也有一键root，这个功能 *** 作起来是非常简单的

下载电脑版应用宝，把手机连接电脑上

打开手机的连接模式，成功识别手机以后

打开应用宝的工具箱，点击一键root，根据提示 *** 作就行了

应用宝root效果很不错的。成功率高，而且安全稳定。

以上就是关于vb中怎样计算或获取richtextbox的文章页数全部的内容，包括:vb中怎样计算或获取richtextbox的文章页数、优派8i如何或获取root、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！