Tipp 2.3 - Markierung aufheben

Wie kann ich die Markierung einer Textbox bzw. Combobox aufheben?

Mit dieser Funktion können Sie die Markierung einer Textbox bzw. Combobox aufheben. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Sub A2XCtlDeSelect(pctl As Control)
  '// =====================================================
  '// Methode   | Demakiert das angegebene Control
  '// -----------------------------------------------------
  '// Parameter | pctl - Control (Achtung: funktioniert nur
  '//           |        mit einer Text- bzw. Combobox)
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// =====================================================
 
  On Error GoTo HandleErr
  pctl.SetFocus
  pctl.SelStart = 0
  pctl.SelLength = 0
 
HandleExit:
  Exit Sub
 
HandleErr:
  Select Case Err.Number
    Case Else
      MsgBox "Fehler " & Err.Number & ": " & _
             Err.Description, vbCritical, _
             "basFrm.A2XCtlDeSelect"
  End Select
  Resume HandleExit
End Sub


Zurück Tipp 2.2 - Ersten Eintrag in der Combobox | Inhalt | Tipp 2.4 - Controls de- bzw. aktivieren Weiter