Multiline FlatEdit & Default Controls

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

I thought I'd pass on a helpful little code snippet that I am using. First some background:

When the FlatEdit control has its MultiLine property set to True and your form contains another control with the Default property set to True, hitting Enter/Return in the FlatEdit control will trigger the Default control. The user needs to press Ctrl+Enter in order to add newlines to the FlatEdit control in this scenario (which may be undesirable).

Here's some code that will temporarily hold the default control while the multiline FlatEdit has focus, and restore the default control when the FlatEdit control loses focus:

Private Sub HoldDefaultControl(ByVal pHold As Boolean)
   '---------------------------------------------------------------------------------------
   ' Procedure  : HoldDefaultControl
   ' Purpose    : To set/unset the default property of another control on the parent of
   '              this usercontrol
   ' Parameters : pHold - TRUE (hold a reference to the current default control and
   '                            set its Default property to FALSE)
   '                      FALSE (set the Default property of the held reference to the
   '                             former default control to TRUE)
   '---------------------------------------------------------------------------------------

   Static sobjDefaultControl As Control
   Dim objCtrl As Control
   Dim blnFoundDefault As Boolean

   ' Remove default control from parent if it exists so
   ' user can hit enter in multiline textbox
   If pHold Then
      If sobjDefaultControl Is Nothing Then

         ' Loop through the controls on the parent form until we find the default control
         For Each objCtrl In Me.Controls

            ' Trap errors in case this control doesn't support default property
            On Error Resume Next
            blnFoundDefault = objCtrl.Default
            On Error GoTo 0

            If blnFoundDefault Then
               ' We have found the default control
               Set sobjDefaultControl = objCtrl ' Store a reference to this control
               Exit For ' Short circuit the loop since we found what we were looking for
            End If
         Next objCtrl
      End If
   End If

   If Not sobjDefaultControl Is Nothing Then
      ' If there is/was a default control
      sobjDefaultControl.Default = Not pHold ' Set or Unset the default property as required
   End If
End Sub

And to use it:

Private Sub FlatEdit1_GotFocus()
   If Me.MultiLine Then
      HoldDefaultControl True
   End If
End Sub

Private Sub FlatEdit1_LostFocus()
   HoldDefaultControl False
End Sub    

Hope this is helpful for someone!