diff options
Diffstat (limited to 'Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls')
| -rw-r--r-- | Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls | 24 |
1 files changed, 20 insertions, 4 deletions
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" |