Ejemplos usando el Api de windows para Visual basic

12- Llenar un ComboBox con las unidades del sistema con SendMessage

Ejemplo que utiliza el Api SendMessage para obtener las unidades de la pc.

En ete ejemplo se utiliza el mensaje CB_DIR y el valor o constante DDL_DRIVES. Luego hay que pasarle el Hwnd del combobox en el primer parámetro a SendMessge . Automaticamente al llamar a la función se llenará el combo con las unidades, como muestra este gráfico :

Vista del ejemplo para añadir en un combo las unidades disponibles de la pc mediante el Api

Controles

Agregar un Commandbutton
Un Combobox

Código fuente en un formulario

Option Explicit ' declaraciones '''''''''''''''''''''''''''''''''''''' 'Función 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 'Constantes para enviarle a SendMessage Const DDL_DRIVES = &H4000 Const CB_DIR = &H145 Private Sub Command1_Click() Dim ret As Long 'Le pasamos el Hwnd del control combobox , el mensaje y la constante ret = SendMessage(Combo1.hwnd, CB_DIR, DDL_DRIVES, Null) End Sub Private Sub Form_Load() Command1.Caption = "Cargar unidades" End Sub

Nota: en este enlace hay un ejemplo que muestra como obtener archivos y directorios con SendMessage

Enlaces relacionados

Buscar en Recursos vb