Windows API Guide: CreateRectRgn Function

Platforms

Windows 95: Supported.
Windows 98: Supported.
Windows NT: Requires Windows NT 3.1 or later.
Windows 2000: Supported.
Windows CE: Requires Windows CE 1.0 or later.

Description & Usage

The EM_REPLACESEL message tells an edit control to replace the currently selected text with a different string. If nothing in the edit control is selected, then the text is instead inserted at the position of the caret.

Return Value

This message does not return a meaningful value.

Visual Basic-Specific Issues

None.

Parameters

wParam: Specifies whether the text replacement should be added to the edit control's Undo list, which would allow the user to undo the operation. A nonzero value allows an undo; a value of 0 does not.
lParam: The text to replace the selection with. If nothing in the edit control is selected, this text is inserted at the current position of the caret.

Constant Definitions

Const EM_REPLACESEL = &HC2

Example

' This code is licensed according to the terms and conditions listed here. ' Declarations and such needed for the example: ' (Copy them to the (declarations) section of a module.) Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd _ As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long Public Const EM_REPLACESEL = &HC2 Public Const EM_SETSEL = &HB1 ' Select the first five characters in edit control Text1.  Then replace the newly ' selected text with the words "REPLACEMENT TEXT". Dim retval As Long  ' return value ' First, select the first five characters of Text1. retval = SendMessage(Text1.hWnd, EM_SETSEL, ByVal CLng(0), ByVal CLng(5)) ' Then replace the selection with some other text.  Allow the user to undo it. retval = SendMessage(Text1.hWnd, EM_REPLACESEL, ByVal CLng(1), ByVal "REPLACEMENT TEXT")