Get text from edit box

Here is a routine to do it. It is a modified version of what can be found
at http://www.freevbcode.com/ShowCode.asp?ID=2493

Public Function GetTextBoxLine(hWnd As Long) As String
'INPUT: hWnd = Handle to text box
'OUTPUT: Text of specified TextBox Control

Dim lngLineCount As Long
Dim lngLineNumber As Long
Dim lngRet As Long
Dim lngLen As Long
Dim lngFirstCharPos As Long
Dim bytBuffer() As Byte
Dim strAns As String

'get number of lines
lngLineCount = SendMessage(hWnd, EM_GETLINECOUNT, 0, 0&)

For lngLineNumber = 0 To lngLineCount - 1
'first character position of the line
lngFirstCharPos = SendMessage(hWnd, EM_LINEINDEX, lngLineNumber, 0&)

'length of line
lngLen = SendMessage(hWnd, EM_LINELENGTH, lngFirstCharPos, 0&)

ReDim bytBuffer(lngLen) As Byte

bytBuffer(0) = lngLen

'text of line saved to bytBuffer
lngRet = SendMessage(hWnd, EM_GETLINE, lngLineNumber, bytBuffer(0))

If lngRet Then
strAns = strAns & Left$(StrConv(bytBuffer, vbUnicode), lngLen)
End If
Next

GetTextBoxLine = strAns
End Function

You can call it by GetTextBoxLine([hWnd of Control])

Jay Taplin MCP
"Apach" <ne**@aha.com> wrote in message news:dq**********@bagan.srce.hr...

Hellou!

Please can anybody tell me how to Get text from edit box in some window
(etc. notepad) if i have HWND of this edit box.

I try by using GetWindowText API butt this API return text only if this
text is caption of some window in title bar.

Thanks!

Why the painful way? Just sendmessage with WM_GETTEXT and grab it all into a
buffer in one go.

--

Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/

Please reply to the newsgroups so all can participate.


"Jay Taplin" <jt*****@integraware.com> wrote in message
news:zzVyf.6001$2x4.3941@trndny05...
: Here is a routine to do it. It is a modified version of what can be found
: at http://www.freevbcode.com/ShowCode.asp?ID=2493
:
: Public Function GetTextBoxLine(hWnd As Long) As String
: 'INPUT: hWnd = Handle to text box
: 'OUTPUT: Text of specified TextBox Control
:
: Dim lngLineCount As Long
: Dim lngLineNumber As Long
: Dim lngRet As Long
: Dim lngLen As Long
: Dim lngFirstCharPos As Long
: Dim bytBuffer() As Byte
: Dim strAns As String
:
: 'get number of lines
: lngLineCount = SendMessage(hWnd, EM_GETLINECOUNT, 0, 0&)
:
: For lngLineNumber = 0 To lngLineCount - 1
: 'first character position of the line
: lngFirstCharPos = SendMessage(hWnd, EM_LINEINDEX, lngLineNumber,
0&)
:
: 'length of line
: lngLen = SendMessage(hWnd, EM_LINELENGTH, lngFirstCharPos, 0&)
:
: ReDim bytBuffer(lngLen) As Byte
:
: bytBuffer(0) = lngLen
:
: 'text of line saved to bytBuffer
: lngRet = SendMessage(hWnd, EM_GETLINE, lngLineNumber, bytBuffer(0))
:
: If lngRet Then
: strAns = strAns & Left$(StrConv(bytBuffer, vbUnicode), lngLen)
: End If
: Next
:
: GetTextBoxLine = strAns
: End Function
:
: You can call it by GetTextBoxLine([hWnd of Control])
:
: Jay Taplin MCP
: "Apach" <ne**@aha.com> wrote in message news:dq**********@bagan.srce.hr...
: > Hellou!
: >
: > Please can anybody tell me how to Get text from edit box in some window
: > (etc. notepad) if i have HWND of this edit box.
: >
: > I try by using GetWindowText API butt this API return text only if this
: > text is caption of some window in title bar.
: >
: > Thanks!
: >
:
:

Nice. I searched and searched for that... I know I used it a long time ago,
and couldn't find it! Like I said to someone else in a post the other day -
"Randy is the man". :-)

Thanks,
Jay

"Randy Birch" <rg************@mvps.org> wrote in message
news:43*********************@news.astraweb.com...

Why the painful way? Just sendmessage with WM_GETTEXT and grab it all into
a
buffer in one go.

--

Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/

Please reply to the newsgroups so all can participate.


"Jay Taplin" <jt*****@integraware.com> wrote in message
news:zzVyf.6001$2x4.3941@trndny05...
: Here is a routine to do it. It is a modified version of what can be
found
: at http://www.freevbcode.com/ShowCode.asp?ID=2493
:
: Public Function GetTextBoxLine(hWnd As Long) As String
: 'INPUT: hWnd = Handle to text box
: 'OUTPUT: Text of specified TextBox Control
:
: Dim lngLineCount As Long
: Dim lngLineNumber As Long
: Dim lngRet As Long
: Dim lngLen As Long
: Dim lngFirstCharPos As Long
: Dim bytBuffer() As Byte
: Dim strAns As String
:
: 'get number of lines
: lngLineCount = SendMessage(hWnd, EM_GETLINECOUNT, 0, 0&)
:
: For lngLineNumber = 0 To lngLineCount - 1
: 'first character position of the line
: lngFirstCharPos = SendMessage(hWnd, EM_LINEINDEX, lngLineNumber,
0&)
:
: 'length of line
: lngLen = SendMessage(hWnd, EM_LINELENGTH, lngFirstCharPos, 0&)
:
: ReDim bytBuffer(lngLen) As Byte
:
: bytBuffer(0) = lngLen
:
: 'text of line saved to bytBuffer
: lngRet = SendMessage(hWnd, EM_GETLINE, lngLineNumber,
bytBuffer(0))
:
: If lngRet Then
: strAns = strAns & Left$(StrConv(bytBuffer, vbUnicode),
lngLen)
: End If
: Next
:
: GetTextBoxLine = strAns
: End Function
:
: You can call it by GetTextBoxLine([hWnd of Control])
:
: Jay Taplin MCP
: "Apach" <ne**@aha.com> wrote in message
news:dq**********@bagan.srce.hr...
: > Hellou!
: >
: > Please can anybody tell me how to Get text from edit box in some
window
: > (etc. notepad) if i have HWND of this edit box.
: >
: > I try by using GetWindowText API butt this API return text only if
this
: > text is caption of some window in title bar.
: >
: > Thanks!
: >
:
:

I knew I had done this before. Thanks to Randy Birch's post below, he
reminded me that there was a much easier way. I found my code, so here it
is:

Public Function GetText(hwnd As Long) As String
Dim strTemp As String
Dim lngLength As Long

lngLength = SendMessage(hwnd, WM_GETTEXTLENGTH, ByVal 0, ByVal 0)

strTemp = Space(lngLength)

SendMessage hwnd, WM_GETTEXT, ByVal lngLength + 1, ByVal strTemp

GetText = strTemp
End Function

"Apach" <ne**@aha.com> wrote in message news:dq**********@bagan.srce.hr...

Hellou!

Please can anybody tell me how to Get text from edit box in some window
(etc. notepad) if i have HWND of this edit box.

I try by using GetWindowText API butt this API return text only if this
text is caption of some window in title bar.

Thanks!

And you'll probably want the API declaration and constants (sorry, running
on too little sleep right now).

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE

Jay Taplin MCP

Just a FYI, the byval on the wparam members is unnecessary as the declare
defines wparam byval. And I'd wrap the lngLength= code in an If test, as
Space$() will fail if lngLength=0 (i.e. due to an invalid hwnd or a handle
that doesn't support the WM_* messages sent).

--

Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/

Please reply to the newsgroups so all can participate.


"Jay Taplin" <jt*****@integraware.com> wrote in message
news:3Y********************@adelphia.com...
:I knew I had done this before. Thanks to Randy Birch's post below, he
: reminded me that there was a much easier way. I found my code, so here it
: is:
:
: Public Function GetText(hwnd As Long) As String
: Dim strTemp As String
: Dim lngLength As Long
:
: lngLength = SendMessage(hwnd, WM_GETTEXTLENGTH, ByVal 0, ByVal 0)
:
: strTemp = Space(lngLength)
:
: SendMessage hwnd, WM_GETTEXT, ByVal lngLength + 1, ByVal strTemp
:
: GetText = strTemp
: End Function
:
: "Apach" <ne**@aha.com> wrote in message news:dq**********@bagan.srce.hr...
: > Hellou!
: >
: > Please can anybody tell me how to Get text from edit box in some window
: > (etc. notepad) if i have HWND of this edit box.
: >
: > I try by using GetWindowText API butt this API return text only if this
: > text is caption of some window in title bar.
: >
: > Thanks!
: >
:
:

Hi
I always keep an eye on this group as an occasional user of VB6 I've learnt
a lot from other peoples problems.
This one is again something new I'd like to try - how does one find out the
hWnd of a window?

TIA
--
Peter
To err is human but it takes a computer to really mess things up!

"Apach" <ne**@aha.com> wrote in message news:dq**********@bagan.srce.hr...

Hellou!

Please can anybody tell me how to Get text from edit box in some window
(etc. notepad) if i have HWND of this edit box.

I try by using GetWindowText API butt this API return text only if this
text is caption of some window in title bar.

Thanks!

If you know the class name and the current title of the window, you can use
FindWindow. If you know the window is the currently active (foreground)
window, you can use GetForegroundWindow. If you only know part of the title
name, you can use a "FindWindowLike" routine
(http://vbnet.mvps.org/code/system/fi...likesimple.htm (simple) /
http://vbnet.mvps.org/code/system/winclasstitle.htm (detailed)). If you
don't know anything about the window you can enumerate them all with
EnumWindows (http://vbnet.mvps.org/code/enums/enumwindows.htm) and
EnumChildWindows (http://vbnet.mvps.org/code/enums/enumwindowsdemo.htm).

--

Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/

Please reply to the newsgroups so all can participate.


"Peter" <ga*****@SPAMblueyonder.co.uk> wrote in message
news:_l*******************@fe1.news.blueyonder.co. uk...
: Hi
: I always keep an eye on this group as an occasional user of VB6 I've
learnt
: a lot from other peoples problems.
: This one is again something new I'd like to try - how does one find out
the
: hWnd of a window?
:
: TIA
: --
: Peter
: To err is human but it takes a computer to really mess things up!
:
: "Apach" <ne**@aha.com> wrote in message news:dq**********@bagan.srce.hr...
: > Hellou!
: >
: > Please can anybody tell me how to Get text from edit box in some window
: > (etc. notepad) if i have HWND of this edit box.
: >
: > I try by using GetWindowText API butt this API return text only if this
: > text is caption of some window in title bar.
: >
: > Thanks!
: >
:
: