Updated the presentation

Music files were added (by Mariyan) and changed feature, when you use fifty fifty life line, the answers that are eliminated turn invisible, rather than becoming disabled.

3 files changed, 43 insertions, 10 deletions

diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls
index 10ca09c..83d8f7d 100644
--- a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls
+++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls
@@ -7,7 +7,6 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = True
-
 Dim correctAns As Boolean
 Const currQuestion As Integer = 15
 
@@ -61,9 +60,9 @@ Dim keepWrong As String, currCorrect As String
 keepWrong = Slide2.GetWrongAnsToKeep(currQuestion)
 currCorrect = Slide2.GetCorrAnswer(currQuestion)
 
-EnableAnswer "All", False
-EnableAnswer keepWrong, True
-EnableAnswer currCorrect, True
+VisibleAnswer "All", False
+VisibleAnswer keepWrong, True
+VisibleAnswer currCorrect, True
 
 End Sub
 
@@ -168,6 +167,22 @@ End Select
 
 End Sub
 
+Private Sub VisibleAnswer(answer As String, isVisible As Boolean)
+
+Select Case answer
+    Case "A": cmdAnswerA.Visible = isVisible
+    Case "B": cmdAnswerB.Visible = isVisible
+    Case "C": cmdAnswerC.Visible = isVisible
+    Case "D": cmdAnswerD.Visible = isVisible
+    Case "All":
+        VisibleAnswer "A", isVisible
+        VisibleAnswer "B", isVisible
+        VisibleAnswer "C", isVisible
+        VisibleAnswer "D", isVisible
+End Select
+
+End Sub
+
 'Public methods
 
 Public Sub DisabledLifeLine(lifeLineName As String, isDisabled As Boolean)
@@ -182,7 +197,6 @@ End Sub
 
 Public Sub DisabledAllLifeLines(areDisabled As Boolean)
 
-
 DisabledLifeLine "FiftyFifty", areDisabled
 DisabledLifeLine "PhoneFriend", areDisabled
 DisabledLifeLine "AskAudience", areDisabled
@@ -196,6 +210,7 @@ correctAns = False
 DisabledAllLifeLines False
 cmdGiveUp.Enabled = True
 EnableAnswer "All", True
+VisibleAnswer "All", True
 
 ColorAllAnswers "Black"
 
@@ -211,3 +226,6 @@ End Property
 
 'Kamen Mladenov 2019
 
+Private Sub imgFriendMsg_Click()
+
+End Sub
diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls
index 32a5d00..dbe35c6 100644
--- a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls
+++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls
@@ -7,7 +7,6 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = True
-
 Const corrAns1 As String = "B"
 Const corrAns2 As String = "D"
 Const corrAns3 As String = "B"
diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls
index 1f70d63..2778d91 100644
--- a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls
+++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls
@@ -60,9 +60,9 @@ Dim keepWrong As String, currCorrect As String
 keepWrong = Slide2.GetWrongAnsToKeep(currQuestion)
 currCorrect = Slide2.GetCorrAnswer(currQuestion)
 
-EnableAnswer "All", False
-EnableAnswer keepWrong, True
-EnableAnswer currCorrect, True
+VisibleAnswer "All", False
+VisibleAnswer keepWrong, True
+VisibleAnswer currCorrect, True
 
 End Sub
 
@@ -167,6 +167,22 @@ End Select
 
 End Sub
 
+Private Sub VisibleAnswer(answer As String, isVisible As Boolean)
+
+Select Case answer
+    Case "A": cmdAnswerA.Visible = isVisible
+    Case "B": cmdAnswerB.Visible = isVisible
+    Case "C": cmdAnswerC.Visible = isVisible
+    Case "D": cmdAnswerD.Visible = isVisible
+    Case "All":
+        VisibleAnswer "A", isVisible
+        VisibleAnswer "B", isVisible
+        VisibleAnswer "C", isVisible
+        VisibleAnswer "D", isVisible
+End Select
+
+End Sub
+
 'Public methods
 
 Public Sub DisabledLifeLine(lifeLineName As String, isDisabled As Boolean)
@@ -181,7 +197,6 @@ End Sub
 
 Public Sub DisabledAllLifeLines(areDisabled As Boolean)
 
-
 DisabledLifeLine "FiftyFifty", areDisabled
 DisabledLifeLine "PhoneFriend", areDisabled
 DisabledLifeLine "AskAudience", areDisabled
@@ -195,6 +210,7 @@ correctAns = False
 DisabledAllLifeLines False
 cmdGiveUp.Enabled = True
 EnableAnswer "All", True
+VisibleAnswer "All", True
 
 ColorAllAnswers "Black"