From f2cacd592d7cbdeb59457b35ad998b17cc84ed74 Mon Sep 17 00:00:00 2001 From: Syndamia 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/Slide3.cls | 24 ++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) (limited to 'Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls') 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" -- cgit v1.2.3