如何获得文本框最后一行的内容

paullbm 2005-12-17 07:26:34

如题，本人希望大侠们教小弟用一种最方便、时间复杂度最简单的方法来解决此问题。
最先完成且达到要求者得全分~

...全文

310 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2005-12-17

打赏
举报

//这就是最简单的了？？

差不多就是这样，原理没错，优化的话，不外乎去掉一些字串处理的函数

paullbm 2005-12-17

打赏
举报

这就是最简单的了？？

rainstormmaster 2005-12-17

打赏
举报

就是这样

不过这种方法不适用于richtextbox

northwolves 2005-12-17

打赏
举报

这种方法可识别软回车

northwolves 2005-12-17

打赏
举报

'add a textbox with "multiline=true","scrollbars=2".

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 Declare Function SendMessageByNum Lib "USER32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageByString Lib "USER32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, ByVal lParam As String) As Long

Private Const EM_LINEINDEX = &HBB
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_GETLINE = &HC4
Private Const EM_LINELENGTH = &HC1

Function GetLineText(ByVal txtbox As TextBox, ByVal LineIndex As Long) As String '返回指定行的内容
Dim lc As Long, linechar As Long
linechar = SendMessageByNum(txtbox.hWnd, EM_LINEINDEX, LineIndex, 0)
lc = SendMessageByNum(txtbox.hWnd, EM_LINELENGTH, linechar, 0) + 1
GetLineText = String(lc + 2, 0)
Mid(GetLineText, 1, 1) = Chr(lc And &HFF)
Mid(GetLineText, 2, 1) = Chr(lc \ &H100)
lc = SendMessageByString(txtbox.hWnd, EM_GETLINE, LineIndex, GetLineText)
GetLineText = Left(GetLineText, lc)
End Function

Function lastline(ByVal txtbox As TextBox) As String
Dim linecount As Long
linecount = SendMessage(txtbox.hWnd, EM_GETLINECOUNT, 0, 0) - 1 '返回行数
lastline = GetLineText(txtbox, linecount)
End Function

Private Sub Command1_Click()
MsgBox lastline(Text1)
End Sub

课程前部分介绍网页组成元素，浏览器内核，网页骨架，基本标签，标签属性中间部分学习网站中常用的标签，如链接，图片，表格，标题，内联等，并学习这些相关属性，如何用guiplan一键插入标签，一键选择属性，一键生成代码。最后一部分学习表单相关标签，如文本框，复选框，单选框，按钮。以及视频与音频等。相对之前几节稍微复杂一些，但通过guiplan软件一键生成代码，我们也可以像普通标签一样用起来非常简单。