Ejemplos usando el Api de windows para Visual basic

188 - Combobox de solo lectura

Ejemplo que permite aplicarle la propiedad Locked a un control Combo mediante el Api SendMessage

En el siguiente código se le envía como mensaje al api SendMessage la constante EM_SETREADONLY. Este mensaje le cambia la propiedad al control para que el mismo sea de solo lectura y poder usar esta característica en tiempo de ejecución

Pero además se utiliza el api FindWindowEx para poder obtener el Hwnd del " Edit " del comboBox

El valor que habilita o deshabilita dicha propiedad , lo indica el parámetro wParam ( el tercer parámetro de la función api)

Nota: También se puede aplicar a otros controles como los textbox ( útil para modificar controles externos a la aplicación )

Código fuente en un formulario

Option Explicit ' Mensaje para SendMessage para establecer el control como Solo Lectura Private Const EM_SETREADONLY = &HCF ' 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 ' Obtiene el handle o Hwnd del Edit del combobox Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long Private Sub Command1_Click() Static Valor As Boolean ' Deshabilita y habilita el combobox Call Locked_Combo(Combo1, Not Valor) Valor = Not Valor Command1.Caption = " Locked : " & Valor End Sub ' Rutina que establece el Locke del combo _ *********************************************************************** Private Sub Locked_Combo(El_Combo As ComboBox, Bloquear As Boolean) Dim ret As Long Dim Hwnd_Combo As Long ' Obtiene el Hwnd del Edit del combobox Hwnd_Combo = FindWindowEx(El_Combo.hwnd, 0&, vbNullString, vbNullString) ' Le pasa el Hwnd del Edit del combobox y el mensaje EM_SETREADONLY _ para establecerle el Locked, y el valor True o False para habilitar _ o deshabilitarlo ret = SendMessage(Hwnd_Combo, EM_SETREADONLY, _ Bloquear, ByVal 0&) ' Si hay elementos selecciona el primero If El_Combo.ListCount Then El_Combo.ListIndex = 0 End If End Sub Private Sub Form_Load() Combo1.AddItem "Pedro" Combo1.AddItem "Javier" Combo1.AddItem "María" Combo1.AddItem "Juan" Command1.Caption = " Locked false " End Sub

Buscar en Recursos vb