VB 提取TextBox 文本框中指定一行字符串
这是使用EM_GETLINE message来做,比较奇特的是lParam是指向一个字串所在的位置,
但是该字串传入时,前两个Byte要存该字串允许的最大长度。
'以下在Form需一个TextBox,并设定MultiLine = True, 一个Command Button
Private Sub Command1_Click()
Dim str5 As String
str5 = GetaLine(Text1, 1) '取得第二行的字串,以0为基底
End Sub
'以下在.Bas
Option Explicit
Const EM_GETLINE = &HC4
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Public Function GetaLine(Text1 As TextBox, ByVal ntx As Long) As String
Dim str5(255) As Byte '如果您的字串 > 255 byte请自行增加该Byte Array
Dim str6 As String, i As Long
str5(0) = 255 '字串的前两个Byte存该字串的最大长度
str5(0) = 255
i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))
If i = 0 Then
GetaLine = ""
Else
str6 = StrConv(str5, vbUnicode)
GetaLine = Left$(str6, InStr(1, str6, Chr$(0)) - 1)
End If
End Function
摘自:网络整理
相关可能感觉兴趣的文章参考:
※VB 获取TextBox文本框中的行数函数
※VB快速读取 TextBox 第 N 行的资料
※限制文本框(TextBox)只能输入数字(VB6代码)
※VB 提取TextBox 文本框中指定一行字符串
※VB 小技巧自定义TextBox文本框右键菜单
※VB 获取光标在TextBox、RichTextBox中所在的位置
VB部分相关文章推荐:★
☆VB 读写TXT文本文件函数
☆VB 提取TextBox 文本框中指定一行字符串
☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
☆VB SendMessage向其他程序窗口发送字符串消息实例
☆VB中Null, Empty, Nothing, and vbNullString的区别
☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)
☆[VB]SaveSetting 语句 和 DeleteSetting 语句
☆VB APP对象属性一览表 + 灵活使用VB的APP对象
☆[vb]SendMessageA函数
☆使用VB绘制抛物线动画曲线
☆关于vb中的容器
☆[vb]利用WScript.Shell对象隐藏cmd命令行运行
☆浅析VB For Each.Next语句
☆VB中窗体模块、标准模块、类模块的区别
☆引用 VB类模块
☆VB中什么是类,类模块有什么作用
☆VB SendKeys 语句
☆VB 全局热键
☆用VB轻松调用其他程序
☆vb读取txt文件到textbox
☆如何去优化你的VB程序3
☆如何去优化你的VB程序2
☆如何去优化你的VB程序1
☆[VB]在状态栏中显示帮助信息
☆[VB]把屏幕保存为图像
☆Mp3Play.ocx控件让音乐之声响起来
更多精彩>>>
VB 提取TextBox 文本框中指定一行字符串相关推荐
- VB小技巧 文本框中屏蔽系统右键菜单用自定义菜单代替自带右键菜单
'txtList是textbox控件,pop2是自定菜单名 Private Sub txtList_MouseDown(Button As Integer, Shift As Integer, X A ...
- ListBox选中项数量显示于TextBox文本框中
要完成的功能:点击ListBox选中一个或多个选项时,TextBox中自动显示选中项的数量. 如下图显示: 分析: 你原先错误的思路:ListBox配置好数据源,然后在TextBox的后台事件Text ...
- TextBox文本框中如何换行
首先设置可多行 this.TextBox1.Multiline=true; 换行 this.TextBox1.Text="加入此换行符即可换行" + "\r\n" ...
- VB 小技巧自定义TextBox文本框右键菜单
'TextBox单击鼠标右键总是跟出来一个系统默认的关于文本操作的菜单,如何把它去掉?请看如下代码. Private Sub Text1_MouseDown(Button As Integer, Sh ...
- VB 设置ListView中指定一行的背景颜色
代码如下: 'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认:&HB6B4FF) Public Sub SetListViewBGColor ...
- VB快速查找大型文件中包含的字符串
关于查找大型文件中包含的字符串,一般都把文件内容读入到内存,然后在内存里进行比较,却不知这种办法有一个致命的弱点,那就是由于大量的内存申请和释放导致的内存颠簸,会使系统性能下降,严重影响了查找的速度. ...
- python docx提取word中的目录及文本框中的文本
问题描述 同标题 解决方案 因未在docx库找到直接识别word中目录及文本框中文本的方法,所以采用了一个"笨"方法,docx库可以把word文档解析成xml格式,以解析xml的方 ...
- Python提取 “Excel文本框” 内容,这个需求头一次见,1000个表,10行代码!
本文介绍 说实话,这个需求头一次碰到,我相信对于大多数朋友来说,也是头一次碰到."提取excel文本框中的内容",对,你没有听错!我也不知道你碰到过没有,但是这确实是一位朋友提出的 ...
- Word控件Spire.Doc 【文本】教程(5) ;从 Word 文档中的文本框中提取文本
文本框的目的是允许用户输入程序要使用的文本信息.也可以从文本框中提取现有的文本信息.以下指南重点介绍如何通过Spire.Doc for .NET从 C# 中 Word 文档的文本框中提取文本. Spi ...
最新文章
- WIN10 + VS2015 + WDK10 + SDK10 + VM虚拟机驱动开发调试环境搭建
- Ubuntu终端字体颜色方案
- MATLAB AWGN信道 M-ary PSK 误码性能
- 重磅!神策智能推荐获 2019 大数据“星河奖”
- 数学之美 系列二 -- 谈谈中文分词
- Linux删除整行命令
- php购票排位_PHP基于双向链表与排序操作实现的会员排名功能示例
- [Apple开发者帐户帮助]二、管理你的团队(3)删除团队成员
- 【Flink】Flink AscendingTimestampExtractor - Timestamp monotony violated
- 微服务升级_SpringCloud Alibaba工作笔记0011---Gateway常用的predicate
- 最大似然估计_机器学习最大似然估计
- axios 上传文件 封装_axios 封装【满足常规数据上传及file上传】
- 修改linux kernel参数 semopm
- 10074 启用开发者模式 for vs2015rc
- python 数据 模块 好用_Python最被低估的库,用好了效率提升10倍!
- spring-第六篇之创建bean的3种方式
- Mark—零散知识汇总
- 叮咚志汇超级外卖餐饮 6.3.8 + 超级跑腿 v2.0.3 打包下载 小程序模块
- pgadmin4下载
- mac电脑怎么配置adb环境变量
热门文章
- 中国以 34% 的 5G 专利完胜美国、芬兰和韩国!
- 子弹短信回应 App 下架;摩拜起诉滴滴;VS Code 1.28 发布 | 极客头条
- 开发者如何区分 5G 和 LTE 技术?
- 这三种程序员,是时代的溺水者
- 区块链和比特币的 6 个神话:揭穿了这项技术的有效性
- 人工智能这么火,可你真的会用 TensorFlow?
- mysql递归查询所有子级,完整PDF
- 北京java培训机构收费,Java开发者必看
- aix ssh服务??
- java程序运行没有结果,求助啊!我刚学java 下面的程序一直运行但是没结果!!!...