取得TextBox 某一行的字串

2016-02-19 16:51 9 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享取得TextBox 某一行的字串，希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - 编程语言】

　　这是使用EM_GETLINE message来做，比较奇特的是lParam是指向一个字串所在的位置，但是该字串传入时，前两个Byte要存该字串允许的最大长度。

'以下在Form需一个TextBox，并设定MultiLine = True, 一个Command ButtonPrivate Sub Command1_Click()Dim str5 As Stringstr5 = GetaLine(Text1,1)　'取得第二行的字串，以0为基底End Sub'以下在.BasOption ExplicitConst EM_GETLINE = &HC4Declare Function SendMessage Lib "user32" Alias "SendMessageA" _　　　　(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _　　　　 lParam As Any) As LongPublic Function GetaLine(Text1 As TextBox, ByVal ntx As Long) As StringDim str5(255) As Byte '如果您的字串  255 byte请自行增加该Byte ArrayDim str6 As String, i As Longstr5(0) = 255 '字串的前两个Byte存该字串的最大长度str5(0) = 255i = 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 IfEnd Function

来源:http://www.tulaoshi.com/n/20160219/1613352.html

看过《取得TextBox 某一行的字串》的人还看了以下文章更多>>

WPS如何批量实现一列一行加减乘除

标签： wps教程 wps office教程

WPS如何批量实现一列一行加减乘除对于这个问题我们自然想到了利用，当你利用工式输入A1=A1+8时，你会得到EXCEL的一个警告：WPS表格不能计算该公式只有自己想办法了，这里介绍一种简单的方法：第一步: 在想要修改的列(假设为A列)的旁边，插入一个临时的新列(为B列)，并在B列的第一个单元格(B1)里输入8。 2、把鼠标放...

WPS合并多行文字连接成一行

标签：电脑入门

从网上下载的数据格式经常是一项数据一行，而我们经常需要把一大篇文本中的内容每两行文字连接成一行，有时甚至需要把更多的行连接成一行。手工复制粘贴显然是很麻烦的，其实在WPS文字2007中要处理这类问题是很简单的。下面就用WPS 2007个人版的WPS文字来介绍一下具体操作。 1.启动WPS文字2007，单击菜单文件/打开，在打开窗口中选择文件类型...

wps批量实现对一列或一行的加减乘除

标签：电脑入门

如何批量修改wps表格/excel数据中,实现对一列(行)的加、减、乘、除?? 比如我们做好一个L表格，填好了数据，现在想修改其中的一列(行)，例如：想在A列原来的数据的基础上加8，有没有这样的?是不是非得手工的一个一个数据地住上加?对于这个问题我们自然想到了利用，当你利用工式输入A1=A1+8时，你会得到EXCEL的一个警告：WPS表格不能计算该公式...

网站变黑白色CSS一行代码实现

标签： Web开发

5．12地震给四川人民带来了巨大灾难，5月19日到5月21日为全国哀悼日，有很多网站界面今天都变成了黑白色，从而纪念那些在地震中死去的逝者。对于普通的站长来说，对于灾难并不能多做些什么，但可以做到将自己的网站也变成黑白色，从而缅怀那些地震逝者。如果用传统的方法将网站变成黑白色非常的麻烦，需要更换页面的文件，...

Excel中完美冻结第一行、第一列的技巧

标签：电脑入门

第一步：在Excel中，单击选中B2单击格，执行窗口→拆分命令(如图1),接下来便会出现图2所示的效果，如果没有出现图2所示效果则说明窗口拆分未成功。第二步：单击选中最左上角的A1单元格，执行窗口→冻结窗格命令(如图3)。这时就完美的实现了冻结第一行、第一列的效果了(如图4)。对于一些数据较多的表格，需要固定表头或者...

查看更多精彩>>