diff options
| author | Syndamia <kami02882@gmail.com> | 2019-12-05 18:07:16 +0200 |
|---|---|---|
| committer | Syndamia <kami02882@gmail.com> | 2019-12-05 18:07:16 +0200 |
| commit | f2cacd592d7cbdeb59457b35ad998b17cc84ed74 (patch) | |
| tree | 5bb3aecedaf8a5d76492f623c393c7d56625f633 /Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls | |
| parent | 0bf2a21e80dfa79d327265f90a7fd1120a5edf4d (diff) | |
| download | Shower-f2cacd592d7cbdeb59457b35ad998b17cc84ed74.tar Shower-f2cacd592d7cbdeb59457b35ad998b17cc84ed74.tar.gz Shower-f2cacd592d7cbdeb59457b35ad998b17cc84ed74.zip | |
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.
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" |