文本框控件的消息及应用(2)

　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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有