diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/Universal')
2 files changed, 15 insertions, 7 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb index dddaf86..55c7177 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb @@ -52,6 +52,7 @@ Partial Class Uni_KnowledgeInput Me.cmb_Category.Name = "cmb_Category" Me.cmb_Category.Size = New System.Drawing.Size(266, 31) Me.cmb_Category.TabIndex = 1 + Me.cmb_Category.Text = "Select Category" ' 'Panel1 ' @@ -66,14 +67,19 @@ Partial Class Uni_KnowledgeInput ' 'txt_InputWord ' + Me.txt_InputWord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txt_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) - Me.txt_InputWord.Location = New System.Drawing.Point(302, 74) + Me.txt_InputWord.Location = New System.Drawing.Point(292, 73) Me.txt_InputWord.Name = "txt_InputWord" Me.txt_InputWord.Size = New System.Drawing.Size(470, 30) Me.txt_InputWord.TabIndex = 2 ' 'lst_Guessed ' + Me.lst_Guessed.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) Me.lst_Guessed.FormattingEnabled = True Me.lst_Guessed.ItemHeight = 23 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 |