| Pregunta: | 36163 - TOOL BAR PARA INTERNET EXPLORER |
| Autor: | Federico de los Santos |
| Hola, tengo que realizar una barra de herramientas para internet explorer en Visual Basic, que es lenguaje que sé manejar. Los únicos ejemplos que encontré son en VC++ y no entendí mucho de como se hacen. Me gustaría que alguien que si alguien tiene experiencia en eso me comente como pudo realizarla. Aclaro que el sitio de MSDN trae ejemplos sobre Desk Band y Explorer Bar, pero no son lo que yo deseo hacer, que se llama Tool Bar. Muchas páginas/programas la tiene, como Yahoo! y Download Accelerator. Gracias desde ya a todos. | |
| Respuesta: | Camilo Penagos C. |
| Si lo que quieres es crear un toolbar, te va a parecer sencillisimo, sino explica mejor que quieres!!!. Bueno, lo primero que se hace es poner el componente Windows Common Controls 6.0 e insertar el control toolbar y un ImageList, me imagino que ya sabes como incluir imágenes en este control. Pon en 32x32 el tamaño de las imágenes (para que se vean un poco grandes), dale a Custom en las propiedades de ToolBar, en la etiqueta general buscas algo que diga ImageList y cambias el valor por tu lista de imágenes, luego en botones le das agregar botón y en image pones el valor o número de la imágen que quieres en ese botón, asi sigues agregando todos los botones que quieras. Por fín lo que esperaba, el código. Bueno ahora abre el código del control ToolBar, e inserta este código: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 mnusalir_Click End Select End Sub Donde mnusalir es reemplazado por el nombre de la función en el editor de menús o por una función propia y Toolbar1 sería el nombre que le asignaste al componente ToolBar que agrgaste, por ejemplo puedes llamar a la función End, entonces sería: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 End End Select End Sub Yo siempre pongo el prefijo mnu a los nombres de los menús, seguido por la función de este por ej. para la famosa función Abrir... sería: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 mnuabrir_Click End Select End Sub Eso fue todo por si alguna duda escribeme a [email protected] | |