|
<-- Capítulo I |
Regresar a la página principal |
Capítulo III --> |
|
Capítulo II |
|||
NUESTRO PRIMER CÓDIGO Y SENDMESSAGE |
|||
 |
|||
|
Bueno 3 paginas de habladuría y de seguro están ansiosos de poner sus manos en el teclado y escribir código, antes que nada voy a disculparme por que les dije que los códigos serian en VB (Visual Basic), pero nuestro primer código es en VC++. Este es el único se los prometo, todos los demás serán en VB. Algunos de ustedes se asustaran ya que la palabra C y C++ asustan a muchos programadores, pero no tienen que conocer de ello, ya que lo que vamos analizar es el código y no la estructura del lenguaje. Primeramente entren en VB y como VB es mágico les coloca un formulario listo para programar, si le dan F5 o play, arranca el formulario y LISTO!!, su primer programa en Windows sin haber programado nada. Pero no tienen curiosidad de saber que hay detrás de ese formulario, no quieren saber como se origina, que hay detrás de “cámara”. Pues aquí les escribo lo que hay detrás de cámara. Pasos para hacer nuestro programa:
Ver Código Luego en el menú seleccionan “Build” y le dan clic a la opción ”Build archivo.exe” o sencillamente le dan clic a un signo de exclamación rojo que aparece en la barra de herramienta. Si todo funciona a la perfección verán un simple formulario parecido al de VB pero con un fondo blanco. Señores, les presento con este código la forma mas “simple” o la forma mas primitiva de crear un formulario, lenguajes como VC++ (con las librerías MFC), Visual Foxpro, VJ++, y VB, hacen esto detrás de “vestidores”, este el código para crear un formulario simple en Windows. ¿Por que les presento este código?, por que con este código les explicare cierto protocolo que sigue Windows para la iniciación de un programa. Olvídense que te escrito en lenguaje C nos centraremos en su estructura. Empezamos con: #include "windows.h" Esta instrucción abre el archivo el cual contiene todas las referencias a las funciones API o bueno no todas pero las mayoría, aquí se encuentran las funciones API básicas y la mayoría de los mensajes. Después toca explicar esto: int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {
} Para los conocedores de C, C++ o Java, saben que existe una función de arranque que se llama main, la cual es la primera función que arranca cuando se inicia el programa, bueno en Windows su equivalente es WinMain. Esta función le pasa a la aplicación 4 cosas, la primera hInstance es un numero que Windows le da a tu aplicación, ese numero lo usamos mas adelante, la segunda hPrevInstance, nos dice si hay otra instancia abierta de nuestra aplicación, esto es por si ejecutamos la misma aplicación 2 veces, o 3, etc. LpCmdLine son los parámetros que le pasamos a nuestra aplicación cuando arranca, se recuerdan de DOS cuando hacíamos esto: Programa .exe /c /d /e, bueno este parámetro contienes las letras c,d,e. Y por ultimo tenemos nCmdShow que es el como se va abrir nuestra aplicación si maximizada, minimizada o normal. Parecido al parámetro “Windows State” de VB. Lo primero que hacemos es iniciar la aplicación. if (!IniciaAplicacion(hInstance))
Funcion: BOOL IniciaAplicacion(HANDLE hInstance) { } aquí creamos un objeto WNDCLASS este objeto se utiliza para configurar la apariencia de nuestra ventana futura que todavía no ha sido creada. wc.style = CS_HREDRAW | CS_VREDRAW ; aquí lo que estamos configurando es que cuando la ventana se redimensione tanto vertical como horizontal, se repinte de nuevo. wc.lpfnWndProc = GestorMensajes; aquí estamos configurando nuestro “oido”, es decir, colocamos el nombre de la función encargada de recibir todos los mensajes que se le envíen a nuestra ventana. wc.cbClsExtra = 0; wc.cbWndExtra = 0; Parámetros no importantes. wc.hInstance = hInstance; Aquí colocamos el numero que nos dio Windows. Cuando se inicia la aplicación. OJO! Este no es todavía el HWND. wc.hIcon = LoadIcon(NULL, IDI_APPLICATION); Aquí colocamos el icono que queremos, por defecto elegimos uno del sistema. wc.hCursor = LoadCursor(NULL, IDC_ARROW); Aquí colocamos el tipo de puntero que queremos para nuestra aplicación. wc.hbrBackground = GetStockObject(WHITE_BRUSH); Asignamos el color de fondo. wc.lpszMenuName = NULL; Indicamos si tiene menú o no, en caso de haber menú se le coloca el nombre del recurso.
wc.lpszClassName = "APP"; Indicamos el nombre de la clase, esto de la clase lo veremos mejor cuando veamos una API relacionada con ella. return(RegisterClass(&wc)); Ya con los parámetros configurados le pedimos a Windows con esta función API RegisterClass, que registre nuestra configuración y si es valida retorna un TRUE y si es FALSE pues implica que nos equivocamos en los parámetros o cometimos algún error. Después sigue la siguiente línea. if (!IniciaInstancia(hInstance,nCmdShow))
Con nuestra instancia ya registrada, procedemos a crear físicamente nuestra ventana. BOOL IniciaInstancia(HANDLE hInstance, int nCmdShow) {
} Aquí es donde realmente creamos ya nuestra ventana físicamente, para ello usamos la API CreateWindow. Bueno creo que el nombre de la función API representa de manera obvia lo que hace. hWnd = CreateWindow( Y esta función es la que nos regresa nuestro HWND correspondiente. Luego si el HWND es valido. Procedemos a Mostrar la ventana ShowWindow(hWnd, nCmdShow); Noten que ya a partir de este momento usamos nuestro HWND, y le indicamos como se mostrara nuestra ventana. Y luego le decimos que se pinte con: UpdateWindow(hWnd); Y listo ya tenemos nuestra primera ventana hecha a “mano”. Quienes hayan visto sistema operativo en la universidad aquí esta el bucle de mensajes , el cual se encarga de escuchar los mensajes que recibe la ventana, toda ventana internamente tiene esto o algo parecido, lo que sucede es que en los otros lenguajes no se ve. while (GetMessage(&Mensaje,NULL,NULL,NULL)){ } LRESULT CALLBACK GestorMensajes(HANDLE hWnd, UINT mensaje, WPARAM wParam, LPARAM lParam) {
}
Esta ultima función es la encargada de escuchar, ella es nuestro oido, ella recibirá TODOS LOS MENSAJES que se generen en la ventana y luego quedara en nosotros la misión de codificar cada mensaje si fuera necesario. Se recuerdan de la estructura: Componente que recibe el mensaje, Tipo de mensaje, mensaje1, mensaje_opcional Esta estructura se convierte en esto: HANDLE hWnd, UINT mensaje, WPARAM wParam, LPARAM lParam Ahora algunos de ustedes después de esto, pueden que no hayan entendido, y yo les digo ¡No importa!, ya que esto no lo vamos a usar, solo se los mostré como cultura general para que vean lo que hay detrás de esos formularios ya creados por diferentes lenguajes, y vean que todo el formulario se crea con funciones API. Lo que quiero que vean es que TODO gira alrededor de las API de Windows, no puedes hacer una aplicación para Windows sin usarlas. En este momento ustedes dicen: ¡ESO ES MENTIRA!, yo hice una aplicación en VB y no use API, OK! Tienes razón pero internamente ese botón que usaste, ese listbox y el propio formulario internamente están usando las API de Windows para su funcionamiento. Lo que sucede es que programar a este nivel es demasiado complicado!, inclusive si tu me preguntaras que porcentaje del 1 al 100% consideras tus conocimientos en API, yo te diría en un 5 al 7%, ya que esto es extremadamente grande!!!. Lo que hacen los programadores y las empresas es crear controles y librerías que esconden la parte fea del asunto, poniéndolo todo bonito para que sea fácil para el programador manipularlas y así diseñar los software de manera rápida y efectiva. ¿CÓMO USAR API’S WIN32 EN VB?. Para usar las API Win32 en VB hay que hacer ciertas cositas, si vas a declarar las API’S en un modulo tiene que ser de esta manera: Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Primero se coloca Declare Function, luego el nombre de la función API, después lib y entre comillas se coloca el archivo .dll que contiene la función, y luego dependiendo del tipo de función se le coloca sus respectivos parámetros. Cada función API se encuentra en la ayuda de Microsoft en www.msdn.microsoft.com o en la ayuda MSDN del visual studio. En caso de usar la API en un formulario se le coloca la palabra PRIVATE antes de DECLARE. NUESTRA PRIMERA FUNCIÓN API SENDMESSAGE En esta sección vamos a ver nuestra primera API, que es el SendMessage, como todos sabemos la acción que usa un OBJETO para comunicarse con otro OBJETO es el MENSAJE, ese mensaje lleva una información que se procesará en el OBJETO receptor. El API se compone de esta manera: SendMessage (hwnd,wMsg,wParam, lParam) Estudiemos su estructura: hwnd = es ese número que le asigna WINDOW a ese objeto o ventana receptora. wMsg = es el Mensaje. wParam = es la información que se le envía al hwnd. lParam = es otra información que también se le envía al hwnd. En Windows los tipos de mensajes vienen definidos por CONSTANTES. Existen miles de constantes y tipos de mensaje que se pueden enviar a un objeto o hwnd. Ahora hay ciertos mensaje que están definidos para cierto tipo de ventana. Por ejemplo hay mensajes solo para TEXTBOX, otras solo para LISTBOX, etc. Veamos nuestro primer programa en Visual Basic. Para este ejemplo es necesario tener un botón en un formulario. A continuación copien el siguiente código: 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 Const WM_SETTEXT = &HC Private Sub Command1_Click()
End Sub Private Sub Form_Load() End Sub ANALISIS 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 Van a notar en los parámetros que se le pasan a la función, que tienen la palabra ByVal, esto significa que los parámetros se pasan por valor y no por referencia. He de suponer que ustedes a este nivel tienen claro esos términos. El “lParam as Any” el Any es que acepta cualquier objeto en este caso una cadena “GRACIAS”. Con este código verán que cuando le dan click al botón, cambia y dice “GRACIAS”, ahora que sucedió: Resultado = SendMessage(Command1.hwnd, WM_SETTEXT, 0, ByVal "GRACIAS") RESULTADO = Todos los mensaje o en su mayoría retornan VALORES, siempre todas las funciones API regresan un número de tipo LONG. En este caso no interesa el valor a retornar pero más adelante veremos que sí. HWND = COMMAND1.hwnd Este es nuestro objeto receptor, es decir el objeto a quién le estamos enviando el mensaje. MENSAJE = WM_SETTEXT Mensaje que declaramos como constante en el área de “DECLARACIONES”, normalmente estos son valores hexadecimales. Wparam = 0 En esta caso aquí no va el mensaje. LParam = “ ByVal “GRACIAS” El ByVal es muy importante ya que obliga a que se pase el valor por copia y no por referencia. Y este es el mensaje que le pasamos. Si ustedes cambian el Command1.hwnd y colocan Me.hwnd y lo corren cuando aprieten el botón van a ver el GRACIAS, no en el botón sino en el CAPTION del formulario, esto es por que el mensaje WM_SETTEXT sirve para cualquier hwnd. Ahora como saber que mensaje sirve para tal objeto. Bueno aquí te muestro una lista de algunos de ellos: BM_ CB_ CDM_ DRV_ EM_ LB_ WM_ Etc. Cuando ustedes vean un mensaje o constante que empiece por BM_ significa que es un mensaje para un botón si lo usan en un Combo Box no funcionará. Es por esa razón que WM_SETTTEXT funcionó tanto para el botón como para el formulario. Tanto para los mensajes como para la funciones tienen que tomar en cuenta un detalle, vean que el mensaje es WM_SETTEXT el SET se usa cuando asignamos y el GET para tomar un valor, es decir, cuando vean una función: SETXNOMBRE = significa que vamos asignar algo. GETXNOMBRE = significa que vamos a obtener algo. En este caso el WM_ = mensaje que identifica que es un hwnd o ventana, SET = asignamos, TEXT = texto. En este caso el TEXTO de la VENTANA botón es lo que llamamos en VB la propiedad CAPTION, al igual con el formulario. Ahora vamos a probar algo interesante pero con GET Declara este mensaje Const WM_GETTEXT = &HD Luego en el evento click del botón cambiamos el código que esta por el siguiente: Private Sub Command1_Click()
End Sub Arranca y presiona el botón verás que no cambia nada, ni se ve nada, tu dirás bueno el Texto del hwnd debe de estar en la variable “Resultado”, bueno vamos a probar pon debajo de: Resultado = SendMessage(Command1.hwnd, WM_GETTEXT, 0, 0) Msgbox Resultado Cuando lo corras verás que te muestra 0, las funciones API de WINDOW retornan nada mas resultados de tipo LONG, no retornan ni STRING, ni FLOAT, etc. Ustedes dirán ¿bueno y como hacemos?. Cuando un API retorna una información ya sea de texto o una estructura (ya veremos eso mas adelante) se usan de esta manera: Cambia el código en el evento Click del botón por este: Private Sub Command1_Click() Dim Resultado As Long
Dim Texto As String
Texto = Space$(20)
Resultado = SendMessage(Command1.hwnd, WM_GETTEXT, 15, ByVal Texto) MsgBox Texto
End Sub Dim Texto as String Verás que declaramos una variable de tipo String Texto = Space$(20) Le asignamos 20 espacios en blancos a la variable, cuando quieres llenar una variable de tipo STRING sea cual sea la función API, tienes que asignarle el espacio en memoria, eso lo hacemos asignándole 20 espacios en blanco, pero el número puede variar. SendMessage(Command1.hwnd, WM_GETTEXT, 15, ByVal Texto) En esta función lo que cambia es el mensaje y los parámetros, el mensaje cambia a GETTTEXT es decir, “tomar el texto”, wParam = 15 esto significa que le dices a WINDOW que te regrese 15 caracteres nada más, si la cadena a regresar es mayor a 15 te le regresa incompleta. lParam = ByVal Texto; “Texto” es la variable donde se almacenará el Texto que Windows regrese. Si tu declaras por ejemplo: Texto = Space$(2) Cuando Windows intente llenar la variable no lo va llenar con el texto completo y te puede aparecer caracteres extraños. Esto es por que cuando quiere grabar el Texto del hwnd en la memoria se encuentra con una variable que fue inicializada con dos caracteres. Normalmente se declaran las variables con 255, ejemplo, Texto = Space$(255), luego si quieres eliminar los espacios en blancos usamos la función TRIM de VB para ello. El SendMessage es una de las API mas usadas en la programación bajo WINDOW, bueno es obvio que nosotros nunca vamos hacer lo que hicimos arriba para asignarles un Texto a una hwnd (Verán que uso la palabra hwnd y no ventana esto es por que no quiero que se confundan de que ventana es el Formulario, necesito que se acostumbre a que un hwnd sea cual fuera, es una ventana). Esto es por que los controles de VB resumen ese paso en sus propiedades, es decir, cuando cambias el texto a un hwnd (botón) lo que haces es usar su propiedad CAPTION. Obviamente ya ustedes se imaginarán lo que hace CAPTION en su interior. La finalidad de explicar todo lo que dije arriba, fue para que vean como se maneja un API, ya que las API’S en su manejo son similares dependiendo de su tipo. A partir de ahora vamos a empezar a ver API’S un poco más complejas, ya que entenderlas implica entender a WINDOW y eso es un poco complicado. VB es un lenguaje muy sencillo y tal vez necesiten de las API’S para problemas extremos, pero les aseguro que si quieren aprender lenguajes como VC++ necesitarán del mas mínimo conocimiento de API’S para entenderlo. PostMessage es exactamente igual a SendMessage, la diferencia radica en que cuando mandan mensaje con SendMessage el código que esta inferior a él no se ejecuta hasta que termine, por ejemplo: Private Sub Command1_Click()
End Sub Si usamos PostMessage: Private Sub Command1_Click()
End Sub
El uso de PostMessage no es muy usual, inclusive todavía no he visto un ejemplo práctico con esta función. Pero ya saben que existe. NOTA: Ustedes se preguntaran, ¿COMO SABER CUANDO USAR WPARAM Y LPARAM? o ¿COMO SE QUE VALOR LES PASO?, para ello no existe ninguna regla, cuando ustedes quieran usar un mensaje con SendMessage ustedes tienen que buscar en la ayuda de MSDN que parámetros se le envían a ese mensaje. En esta sección vamos a ver algunos mensajes útiles para las ventanas o hwnd usando el SendMessage, es importante mencionar, que no voy a explicar todos los mensajes para cada control, sino los que yo considero más importantes, recuerden que esta manual no esta orientado, para ser un diccionario de API sino explicar como funcionan mediante ejemplos. EDIT CONTROL O TEXTBOX - Mensaje : EM_GETLINE Valor : Const EM_GETLINE = &HC4 Mensaje que funciona en un Textbox Multiline, este permite tomar el Texto que se encuentra en una línea específica. Dim Respuesta As Long Dim Texto As String
Texto = Space$(10)
Respuesta = SendMessage(Text1.hwnd, EM_GETLINE, 1, ByVal Texto) MsgBox Texto Lo único que hay que explicar es el valor que toma wParam que es 1, este es el número de línea de la cual queremos ver el texto. Si ponemos 0 seria la primera línea, 1 la segunda línea, así sucesivamente. - Mensaje: EM_GETLINECOUNT Valor: Const EM_GETLINECOUNT = &HBA Mensaje que sirve para retornar la cantidad de líneas que posee un Textbox configurado de manera multiline. Dim Respuesta As Long
Respuesta = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0) MsgBox Respuesta Si vemos aquí, si nos interesa el valor de retorno del Mensaje, verán que no se le pasa ningún parámetro o información, con el tipo de Mensaje basta para que él sepa a que nos referimos. El número de líneas se almacena en la variable Respuesta. - Mensaje: EM_GETMODIFY Valor: Const EM_GETMODIFY = &HB8 Esta mensaje sirve para saber si un TEXTBOX, multiline o simple, se ha modificado. Dim Respuesta As Long
Respuesta = SendMessage(Text1.hwnd, EM_GETMODIFY, 0, 0) MsgBox Respuesta Los valores que retornan es 0 si no se ha modificado y 1 si fue modificado. - Mensaje : EM_LINELENGTH Valor: Const EM_LINELENGTH = &HC1 Este mensaje sirve para tomar la longitud de una línea de un TEXTBOX sea multiline o no. Dim Respuesta As Long
Respuesta = SendMessage(Text1.hwnd, EM_LINELENGTH, 1, 0) MsgBox Respuesta Aquí el mensaje retorna la longitud sería como el LEN de VB. wParam es el número de la línea de la cual queremos tomar su longitud. Esto si el Textbox es Multiline, en caso de no serlo no importa el número que pongas en wParam, siempre te retornará la longitud de la única línea que tiene. - Mensaje : EM_SETSEL Valor: Const EM_SETSEL = &HB1 Esta mensaje sirve para seleccionar una porción de la cadena que esta contenida en el TEXTBOX. SendMessage Text1.hwnd, EM_SETSEL, 5, 1 MsgBox Text1.SelText Aquí wParam recibe la posición donde se inicia la selección, el texto seleccionado se encontrara en la Propiedad .SelText del Textbox. Noten que esta función la invocamos diferente. Cuando el valor que retorna una función no interesa, podemos usar la función como que si llamáramos a un método, Por ejemplo:
Respuesta = SendMessage(Text1.hwnd, EM_LINELENGTH, 1, 0) En este caso nos interesa el resultado de la función por que la variable “Respuesta” toma el valor de la longitud de la cadena. Respuesta = SendMessage(Text1.hwnd, EM_SETSEL, 5, 1) Aquí “respuesta” no nos sirve para nada, por consiguiente, cuando el valor de la función sea cual sea el API no nos interese, podemos usarla de esta manera: SendMessage Text1.hwnd, EM_SETSEL, 5, 1 Siendo completamente válido esta instrucción. Pero tienen que tomar en cuenta que algunas veces lo que retorna una función no lo usamos con un propósito, pero algunas veces el resultado que devuelve una función puede estar diciendo si la operación se ejecuto o no se ejecuto con éxito. Les repito eso dependerá del mensaje que ustedes utilicen. COMBO BOX CONTROL - Mensaje: CB_DIR
Valor : Const CB_DIR = &H145 Este mensaje, el cual lo veo muy importante permite llenar un COMBO BOX con información del sistema. En este caso a wParam le pasaremos unos parámetros ya predefinidos por WINDOW. Parámetros que se pasan por Wparam: Const DDL_ARCHIVE = &H20 Const DDL_DIRECTORY = &H10 Const DDL_DRIVES = &H4000 Const DDL_EXCLUSIVE = &H8000 Const DDL_HIDDEN = &H2 Const DDL_READONLY = &H1 Const DDL_READWRITE = &H0 Const DDL_SYSTEM = &H4 Ejemplo: Dim path As String path = App.path SendMessage Combo1.hwnd, CB_DIR, DDL_DRIVES, ByVal path Se darán cuenta que al ejecutarlo, todas las letras y unidades de la computadora se almacenan en el combo, verán que en wParam toma el parámetro que declaramos como constante DDL_DRIVES, los parámetros también pueden ser constantes ya establecidas o que poseen un valor. En lParam verán que es la ruta de nuestro programa, que es lo que exige el mensaje como segundo parámetro. Para saber que se les pasa a los otros parámetros que van en wParam, les recomiendo que busquen la ayuda en Línea de MSDN, ya que la ayuda normal, no muestra que parámetros son. - Mensaje : CB_FINDSTRING Valor: Const CB_FINDSTRING = &H14C Este mensaje muy importante en el momento de hacer búsqueda en un COMBO ya que permite localizar cierto registro en el COMBO. En este mensaje wParam es el índice en donde empezamos a buscar y lParam es la cadena que buscamos.
Dim Texto As String Dim Respuesta As Long
Texto = "Prueba"
Respuesta = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal Texto) MsgBox Respuesta
Podremos ver que wParam le coloque el valor de –1, eso es para que busque en toda la lista del combo, si pongo por ejemplo 2 en wParam, empezará a buscar desde el registro 3, recuerden que el combo empieza en el índice 0. Si la función encuentra la cadena regresa el índice en donde se encuentra en el combo, en caso de que no exista regresa –1. En esta función la búsqueda no es exacta, es decir: “PRUEBA” Imagínense que tienen esta cadena en el Combo, si ustedes asignan la variable “Texto” de esta manera: Texto = “Pru” Cuando realice la búsqueda para el tipo de mensaje “PRUEBA” es igual a “PRU”, esto es por que la cadena en el combo empieza por “PRU”. Para hacer una búsqueda exacta vean el mensaje a continuación. - Mensaje : CB_FINDSTRINGEXACT Valor : Const CB_FINDSTRINGEXACT = &H158 Esta mensaje es igual al anterior con la diferencia que busca la cadena exacta en la lista del combo. Dim Texto As String Dim Respuesta As Long
Texto = "Prueba"
Respuesta = SendMessage(Combo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal Texto) MsgBox Respuesta Si seguimos el ejemplo de “PRU”, para este mensaje “PRU” no es igual a “PRUEBA”, ya que esta función busca la cadena que sea EXACTAMENTE igual. Estas dos funciones son muy importantes en el momento de realizar búsquedas en COMBO que contengan mucha información, es común de los programadores en VB hacer: For i = 0 to Combo1.listcount –1 Código para buscar Next Usando el SendMessage les aseguro que van a tener resultados increíblemente rápidos.
- Mensaje : CB_SHOWDROPDOWN Valor : Const CB_SHOWDROPDOWN = &H14F
Esta función se utiliza para mostrar la lista desplegable del combo box. SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0 En este caso el valor de wParam toma el valor TRUE para mostrar la lista y FALSE para esconderla. |
|||
|
<-- Capítulo I |
Regresar arriba |
Regresar a la página principal |
Capítulo III --> |
1. Abrir el programa VC++Desarrollado por Eduardo Roa. Copyright 2002-2003 Todos los derechos reservados