Can you get this to work in Windows 98?

This is a function that will retrieve the first line of an edit box by passing the handle. It works great on Windows 2000, but crashes VB on Windows 98. WHY?!?!

Public Function GetLineText(hwnd As Long) As String
Dim li As Long, liCnt As Long, CurrentLine As String, result As Long

   li = SendMessage(hwnd, EM_LINEINDEX, 1, ByVal 0&)
   liCnt = SendMessage(hwnd, EM_LINELENGTH, li, ByVal 0&)
   CurrentLine = MKI(CInt(liCnt)) & String(liCnt + 1, 0)
   
   result = SendMessage(hwnd, EM_GETLINE, 1, ByVal CurrentLine)
   CurrentLine = Left(CurrentLine, liCnt)

   
GetLineText = CurrentLine

End Function


Public Function MKI(x As Integer) As String
'This Function Sets up the EM_GETLINE Buffer.
  
Dim y As Long
y = CLng(x) And &HFFFF&
MKI = Chr(y And &HFF&) & Chr((y And &HFF00&) \ &H100&)

End Function

I really need to get this working on Windows 9x!

Thanks,
Jordan

[mlewis]

There's got to be an equivalent function. Research.

[paulw]

How do you guarantee that liCnt is returning an integer from SendMessage?

MKI(CInt(liCnt)... will cause a problem otherwise. Why not use CLng instead and pass as a long to MKI(x As Integer). Maybe you cannot change that function declaration for some reason, but you immediately cast it back to Long anyway. WHY???!

Hope it helps,

Cheers,

Paul.

[rfo]

This one works:

Function API_EM_GetLn(tb As Control, ByVal LnNr As Long) As String 

'Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam As Any)

Dim ln As String
Dim LnLen As Long

ln = Space$(256)
LnLen = SendMessage(tb.hwnd, EM_GETLINE, LnNr, ln)
API_EM_GetLn = Left$(ln, LnLen)

End Function

[Edited by rfo on 11-03-2000 at 08:03 AM]