|  | 
| 1 | 1 | Module Glossary_Content_Control | 
| 2 | 2 |     Public Sub AddKeywords() | 
|  | 3 | +        'First Batch of Glossary Keywords | 
| 3 | 4 |         Form1.Lessons.Items.Clear() | 
| 4 |  | -        Form1.Lessons.Items.Add("None Added") | 
|  | 5 | +        Form1.Lessons.Items.Add("Tool") | 
|  | 6 | +        Form1.Lessons.Items.Add("Open Source") | 
|  | 7 | +        Form1.Lessons.Items.Add("IDE") | 
|  | 8 | +        Form1.Lessons.Items.Add("Glossary") | 
|  | 9 | +        Form1.Lessons.Items.Add("Keywords") | 
|  | 10 | +        Form1.Lessons.Items.Add("Libraries") | 
|  | 11 | +        Form1.Lessons.Items.Add("Functions") | 
|  | 12 | +        Form1.Lessons.Items.Add("Code:Blocks") | 
|  | 13 | +        Form1.Lessons.Items.Add("Tooltip") | 
|  | 14 | +        Form1.Lessons.Items.Add("Code:Blocks Shortcuts") | 
|  | 15 | +        Form1.Lessons.Items.Add("Programming") | 
|  | 16 | +        Form1.Lessons.Items.Add("C Language") | 
|  | 17 | +        Form1.Lessons.Items.Add("Use of C Language") | 
|  | 18 | +        Form1.Lessons.Items.Add("Integrated Development Environment") | 
|  | 19 | +        Form1.Lessons.Items.Add("C Software") | 
|  | 20 | +        Form1.Lessons.Items.Add("Compiler") | 
|  | 21 | +        Form1.Lessons.Items.Add("Code") | 
|  | 22 | +        Form1.Lessons.Items.Add("C Code") | 
|  | 23 | +        Form1.Lessons.Items.Add("Source Code") | 
|  | 24 | +        Form1.Lessons.Items.Add("Escape Identifiers") | 
|  | 25 | +        Form1.Lessons.Items.Add("New Line") | 
|  | 26 | +        Form1.Lessons.Items.Add("Line Break") | 
|  | 27 | +        Form1.Lessons.Items.Add("Tab Feed") | 
|  | 28 | +        Form1.Lessons.Items.Add("Comments") | 
|  | 29 | + | 
|  | 30 | +        'Second Batch of Glossary Keywords | 
|  | 31 | + | 
| 5 | 32 |     End Sub | 
| 6 | 33 | 
 | 
| 7 | 34 | 
 | 
| 8 | 35 |     Public Sub AddLibraries() | 
| 9 | 36 |         Form1.Lessons.Items.Clear() | 
| 10 | 37 |         Form1.Lessons.Items.Add("None Added") | 
| 11 | 38 |     End Sub | 
|  | 39 | + | 
|  | 40 | +    'The reason that I am using strings for all the keywords is because | 
|  | 41 | +    'Many of them are synonyms and will display the same thing | 
|  | 42 | +    Public Sub Button3_Clicked() | 
|  | 43 | +        Select Case Form1.Lessons.SelectedItem | 
|  | 44 | +            'First Batch of Glossary Keywords | 
|  | 45 | +            Case "Tool" | 
|  | 46 | +                Form1.Display.Text = String_Tool | 
|  | 47 | +            Case "Open Source" | 
|  | 48 | +                Form1.Display.Text = String_Open_Source | 
|  | 49 | +            Case "IDE" | 
|  | 50 | +                Form1.Display.Text = String_Tool | 
|  | 51 | +            Case "Glossary" | 
|  | 52 | +                Form1.Display.Text = String_Glossarys | 
|  | 53 | +            Case "Keywords" | 
|  | 54 | +                Form1.Display.Text = String_Glossarys | 
|  | 55 | +            Case "Libraries" | 
|  | 56 | +                Form1.Display.Text = String_Libraries | 
|  | 57 | +            Case "Functions" | 
|  | 58 | +                Form1.Display.Text = String_Libraries | 
|  | 59 | +            Case "Code:Blocks" | 
|  | 60 | +                Form1.Display.Text = String_Tool | 
|  | 61 | +            Case "Tooltip" | 
|  | 62 | +                Form1.Display.Text = String_Tooltip | 
|  | 63 | +            Case "Code:Blocks Shortcuts" | 
|  | 64 | +                Form1.Display.Text = String_Code_Blocks_Shortcuts | 
|  | 65 | +            Case "Programming" | 
|  | 66 | +                Form1.Display.Text = String_Programming | 
|  | 67 | +            Case "C Language" | 
|  | 68 | +                Form1.Display.Text = String_C_Language | 
|  | 69 | +            Case "Use of C Language" | 
|  | 70 | +                Form1.Display.Text = String_C_Language | 
|  | 71 | +            Case "Integrated Development Environment" | 
|  | 72 | +                Form1.Display.Text = String_Tool | 
|  | 73 | +            Case "C Software" | 
|  | 74 | +                Form1.Display.Text = String_Tool | 
|  | 75 | +            Case "Compiler" | 
|  | 76 | +                Form1.Display.Text = String_Tool | 
|  | 77 | +            Case "Code" | 
|  | 78 | +                Form1.Display.Text = String_Code | 
|  | 79 | +            Case "C Code" | 
|  | 80 | +                Form1.Display.Text = String_Code | 
|  | 81 | +            Case "Source Code" | 
|  | 82 | +                Form1.Display.Text = String_Code | 
|  | 83 | +            Case "Escape Identifiers" | 
|  | 84 | +                Form1.Display.Text = String_Escape_Identifiers | 
|  | 85 | +            Case "New Line" | 
|  | 86 | +                Form1.Display.Text = String_Escape_Identifiers | 
|  | 87 | +            Case "Line Break" | 
|  | 88 | +                Form1.Display.Text = String_Escape_Identifiers | 
|  | 89 | +            Case "Tab Feed" | 
|  | 90 | +                Form1.Display.Text = String_Escape_Identifiers | 
|  | 91 | +            Case "Comments" | 
|  | 92 | +                Form1.Display.Text = String_Comments | 
|  | 93 | + | 
|  | 94 | +                'Second Batch of Glossary Keywords | 
|  | 95 | + | 
|  | 96 | +        End Select | 
|  | 97 | +    End Sub | 
| 12 | 98 | End Module | 
0 commit comments