Ejemplos usando el Api de windows para Visual basic

128 - SendMessage - Comandos de edición, copiar, pegar, cortar

Volver al Listado Api - Anterior - Siguiente

Este ejemplo usa el Api SendMessage con las constantes WM_CUT, WM_COPY, WM_PASTE, WM_UNDO, EM_UNDO y EM_CANUNDO para poder utilizar las opciones de edición para pegar texto, los que permiten rehacer, deshacer , copiar etc..

Controles

En el formulario colocar 5 CommandButton en un arreglo de controles como está en la imagen

vista del formulario con los botones para las opciones de edición de texto

Código fuente en el formulario

Option Explicit ' Constantes para SendMessage, copiar, pegar etc... Private Const WM_USER = &H400 Private Const WM_CUT = &H300 Private Const WM_COPY = &H301 Private Const WM_PASTE = &H302 Private Const WM_CLEAR = &H303 Private Const WM_UNDO = &H304 Private Const EM_CANUNDO = &HC6 Private Const EM_UNDO = &HC7 ' Declaración del Api SendMessage 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 Sub Command1_Click(Index As Integer) Select Case Index 'Deshace y reeestablece el texto Case 0: Undo Text1 Case 1: Undo Text1 'Comando Cortar Case 2: Cortar Text1 'Comando copiar Case 3: Copiar Text1 ' Comando pegar Case 4: Pegar Text1 End Select End Sub ' Funciones Function Undo(Un_TextBox As TextBox) As Long Undo = SendMessage(Un_TextBox.hwnd, EM_UNDO, 0&, 0&) End Function Function Cortar(Un_TextBox As TextBox) As Long Cortar = SendMessage(Un_TextBox.hwnd, WM_CUT, 0&, 0&) End Function Function Copiar(Un_TextBox As TextBox) As Long Copiar = SendMessage(Un_TextBox.hwnd, WM_COPY, 0&, 0&) End Function Function Pegar(Un_TextBox As TextBox) As Long Pegar = SendMessage(Un_TextBox.hwnd, WM_PASTE, 0&, 0&) End Function ' Caption de los botones Private Sub Form_Load() Me.Caption = " Ejemplo para implementar los comandos de edición mediante el Api " Command1(0).Caption = " Deshacer " Command1(1).Caption = " Rehacer " Command1(2).Caption = " Cortar " Command1(3).Caption = " Copiar " Command1(4).Caption = " Pegar " End Sub

Enlaces relacionados

Código de un Editor de texto simple

Buscar en Recursos vb