From 537ba4982ec7c8b3a1a3609fe13bc6f0624fee73 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 23 Nov 2022 21:30:54 +0700 Subject: Integrating Chapter 2 into the game and minor changes to check the story --- .../Universal/Knowledge Input/Uni_KnowledgeInput.vb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb') diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb index f0fcfcb..b806e88 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb @@ -1,13 +1,15 @@ Public Class Uni_KnowledgeInput - Dim PrevWidthTxt_InputWord As Integer + Dim PrevWidthTxt_InputWord As Integer = 470 Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load - PrevWidthTxt_InputWord = txt_InputWord.Width + cmb_Category.Items.Remove("Animals") End Sub - Private Sub Uni_KnowledgeInput_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize - 'Dim Txt_InputTextWidthRatio As Double = (txt_InputWord.Width / PrevWidthTxt_InputWord) - 'txt_InputWord.Width = txt_InputWord.Width * Txt_InputTextWidthRatio - 'PrevWidthTxt_InputWord = txt_InputWord.Width + Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown + Select Case e.KeyCode + Case Keys.Enter + lst_Guessed.Items.Add(txt_InputWord.Text) + txt_InputWord.Text = Nothing + End Select End Sub End Class \ No newline at end of file -- cgit v1.2.3