html 读取 vb,VB编程：vb读取textbox控件某一行的方法

如果不借助API来获取文本框的某一行的话，那就从头开始来查找回车换行符，并确认某一行的换行位置，再来确认某一行的文本内容。但要读取的行数处在textbox最后一行，那么通过这种方式效率就太低了。

想要快速提取文本框的某一行，必须要靠API才可以做的。

在此之前要先在窗体画一个文本框,文本框内容为：

张三

李四

王五

赵六

张七

同时在窗体上再画一个按钮。以下是用VB读取文本框某一行的内容的代码：

Private Const EM_GETLINE = &HC4

Private Const EM_LINELENGTH = &HC1

Private 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)

Public Sub TextBoxGetLine(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

Private Sub Command1_Click()

Dim vData As String

Dim rows As Long

rows = CInt(InputBox("请输入要读取数据的行数：", "输入"))

Call TextBoxGetLine(Text1.hWnd, rows, vData)

MsgBox vData

End Sub

运行此程序后，在弹出的输入框，输入1，输出结果是：李四 (有必要说明的是：TextBox 的起始行是从0起算)

来源：济亨网

html 读取 vb,VB编程：vb读取textbox控件某一行的方法相关推荐

C#TextBox控件实现数据绑定的方法
经常写用一个TextBox显示某个对象,然后编辑之后再保存的程序.以前都是在TextBox_TextChanged事件中修改对象的值,或者保存的时候再读取TextBox.Text属性保存对象的值.这样 ...
VB.NET学习笔记：自定义控件之扩展TEXTBOX控件——水印文字提示效果
测试环境:windows 7和Microsoft Visual Studio 2017 看到一些优秀软件里的TEXTBOX文本框都有水印文字提示应该输入什么样的信息,获取光标后提示文字消失,光标离开后 ...
VB根据窗体自动调整窗体内控件大小注：实用，可以直接引用
代码如下: Option Explicit Private ObjOldWidth As Long '保存窗体的原始宽度 Private ObjOldHeight As L ...
VB.NET怎样开发自定义Windows控件
前言 Microsoft® Visual Basic® 的组件支持历来都是它的一大卖点,于是第三方软件开发商们纷纷开发出各种具有新功能性的可视控件 (也有少数非可视控件) 供 Visual Basic ...
DotNetTextBox V2.0 Web Control(ASP.NET2.0 增强型TextBox控件,完全支持AJAX.NET)
[控件界面] [控件介绍] 名称:DotNetTextBox V2.0 Web Control 免费无限制版类型:ASP.NET2.0 增强型TextBox控件作者: 小宝.NET2.0 主页:h ...
设置TextBox控件的高度文档翻译
原文来自: https://www.codeproject.com/Articles/29140/Set-TextBox-Height 翻译:Jeffrey Chou 设置TextBox控件的高度(S ...
选中DataGridView行，将数据返填到TextBox控件
这个代码有一个问题就是只能单击最后一列,事件才会发生!努力研究中......,如果有高手知道为什么也请指教一下,在此先谢过! using System; using System.Collection ...
Winform编程中的treeview控件
Winform编程中的treeview控件 treeview基础操作 treeview添加.删除节点操作 treeview节点展开与折叠 treeview节点重命名 treeview获取节点集合并设置 ...
C#设置Textbox控件不可编辑
前言一般而言,Textbox中有两个属性可以对其进行防止编辑的设定,这是最基础的知识,也是我要提出的前两种方法.而后两种方法实际为一种,但可以应用于不同环境中. 一.ReadOnly属性这样设置, ...

html 读取 vb,VB编程：vb读取textbox控件某一行的方法

html 读取 vb,VB编程：vb读取textbox控件某一行的方法相关推荐

最新文章

热门文章