文本框控件的消息及应用

　End If
End Function
下面的函数能够返回控件指定行的文本。SendMessageBystring与SendMessageBynum类似。
Function GetLineText(CTextBox As TextBox, LineIndex As Long) As String
　Dim lc&, linechar&
　linechar = SendMessageBynum(CTextBox.hwnd, EM_LINEINDEX, LineIndex, 0)
　lc = SendMessageBynum(CTextBox.hwnd, EM_LINELENGTH, linechar, 0) 1
　GetLineText = String$(lc 2, 0)
　Mid$(GetLineText, 1, 1) = Chr(lc And &HFF)
　Mid$(GetLineText, 2, 1) = Chr(lc \ &H100)
　lc = SendMessageBystring(CTextBox.hwnd, EM_GETLINE, LineIndex, GetLineText)
　GetLineText = left(GetLineText, lc)
End Function
下面的函数可以设置控件的左边距。
Public Const EM_SETMARGINS& = &HD3
Public Const EC_LEFTMARGIN& = &H1
Function SetMargins(CTextBox As TextBox, nVal As Long) As Long
　SetMargins = SendMessageBynum(CTextBox.hwnd, EM_SETMARGINS, EC_LEFTMARGIN, nVal)
End Function

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!