1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-12-13
- 打赏
- 举报
VBCRLF 只能判断硬回车
northwolves 2005-12-13
- 打赏
- 举报
呵呵，懒一点的方法是判断textbox里面的vbcrlf有多少个。
-------------------
-------------------
roger_xiong 2005-12-12
- 打赏
- 举报
呵呵，懒一点的方法是判断textbox里面的vbcrlf有多少个。
foreverstar2004 2005-12-12
- 打赏
- 举报
呵，楼上的5星强人给你解决了，我就跟着顶一下吧!
rainstormmaster 2005-12-11
- 打赏
- 举报
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
Private Sub Command1_Click()
Dim LineCount As Long
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, ByVal 0&, ByVal 0&)
MsgBox LineCount
End Sub
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
Private Sub Command1_Click()
Dim LineCount As Long
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, ByVal 0&, ByVal 0&)
MsgBox LineCount
End Sub
