From 2c4952012f194936e6b677f3b95e07fdadd3b337 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 23 Nov 2022 10:32:09 +0700 Subject: DuWM --- .../Universal/Knowledge Input/Uni_KnowledgeInput.vb | 10 ++++++++++ 1 file changed, 10 insertions(+) (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 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 -- cgit v1.2.3