ºÝºÝߣ

ºÝºÝߣShare a Scribd company logo
1 er form:
Command 1 (productos):
Private Sub Command1_Click()
Form2.Show
End Sub

Command 2(publicidad):
Private Sub Command2_Click()
Form3.Show
End Sub

Command 3(salir):
Private Sub Command3_Click()
End
End Sub
Command 1(cmdplumas)
Private Sub cmddiccionarios_Click()
Picture5.Visible = True
Frame7.Visible = True
Text5.Visible = True
End Sub

command2(cmdcolores)
Private Sub cmdcolores_Click()
Picture2.Visible = True
Frame3.Visible = True
Text2.Visible = True
End Sub

Command 3(cmdlibretas)
Private Sub cmdlibretas_Click()
Picture3.Visible = True
Frame4.Visible = True
Text3.Visible = True
End Sub

Command4(cmdmochilas)
Private Sub cmdmochilas_Click()
Picture4.Visible = True
Frame6.Visible = True
Text4.Visible = True
End Sub
command5(cmddiccionarios)
Private Sub cmddiccionarios_Click()
Picture5.Visible = True
Frame7.Visible = True
Text5.Visible = True
End Sub

Command6
Private Sub Command2_Click()
Picture6.Visible = True
Frame8.Visible = True
Text6.Visible = True
End Sub

Option1(sueltas)
Private Sub Option1_Click()
Frame2.Visible = True
Text1 = 3
End Sub

Option2(paquete de 7 plumas)
Private Sub Option2_Click()
Frame2.Visible = True
Text1 = 15
End Sub

Option3(caja de 12 pzas)
Private Sub Option3_Click()
Frame3.Visible = True
Text2 = 26
End Sub

Option4(caja de 24 pzas)
Private Sub Option4_Click()
Frame3.Visible = True
Text2 = 54
End Sub

Option5(C.Grande)
Private Sub Option5_Click()
Frame4.Visible = True
Text3 = 8
End Sub

Option6(C.Pequeño)
Private Sub Option6_Click()
Frame4.Visible = True
Text3 = 7
End Sub
Option7(Chenson)
Private Sub Option7_Click()
Frame6.Visible = True
Text4 = 250
End Sub

Option8(Wilson)
Private Sub Option8_Click()
Frame6.Visible = True
Text4 = 150
End Sub

Option9(Diccionario)
Private Sub Option9_Click()
Frame7.Visible = True
Text5 = 120
End Sub

Option10(Bote de Crayolas)
Private Sub Option10_Click()
Frame8.Visible = True
Text6 = 46
End Sub

Command (REGRESAR)
Private Sub Command1_Click()
Form1.Show unloadme
End Sub
command1(REPRODUCIR)
Private Sub Command1_Click()
WMP1.URL = App.Path + "papeleria 56(2).wmv"
End Sub

Command2(REGRESAR)
Private Sub Command2_Click()
Form1.Show unloadme
End Sub

More Related Content

What's hot (18)

3 flow
3 flow3 flow
3 flow
suresh rathod
Ìý
รายงานคอม
รายงานคอมรายงานคอม
รายงานคอม
jomuraiporn
Ìý
Of class2
Of class2Of class2
Of class2
Janet Huang
Ìý
WordPress Customizer
WordPress CustomizerWordPress Customizer
WordPress Customizer
Thad Allender
Ìý
Oop lecture9 10
Oop lecture9 10Oop lecture9 10
Oop lecture9 10
Shahriar Robbani
Ìý
Ejercicios En Gambas
Ejercicios En GambasEjercicios En Gambas
Ejercicios En Gambas
mafermen7
Ìý
Ejemplo En Gambas
Ejemplo En GambasEjemplo En Gambas
Ejemplo En Gambas
eduann
Ìý
Gambas
Gambas Gambas
Gambas
Gləndîz Fläkiitä
Ìý
Kidflier6.5
Kidflier6.5Kidflier6.5
Kidflier6.5
William Abbott
Ìý
Unix programming ver_realfinal
Unix programming ver_realfinalUnix programming ver_realfinal
Unix programming ver_realfinal
HeeRa Kim
Ìý
The Ring programming language version 1.7 book - Part 61 of 196
The Ring programming language version 1.7 book - Part 61 of 196The Ring programming language version 1.7 book - Part 61 of 196
The Ring programming language version 1.7 book - Part 61 of 196
Mahmoud Samir Fayed
Ìý
ejemplos gambas
ejemplos gambasejemplos gambas
ejemplos gambas
eduann
Ìý
52 100 keyboard_shortcuts
52 100 keyboard_shortcuts52 100 keyboard_shortcuts
52 100 keyboard_shortcuts
balchandra vemula
Ìý
Cara cepat pakai keyboard
Cara cepat pakai keyboardCara cepat pakai keyboard
Cara cepat pakai keyboard
Sukron Firudin
Ìý
cafeteria info management system
cafeteria info management systemcafeteria info management system
cafeteria info management system
Gaurav Subham
Ìý
Calculadora
CalculadoraCalculadora
Calculadora
guestfb359f
Ìý
Game project ppt full
Game project ppt fullGame project ppt full
Game project ppt full
PawanYadav348
Ìý
Five Common SQL Errors
Five Common SQL ErrorsFive Common SQL Errors
Five Common SQL Errors
Vertabelo Academy
Ìý
รายงานคอม
รายงานคอมรายงานคอม
รายงานคอม
jomuraiporn
Ìý
WordPress Customizer
WordPress CustomizerWordPress Customizer
WordPress Customizer
Thad Allender
Ìý
Ejercicios En Gambas
Ejercicios En GambasEjercicios En Gambas
Ejercicios En Gambas
mafermen7
Ìý
Ejemplo En Gambas
Ejemplo En GambasEjemplo En Gambas
Ejemplo En Gambas
eduann
Ìý
Unix programming ver_realfinal
Unix programming ver_realfinalUnix programming ver_realfinal
Unix programming ver_realfinal
HeeRa Kim
Ìý
The Ring programming language version 1.7 book - Part 61 of 196
The Ring programming language version 1.7 book - Part 61 of 196The Ring programming language version 1.7 book - Part 61 of 196
The Ring programming language version 1.7 book - Part 61 of 196
Mahmoud Samir Fayed
Ìý
ejemplos gambas
ejemplos gambasejemplos gambas
ejemplos gambas
eduann
Ìý
52 100 keyboard_shortcuts
52 100 keyboard_shortcuts52 100 keyboard_shortcuts
52 100 keyboard_shortcuts
balchandra vemula
Ìý
Cara cepat pakai keyboard
Cara cepat pakai keyboardCara cepat pakai keyboard
Cara cepat pakai keyboard
Sukron Firudin
Ìý
cafeteria info management system
cafeteria info management systemcafeteria info management system
cafeteria info management system
Gaurav Subham
Ìý
Calculadora
CalculadoraCalculadora
Calculadora
guestfb359f
Ìý
Game project ppt full
Game project ppt fullGame project ppt full
Game project ppt full
PawanYadav348
Ìý
Five Common SQL Errors
Five Common SQL ErrorsFive Common SQL Errors
Five Common SQL Errors
Vertabelo Academy
Ìý

Viewers also liked (8)

Mca i ecls_u-3_corporate communication
Mca i ecls_u-3_corporate communicationMca i ecls_u-3_corporate communication
Mca i ecls_u-3_corporate communication
Rai University
Ìý
Bca 2nd sem-u-3.2-basic computer programming and micro programmed control
Bca 2nd sem-u-3.2-basic computer programming and micro programmed controlBca 2nd sem-u-3.2-basic computer programming and micro programmed control
Bca 2nd sem-u-3.2-basic computer programming and micro programmed control
Rai University
Ìý
Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...
Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...
Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...
Rai University
Ìý
Ch. 17 lecture outline
Ch. 17 lecture outlineCh. 17 lecture outline
Ch. 17 lecture outline
melody223
Ìý
Howard Gardner School Develops New Capabilities in New Facility
Howard Gardner School Develops New Capabilities in New FacilityHoward Gardner School Develops New Capabilities in New Facility
Howard Gardner School Develops New Capabilities in New Facility
Amy Kenton
Ìý
Mba i-ifm-u-2-computer software
Mba i-ifm-u-2-computer softwareMba i-ifm-u-2-computer software
Mba i-ifm-u-2-computer software
Rai University
Ìý
Botones de coloresBotones de colores
Botones de colores
Ayhli123
Ìý
Bca 2nd sem-u-1.6 digital logic circuits, digital component
Bca 2nd sem-u-1.6 digital logic circuits, digital componentBca 2nd sem-u-1.6 digital logic circuits, digital component
Bca 2nd sem-u-1.6 digital logic circuits, digital component
Rai University
Ìý
Mca i ecls_u-3_corporate communication
Mca i ecls_u-3_corporate communicationMca i ecls_u-3_corporate communication
Mca i ecls_u-3_corporate communication
Rai University
Ìý
Bca 2nd sem-u-3.2-basic computer programming and micro programmed control
Bca 2nd sem-u-3.2-basic computer programming and micro programmed controlBca 2nd sem-u-3.2-basic computer programming and micro programmed control
Bca 2nd sem-u-3.2-basic computer programming and micro programmed control
Rai University
Ìý
Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...
Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...
Bca 2nd sem u-1.1 digital logic circuits, digital component floting and fixed...
Rai University
Ìý
Ch. 17 lecture outline
Ch. 17 lecture outlineCh. 17 lecture outline
Ch. 17 lecture outline
melody223
Ìý
Howard Gardner School Develops New Capabilities in New Facility
Howard Gardner School Develops New Capabilities in New FacilityHoward Gardner School Develops New Capabilities in New Facility
Howard Gardner School Develops New Capabilities in New Facility
Amy Kenton
Ìý
Mba i-ifm-u-2-computer software
Mba i-ifm-u-2-computer softwareMba i-ifm-u-2-computer software
Mba i-ifm-u-2-computer software
Rai University
Ìý
Botones de coloresBotones de colores
Botones de colores
Ayhli123
Ìý
Bca 2nd sem-u-1.6 digital logic circuits, digital component
Bca 2nd sem-u-1.6 digital logic circuits, digital componentBca 2nd sem-u-1.6 digital logic circuits, digital component
Bca 2nd sem-u-1.6 digital logic circuits, digital component
Rai University
Ìý

More from Ayhli123 (16)

InvitacionInvitacion
Invitacion
Ayhli123
Ìý
Logo
LogoLogo
Logo
Ayhli123
Ìý
Base de DatosBase de Datos
Base de Datos
Ayhli123
Ìý
UnidadUnidad
Unidad
Ayhli123
Ìý
±õ²Ô±¹¾±³Ù²¹³¦¾±Ã³²Ô±õ²Ô±¹¾±³Ù²¹³¦¾±Ã³²Ô
±õ²Ô±¹¾±³Ù²¹³¦¾±Ã³²Ô
Ayhli123
Ìý
Teclado visual basic 6.0Teclado visual basic 6.0
Teclado visual basic 6.0
Ayhli123
Ìý
Practicas de visual basic 6.0Practicas de visual basic 6.0
Practicas de visual basic 6.0
Ayhli123
Ìý
E.si.m.l.p (1)E.si.m.l.p (1)
E.si.m.l.p (1)
Ayhli123
Ìý
E.si.m.l.p (1)E.si.m.l.p (1)
E.si.m.l.p (1)
Ayhli123
Ìý
 E.si.m.l.p E.si.m.l.p
E.si.m.l.p
Ayhli123
Ìý
Unidad 2Unidad 2
Unidad 2
Ayhli123
Ìý
Visual  0.6Visual  0.6
Visual 0.6
Ayhli123
Ìý
Unidad 2Unidad 2
Unidad 2
Ayhli123
Ìý
Visual basic 6.0Visual basic 6.0
Visual basic 6.0
Ayhli123
Ìý
Visual basic 6.0Visual basic 6.0
Visual basic 6.0
Ayhli123
Ìý
Copia de e.si.m.l.pCopia de e.si.m.l.p
Copia de e.si.m.l.p
Ayhli123
Ìý
InvitacionInvitacion
Invitacion
Ayhli123
Ìý
Logo
LogoLogo
Logo
Ayhli123
Ìý
Base de DatosBase de Datos
Base de Datos
Ayhli123
Ìý
UnidadUnidad
Unidad
Ayhli123
Ìý
±õ²Ô±¹¾±³Ù²¹³¦¾±Ã³²Ô±õ²Ô±¹¾±³Ù²¹³¦¾±Ã³²Ô
±õ²Ô±¹¾±³Ù²¹³¦¾±Ã³²Ô
Ayhli123
Ìý
Teclado visual basic 6.0Teclado visual basic 6.0
Teclado visual basic 6.0
Ayhli123
Ìý
Practicas de visual basic 6.0Practicas de visual basic 6.0
Practicas de visual basic 6.0
Ayhli123
Ìý
E.si.m.l.p (1)E.si.m.l.p (1)
E.si.m.l.p (1)
Ayhli123
Ìý
E.si.m.l.p (1)E.si.m.l.p (1)
E.si.m.l.p (1)
Ayhli123
Ìý
 E.si.m.l.p E.si.m.l.p
E.si.m.l.p
Ayhli123
Ìý
Unidad 2Unidad 2
Unidad 2
Ayhli123
Ìý
Visual  0.6Visual  0.6
Visual 0.6
Ayhli123
Ìý
Unidad 2Unidad 2
Unidad 2
Ayhli123
Ìý
Visual basic 6.0Visual basic 6.0
Visual basic 6.0
Ayhli123
Ìý
Visual basic 6.0Visual basic 6.0
Visual basic 6.0
Ayhli123
Ìý
Copia de e.si.m.l.pCopia de e.si.m.l.p
Copia de e.si.m.l.p
Ayhli123
Ìý

Pasos de proyecto1

  • 1. 1 er form: Command 1 (productos): Private Sub Command1_Click() Form2.Show End Sub Command 2(publicidad): Private Sub Command2_Click() Form3.Show End Sub Command 3(salir): Private Sub Command3_Click() End End Sub
  • 2. Command 1(cmdplumas) Private Sub cmddiccionarios_Click() Picture5.Visible = True Frame7.Visible = True Text5.Visible = True End Sub command2(cmdcolores) Private Sub cmdcolores_Click() Picture2.Visible = True Frame3.Visible = True Text2.Visible = True End Sub Command 3(cmdlibretas) Private Sub cmdlibretas_Click() Picture3.Visible = True Frame4.Visible = True Text3.Visible = True End Sub Command4(cmdmochilas) Private Sub cmdmochilas_Click() Picture4.Visible = True Frame6.Visible = True Text4.Visible = True End Sub
  • 3. command5(cmddiccionarios) Private Sub cmddiccionarios_Click() Picture5.Visible = True Frame7.Visible = True Text5.Visible = True End Sub Command6 Private Sub Command2_Click() Picture6.Visible = True Frame8.Visible = True Text6.Visible = True End Sub Option1(sueltas) Private Sub Option1_Click() Frame2.Visible = True Text1 = 3 End Sub Option2(paquete de 7 plumas) Private Sub Option2_Click() Frame2.Visible = True Text1 = 15 End Sub Option3(caja de 12 pzas) Private Sub Option3_Click() Frame3.Visible = True Text2 = 26 End Sub Option4(caja de 24 pzas) Private Sub Option4_Click() Frame3.Visible = True Text2 = 54 End Sub Option5(C.Grande) Private Sub Option5_Click() Frame4.Visible = True Text3 = 8 End Sub Option6(C.Pequeño) Private Sub Option6_Click() Frame4.Visible = True Text3 = 7 End Sub
  • 4. Option7(Chenson) Private Sub Option7_Click() Frame6.Visible = True Text4 = 250 End Sub Option8(Wilson) Private Sub Option8_Click() Frame6.Visible = True Text4 = 150 End Sub Option9(Diccionario) Private Sub Option9_Click() Frame7.Visible = True Text5 = 120 End Sub Option10(Bote de Crayolas) Private Sub Option10_Click() Frame8.Visible = True Text6 = 46 End Sub Command (REGRESAR) Private Sub Command1_Click() Form1.Show unloadme End Sub
  • 5. command1(REPRODUCIR) Private Sub Command1_Click() WMP1.URL = App.Path + "papeleria 56(2).wmv" End Sub Command2(REGRESAR) Private Sub Command2_Click() Form1.Show unloadme End Sub