diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb | 10 |
1 files changed, 10 insertions, 0 deletions
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 |