-test da provare

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderVM.vb

@@ -6,6 +6,8 @@ Public Class InputExpanderVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Friend Event m_FocusOnTextBox()
+
    ' Expander fields
    Private m_IsExpanded As Boolean
    Public Property IsExpanded As Boolean
@@ -273,6 +275,10 @@ Public Class InputExpanderVM
 
 #Region "METHODS"
 
+   Friend Sub FocusText()
+      RaiseEvent m_FocusOnTextBox()
+   End Sub
+
    Friend Sub PrepareInputBox(PrepareInputBoxParam As PrepareInputBoxParam)
       Title = PrepareInputBoxParam.sTitle
       If PrepareInputBoxParam.sLabel <> "" Then
@@ -294,6 +300,7 @@ Public Class InputExpanderVM
       IsEnabled = True
       IsExpanded = True
       FocusTextBox = True
+      FocusText()
    End Sub
 
    Friend Sub ResetInputBox()
@@ -309,6 +316,7 @@ Public Class InputExpanderVM
    Friend Function SetInputBoxText(ByVal sVal As String) As Boolean
       TextBox = sVal
       FocusTextBox = True
+      FocusText()
       Return True
    End Function