
atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:004c4600", vbNullString)atlcf = FindWindowEx(wtlsplitterwindow, 0&, "atl:004cf600", vbNullString)Dim mywindowclass As Long
Dim wtlsplitterwindow As Long
Dim atlc As Long
Dim atlaxwin As Long
Dim x As Long
Dim richedita As Long
mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:004c4600", vbNullString)
atlaxwin = FindWindowEx(atlc, 0&, "atlaxwin71", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text$)atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:004c4600", vbNullString)




Return to Visual Basic Programming
Users browsing this forum: No registered users and 0 guests