怎样能够把richtextbox控件中某一指定行(已知行号)的内容付给一个字符串变量,望大家指教!
解决方案 »
- vb6.0 中的cell控件如何使用
- 听说散分可以攒RP,散......
- 找工作
- active 4.2的注册方法
- 如何在Rs 中读另一个Rs中的某一确定行的方法?原码如下. (超菜的问题,第二次发问)
- *****讨论: 各位在做数据库时,都用什么方法控制每一条数据的权限?******
- 初学者的一个简单问题
- ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆ ▏☆─怎样实现这样的窗体?──────────────────
- 请问:怎样用打印机把画在picurebox控件里的曲线打印出来?
- 斑竹及各位高手,望急救。。。。。。。。。。
- VB下关于算法的描述问题(整理用重发,原来那个一加分给结贴了)
- 如何在程序里面设置 datareport里面Rptlabel的字体?
dim selstr as string
rtfarr=split(richtextbox.text,chr(13))'将第5行赋给SELSTR
selstr=RTFARR(4)
ERASE RTFARR
TextBox 是以 vbCr+vbLf 为分行符号, 如果我们要逐一读取 TextBox 每一行,无非是寻找 vbCr+vbLf 的所在位置, 然后取出每一行的字串, 不过这个方法真的不快,而且如果我们要读取第 N 行资料, 还是要从第 1、2、┅N-1 行逐一读起, 实在麻烦。
还好 Windows API 提供有读取 TextBox 第 N 行的功能, 细节如下:
1. API 的声明:
Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
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 Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
注:如果以上的声明放在「一般模块」底下, 应在 Const 之前加上 Public 保留字, 并且将 Private 保留字去掉。
2. 程序范例:
Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
If length > 0 Then
ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2)
Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
Line = StrConv(bArr2, vbUnicode)
Else
Line = ""
End If
End Sub
' 假设要读取 Text1 第 5 行的资料
Dim S As String
Call TB_GetLine( Text1.hWnd, 5, S )
' 传回值 S 即等于到 5 行的资料
注:TextBox 的行次是从 0 起算。