From f2cacd592d7cbdeb59457b35ad998b17cc84ed74 Mon Sep 17 00:00:00 2001
From: Syndamia <kami02882@gmail.com>
Date: Thu, 5 Dec 2019 18:07:16 +0200
Subject: 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.
---
 .../Extracted code/Slide17.cls                     | 28 ++++++++++++++++++----
 1 file changed, 23 insertions(+), 5 deletions(-)

(limited to 'Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls')

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
-- 
cgit v1.2.3

