LicenceManager 2.1e4 :

- TextBox Note si estende/restringe automaticamente in base al numero di righe scritte al suo interno. Valido per New e Update di Licence e Key.
2019-05-09 11:16:16 +00:00
parent 373a5f4268
commit a3f38fbb99
9 changed files with 86 additions and 11 deletions
@@ -1,3 +1,22 @@
 Class UpdateKeyPageV

+   Dim numberOfLines As Integer = 1
+   Dim originalTextBoxHeight As Double = 22
+
+   Private Sub textBoxNote_TextChanged(sender As Object, e As TextChangedEventArgs) Handles textBoxNote.TextChanged
+      If (numberOfLines = 1) Then
+         textBoxNote.Height = originalTextBoxHeight
+      End If
+      If (textBoxNote.LineCount > 0) Then
+         If (numberOfLines < textBoxNote.LineCount) Then
+            textBoxNote.Height = originalTextBoxHeight * textBoxNote.LineCount
+            numberOfLines = textBoxNote.LineCount
+         End If
+         If (numberOfLines > textBoxNote.LineCount) Then
+            textBoxNote.Height = textBoxNote.Height - (originalTextBoxHeight * (numberOfLines - textBoxNote.LineCount))
+            numberOfLines = textBoxNote.LineCount
+         End If
+      End If
+   End Sub
+
 End Class