3 ejemplos de visual basic

 3 Ejemplos programación de Visual Basic
José Jair Díaz M. XI°
1) Autocompletar con los paths y rutas de Windows
Vista del textBox desplegando las entradas delas rutas

 Controles
Colocar un TextBox llamado Text1 al cual se le pasa el hwnd del textbox en el primer parámetro de la función Api SHAutoComplete, y en el segundo parámetro unas constantes quedefinen el tipo de lista a mostrar.
Código fuente en un Formulario:
Texto plano Imprimir
1. 'constantes para enviarle a la función SHAutoComplete  
2.Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000  
3. Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000  
4. Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000  
5. Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000  
6.Private Const SHACF_DEFAULT = &H0  
7. Private Const SHACF_FILESYSTEM = &H1  
8. Private Const SHACF_URLHISTORY = &H2  
9. Private Const SHACF_URLMRU = &H4  
10. Private Const SHACF_USETAB = &H8  11. Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)  
12.   
13. 'Función Api SHAutoComplete para autocompletar la caché de windows  
14. Private Declare Sub SHAutoComplete _  15.     Lib "shlwapi.dll" ( _  
16.         ByVal hwndEdit As Long, ByVal dwFlags As Long)  
17.   
18. Private Sub Form_Load()  
19. 'Le enviamos el Hwnd del TextBox  
20.SHAutoComplete Text1.hWnd, SHACF_FILESYSTEM  
21.   
22. End Sub  
 2) Ejemplo del método ExecWb para abrir el cuadro de diálogo " Guardar página web "

Código fuente en un formulario:
Texto planoImprimir
1.Option Explicit  
2.   
3. Private Sub Command1_Click()  
4.     'Abrimos el cuadro de diálogo abrir Como para el WebBrowser  
5.    WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, 0, 0  
6. End Sub  
7.   
8. Private Sub Form_Load()  
9.   
10.     Command1.Caption = " Guardar "  
11.   
12.     'Navegamos a una página de ejemplo mediante el método Navigate  
13....