¿Ayuda, comportamiento extraño en Visual Basic
Publicado por Andrés (1 intervención) el 31/05/2016 10:03:42
Buenas. Lo que sucede es que hice un programa tipo test de selecciòn multiple, pero al escoger la respuesta de la selección múltiple, no se pasa de a una diapositiva sino que se salta a una (eg: de la 1 en vez de pasar a la 2 pasa a la 3). Por qué sucederá ésto? Es normal? Es un bug?
Soy novato, perdon si estoy metiendo la pata
El codigo es:
Soy novato, perdon si estoy metiendo la pata
El codigo es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Main()
End Sub
Sub Juego(oShp As Shape)
If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "2") Then puntos = 0
If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "3" And oShp.Name = "Ferrita") Then
MsgBox "¡Muy bien! " & oShp.TextFrame.TextRange.Text & " es la respuesta correcta."
puntos = puntos + 1
ActivePresentation.SlideShowWindow.View.GotoSlide (4)
ElseIf (Application.SlideShowWindows(1).View.Slide.SlideNumber = "4" And oShp.Name = "Cuatro") Then
MsgBox "¡Muy bien! " & oShp.TextFrame.TextRange.Text & " es la respuesta correcta."
puntos = puntos + 1
ActivePresentation.SlideShowWindow.View.GotoSlide (5)
...Asimismo x el resto del cuestionario hasta:...
Else: MsgBox "Lamentablemente, " & oShp.TextFrame.TextRange.Text & " no es la respuesta correcta."
puntos = puntosEnd If
ActivePresentation.Slides(15).Shapes("Total").TextFrame.TextRange.Text = puntos
Application.SlideShowWindows(1).View.Next
End Sub
Valora esta pregunta
0