关于API函数SendMessage的EM_EXSETSEL的问题,100分求解!!
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As FindText) As Long
Public Const FR_DOWN = &H1
Public Const WM_USER = &H400
Public Const EM_FINDTEXT = WM_USER + 56
Public Const EM_FINDTEXTEX = WM_USER + 79
Public Const EM_EXSETSEL = WM_USER + 55
Public Const EM_SETTEXTEX = WM_USER + 97
Type charrange
cpMin As Long
cpMax As Long
End Type
'and lParam is a findtext structure:
Type FindText
chrg As charrange
lpstrText As String
End Type
Type charrangeFind
cpMin As Long
cpMax As Long
End Type
`------------------------
Private Sub Command1_Click()
Dim star As Long
Dim fText As FindText
Dim cRange As charrange
Dim chrgText As charrangeFind
With cRange
.cpMin = 0
.cpMax = LenB(StrConv(Form1.RichTextBox.Text, vbFromUnicode))
End With
With fText
.chrg = cRange
.lpstrText = TextFind.Text
'.chrgText = cRangeFind
End With
Form1.RichTextBox.SelStart = 0
lReturn = SendMessage(Form1.RichTextBox.hwnd, EM_FINDTEXTEX, FR_DOWN, fText)
With chrgText
.cpMin = lReturn
.cpMax = lReturn + LenB(StrConv(TextFind.Text, vbFromUnicode))
End With
SendMessage Form1.RichTextBox.hwnd, EM_EXSETSEL, 0, chrgText
End Sub
以上,是我做的一个在中进行查询字符串的程序,前面查找都正常,可是总是在最后一句进行定位的chrgText报“参数类型不对”,请问是什么意思啊?谁能帮帮我啊