Visual basic 6.0
- 1. Creación de Barra de Menú y resguardo al ingreso de un Menú VISUAL BASIC 6.0 03/06/2015MIGUEL ANGEL SIORDIA URZUA 1
- 2. CREANDO MENÚS CON VISUAL BASIC 6.0 • Para crear un menú, presiono el botón del editor de menús. Abajo viene una imagen de la barra de menús de Visual Basic 6.0. 03/06/2015MIGUEL ANGEL SIORDIA URZUA 2
- 3. CREANDO MENÚS CON VISUAL BASIC 6.0 • Al presionar el botón del editor de menú, sale la siguiente ventana: 03/06/2015MIGUEL ANGEL SIORDIA URZUA 3
- 4. CREANDO MENÚS CON VISUAL BASIC 6.0 • Para empezar, el primer elemento en la barra de menú de esta aplicación va a tener un elemento llamado "Mensajes". Para hacer esto, lleno la ventana como indica la figura: • Una nota cultural: pongo el símbolo & adelante de la letra M de Mensajes para que aparezca subrayado y responda cuando el usuario presione ALT+M. Si cierro esta ventana, mi forma Form1 se ve así: 03/06/2015MIGUEL ANGEL SIORDIA URZUA 4
- 5. 03/06/2015MIGUEL ANGEL SIORDIA URZUA 5
- 6. CREANDO MENÚS CON VISUAL BASIC 6.0 • Pero que pasa si quiero poner un menú adentro de mi menú "Mensajes". Vuelvo a abrir el editor de menús, aprieto el botón Next para agregar otro elemento abajo del que ya existe. Lo dejo con estos datos: • Para indentar la opción Hola, presiono el botoncito que indenta (flecha a la derecha). Después que tengo todo hecho y cierro el editor de menú, se ve mi forma así. 03/06/2015MIGUEL ANGEL SIORDIA URZUA 6
- 7. 03/06/2015MIGUEL ANGEL SIORDIA URZUA 7
- 8. • Al darle click sobre la palabra "Hola", me aparece la ventana de código listo para programar lo que sucederá cuando nuestro usuario valiente se atreva a seleccionar ese botón: • Voy a teclear código super sencillo que solo haga que aparezca una cajita que diga Hola, se ve así: 03/06/2015MIGUEL ANGEL SIORDIA URZUA 8
- 9. COMO PROTEGER EL INGRESO A UN PROYECTO • Solo basta con crear un formulario y poner unos elementos muy simples como se muestra a continuación: 03/06/2015MIGUEL ANGEL SIORDIA URZUA 9
- 10. COMO PROTEGER EL INGRESO A UN PROYECTO • En el botón de comando se ingresa el siguiente código: Private Sub Command1_Click() If Text1.Text = "miguel" Then Load MDIForm1 loginsuccedede = Thue Me.Hide Else MsgBox "Contraseña incorrecta!", , "login" Text1.SetFocus SendKeys "(homa)+(end)" End If MDIForm1.Show Unload Form11 End Sub 03/06/2015MIGUEL ANGEL SIORDIA URZUA 10
- 11. COMO PROTEGER EL INGRESO A UN PROYECTO • Con ese código al iniciar el proyecto en modo ejecución pedirá la contraseña asignada en el código y del mismo modo al ingresar ira al formulario que se le indico en el mismo código 03/06/2015MIGUEL ANGEL SIORDIA URZUA 11