コード: 全て選択
Function Edit_AddText(ByVal hWnd As HWND,ByVal lpString As LPSTR) As BOOL
SendMessage(hWnd,EM_SETSEL,GetWindowTextLength(hWnd),-1)
Edit_AddText=SendMessage(hWnd,EM_REPLACESEL,FALSE,lpString) As BOOL
End Functionコード: 全て選択
Function Edit_AddText(ByVal hWnd As HWND,ByVal lpString As LPSTR,ByVal bUndo As BOOL) As BOOL
SendMessage(hWnd,EM_SETSEL,GetWindowTextLength(hWnd),-1)
Edit_AddText=SendMessage(hWnd,EM_REPLACESEL,bUndo,lpString As LPARAM) As BOOL
End Functionコード: 全て選択
Sub AddStr(hWnd As HANDLE,Str$ As String)
Dim A$ As String
A$=ZeroString(GetWindowTextLength(hWnd))
GetWindowText(hWnd,A$,GetWindowTextLength(hWnd)+1)
A$=A$+Str$
SetWindowText(hWnd,A$)
End Sub