From 2c4952012f194936e6b677f3b95e07fdadd3b337 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 23 Nov 2022 10:32:09 +0700 Subject: [PATCH] DuWM --- .../Uni_KnowledgeInput.Designer.vb | 68 ++++++++++++++++++- .../Knowledge Input/Uni_KnowledgeInput.vb | 10 +++ 2 files changed, 77 insertions(+), 1 deletion(-) 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 da5c0b1..dddaf86 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 @@ -23,6 +23,12 @@ Partial Class Uni_KnowledgeInput _ Private Sub InitializeComponent() Me.lbl_Title = New System.Windows.Forms.Label() + Me.cmb_Category = New System.Windows.Forms.ComboBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.txt_InputWord = New System.Windows.Forms.TextBox() + Me.lst_Guessed = New System.Windows.Forms.ListBox() + Me.lbl_Guessed = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'lbl_Title @@ -35,6 +41,57 @@ Partial Class Uni_KnowledgeInput Me.lbl_Title.TabIndex = 0 Me.lbl_Title.Text = "Knowledge Input" ' + 'cmb_Category + ' + Me.cmb_Category.BackColor = System.Drawing.Color.White + Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.cmb_Category.ForeColor = System.Drawing.Color.Black + Me.cmb_Category.FormattingEnabled = True + Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"}) + Me.cmb_Category.Location = New System.Drawing.Point(20, 73) + Me.cmb_Category.Name = "cmb_Category" + Me.cmb_Category.Size = New System.Drawing.Size(266, 31) + Me.cmb_Category.TabIndex = 1 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.txt_InputWord) + Me.Panel1.Controls.Add(Me.lbl_Title) + Me.Panel1.Controls.Add(Me.cmb_Category) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(784, 125) + Me.Panel1.TabIndex = 2 + ' + 'txt_InputWord + ' + 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.Name = "txt_InputWord" + Me.txt_InputWord.Size = New System.Drawing.Size(470, 30) + Me.txt_InputWord.TabIndex = 2 + ' + 'lst_Guessed + ' + Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.lst_Guessed.FormattingEnabled = True + Me.lst_Guessed.ItemHeight = 23 + Me.lst_Guessed.Location = New System.Drawing.Point(20, 177) + Me.lst_Guessed.Name = "lst_Guessed" + Me.lst_Guessed.Size = New System.Drawing.Size(752, 372) + Me.lst_Guessed.TabIndex = 3 + ' + 'lbl_Guessed + ' + Me.lbl_Guessed.AutoSize = True + Me.lbl_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.lbl_Guessed.Location = New System.Drawing.Point(16, 140) + Me.lbl_Guessed.Name = "lbl_Guessed" + Me.lbl_Guessed.Size = New System.Drawing.Size(132, 23) + Me.lbl_Guessed.TabIndex = 4 + Me.lbl_Guessed.Text = "Guessed Words :" + ' 'Uni_KnowledgeInput ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -42,7 +99,9 @@ Partial Class Uni_KnowledgeInput Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(784, 561) Me.ControlBox = False - Me.Controls.Add(Me.lbl_Title) + Me.Controls.Add(Me.lbl_Guessed) + Me.Controls.Add(Me.lst_Guessed) + Me.Controls.Add(Me.Panel1) Me.ForeColor = System.Drawing.Color.Black Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "Uni_KnowledgeInput" @@ -51,10 +110,17 @@ Partial Class Uni_KnowledgeInput Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Uni_KnowledgeInput" Me.TopMost = True + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents lbl_Title As Label + Friend WithEvents cmb_Category As ComboBox + Friend WithEvents Panel1 As Panel + Friend WithEvents txt_InputWord As TextBox + Friend WithEvents lst_Guessed As ListBox + Friend WithEvents lbl_Guessed As Label End Class 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 c47e545..f0fcfcb 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb @@ -1,3 +1,13 @@ Public Class Uni_KnowledgeInput + Dim PrevWidthTxt_InputWord As Integer + Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load + PrevWidthTxt_InputWord = txt_InputWord.Width + 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 + End Sub End Class \ No newline at end of file