多行文本框中选择文本行
来源:互联网 发布:快3源码 编辑:程序博客网 时间:2024/06/09 00:00
多行文本框中选择文本行
Option Explicit
Private Const EM_LINELENGTH = &HC1
Private Const EM_LINEINDEX = &HBB
Private Const EM_SETSEL = &HB1
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 Sub Form_Load()
Text1.Text = "aaaaaaa" & vbCrLf & _
"bbbbbbbbb" & vbCrLf & _
"ccccccccccc" & vbCrLf & _
"ddddddddddddd"
SEL_Line Text1.hWnd, 2, 2 '第2行起选择2行
End Sub
Sub SEL_Line(ByVal hWnd As Long, ByVal whichLine As Long, ByVal howLine As Long)
'=============================chinaboyzyq 2010-04-16============================
'第一个参数是文本框的句柄
'第二个参数是从第几行开始选择(1为第一行)
'第三个参数是选择几行
'===============================================================================
whichLine = whichLine - 1
If whichLine < 0 Then whichLine = 0
Dim length As Long, lc As Long, StartLine As Long, i As Long
For i = whichLine To whichLine + howLine - 1
lc = SendMessage(hWnd, EM_LINEINDEX, i, ByVal 0&)
If i = whichLine Then StartLine = lc
length = length + SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&) + 2
Next
SendMessage Text1.hWnd, EM_SETSEL, StartLine, ByVal (StartLine + length)
End Sub
- 多行文本框中选择文本行
- 多行文本框限制文本长度
- ASP.NET中多行文本框
- 多行文本框(也叫文本域)
- 多行文本框
- <textarea>文本域,多行文本输入
- 文本域,支持多行文本输入
- 文本溢出:单行文本,多行文本溢出显示省略号
- 文本显示省略号(单行文本+多行文本)
- WPF中设置TEXTBOX为多行文本输入框
- 利用多行文本框向listview中添加内容
- WPF中设置TEXTBOX为多行文本输入框
- WPF中设置TEXTBOX为多行文本输入框
- pb中获取多行文本编辑框(mle控件)指定行的内容
- svg中显示多行文本
- svg中显示多行文本
- C#--GDI+绘制多行文本和格式化文本
- 5-3文本域,支持多行文本输入
- Word 2007制作简历最常见三大失误
- MySQL 数据库的备份和恢复
- crash dump的捕捉原理
- Error: Ram start overlaps rom binary
- 条款54:让自己熟悉包括TR1在内的标准程序库
- 多行文本框中选择文本行
- Forget Desktop, It’s All About The Mobile! – Future Internet Predictions from Morgan Stanley - The Next Web Shareables
- Delphi中预想不到的代码楼主zswang(伴水清清)(专家门诊清洁工)2002-05-16 14:20:38 在 Delphi / VCL组件开发及应用 提问
- 大家好
- Silverlight 4 RTM is here !!!
- exec函数族 详解
- ▼▲Delphi面向对象编程的20条规则
- 浅谈HTTPS传输协议原理
- Delphi中建议使用的语句