More Related Content
More from Ayhli123 (18)
Proyecto "Papelería"
- 1. PROYECTO: “Papelería” AYHLI MENDO CANDEL ARIO Profa.: Margarita Romero Alvar ado
- 2. Formulario - Inicio Insertamos un Picture Box Copiamos y pegamos el logo dentro del Picture Box. Agregamos 3 Command En Caption: Command1 – PRODUCTOS Command2 – PUBLICIDAD Command3 – SALIR En el command Productos agregamos: Private Sub Command1_Click() Form2.Show End Sub Command Publicidad: Publicidad Private Sub Command2_Click() Form3.Show End Sub Command Salir: Salir Private Sub Command3_Click() End End Sub
- 4. Agregamos 8 Frame Caption Nombre Command1 Plumas cmdplumas Command2 Colores cmdcolores Command3 Libretas cmdlibretas Command4 Mochilas cmdmochilas Command5 Diccionarios cmddiccionarios Command6 Crayolas cmdcrayolas Agregamos 6 Picture y pegamos su imagen correspondiente Caption Nombre Option1 Sueltas Option1 Option2 Paquete de 7 plumas Option2 Option3 Caja de 12 pzas Option3 Option4 Caja de 24 pzas Option4 Option5 C.Grande Option5 Option6 C.Pequeño Option6 Option7 Chenson Option7 Option8 Wilson Option8 Option9 Diccionario Option9 Option10 Bote de Crayolas Option10
- 5. Agregamos 6 TextBox 1 Command CODIGO (command): Private Sub cmdplumas_Click() Private Sub cmdmochilas_Click() Picture1.Visible = True Picture4.Visible = True Frame2.Visible = True Frame6.Visible = True Text1.Visible = True Text4.Visible = True Label1.Visible = True End Sub End Sub Private Sub cmddiccionarios_Click() Picture5.Visible = True Private Sub cmdcolores_Click() Frame7.Visible = True Picture2.Visible = True Text5.Visible = True Frame3.Visible = True End Sub Text2.Visible = True End Sub Private Sub cmdcrayolas_Click() Picture6.Visible = True Frame8.Visible = True Private Sub cmdlibretas_Click() Text6.Visible = True Picture3.Visible = True End Sub Frame4.Visible = True Text3.Visible = True End Sub
- 6. CODIGO (optión): Private Sub Option5_Click() Private Sub Option1_Click() Frame4.Visible = True Frame2.Visible = True Text3 = 8 Text1 = 3 End Sub End Sub Private Sub Option6_ Click() Private Sub Option10_Click() Frame4.Visible = True Frame8.Visible = True Private Sub Option2_Click() Text3 = 7 Text6 = 46 Frame2.Visible = True End Sub End Sub Text1 = 15 End Sub Private Sub Option7_ Click() Frame6.Visible = True CODIGO (COMMAND Private Sub Option3_Click() Text4 = 250 REGRESAR): Frame3.Visible = True End Sub Text2 = 26 Private Sub Private Sub Option8_ Click() End Sub Command1_Click() Frame6.Visible = True Form1.Show unloadme Text4 = 150 End Sub Private Sub Option4_Click() End Sub Frame3.Visible = True Text2 = 54 Private Sub Option9_ Click() Frame7.Visible = True End Sub Text5 = 120 End Sub
- 7. 3er Formulario En la caja de herramientas damos clic derecho- Componentes-Seleccionamos Windows Media Player. Command REPRODUCIR: Private SubCommand1_Click() WMP1.URL = App.Path + "papeleria 56(2).wmv" End Sub Command REGRESAR Private Sub Command2_Click() Form1.Show unloadme End Sub