快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

mg推荐游戏_取得TextBox某一行的字串



这是应用EM_GETLINE message来做,对照奇特的是lParam是指向一个字串所在的位置,然则该字串传入时,前两个Byte要存该字mg推荐游戏串容许的最大年夜长度。

'以下在Form需一个TextBox,并设定MultiLine = True, 一个Command Button

Pmg推荐游戏rivate Sub Command1_Click()

Dim str5 As String

str5 mg推荐游戏= 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 Strinmg推荐游戏g, 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, vbUnicmg推荐游戏ode)

GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)

End If

End Function

您可能还会对下面的文章感兴趣: