vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Access   |   VB-Versionen: VBA02.08.01
Aktive Eingabefelder

Stellen Sie die aktiven Eingabe-, Listen-, Kombinationsfelder, Kontrollkästchen, Optionsgruppen und Befehlsschaltflächen bei Aktivierung farbig dar.

Autor:   Microsys KramerBewertung:     [ Jetzt bewerten ]Views:  26.714 
www.access-paradies.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Programmbeispiel für aktive Eingabefelder.
Stellen Sie die aktiven Eingabe-, Listen-, Kombinationsfelder, Kontrollkästchen, Optionsgruppen und Befehlsschaltflächen bei Aktivierung farbig dar.

Immer, wenn ein Feld mit dem Cursor angesprungen wird, kann dieses farblich dargestellt werden. Somit sieht der Anwender sofort, welches Feld bzw. welche Schaltfläche ist aktiv.
An dieser Stelle unser Dank an Herrn Matthias Kaskel, der sich die Mühe machte und dieses Beispiel überarbeitet hat.

Erstellen Sie ein neues Modul und fügen Sie nachfolgenden Code ein:

Option Compare Database
Option Explicit
 
Public Feldfarbe As Long
Public Textfarbe As Long
Public Kontrollkaestchenfarbe As Long
Public Kontrollbezfeld As String
 
Private Const conAktivesKontrollfeldFarbe = 8388608
Private Const conAktivesTextfeldFarbe = 8454143
 
Public Function aktives_Eingabefeld(Status As Boolean)
  On Error GoTo Err_aktives_Eingabefeld
 
  Dim Steuerelement1 As Control
 
  Set Steuerelement1 = Screen.ActiveControl
  With Steuerelement1    
    If Status Then
      Feldfarbe = .BackColor
      Textfarbe = .ForeColor
      .ForeColor = 0
      .BackColor = conAktivesTextfeldFarbe
    Else
      .ForeColor = Textfarbe
      .BackColor = Feldfarbe
    End If
  End With
 
Exit_aktives_Eingabefeld:
  Exit Function
 
Err_aktives_Eingabefeld:
  Select Case Err
    Case 0
      Resume Next
    Case Else
      Resume Exit_aktives_Eingabefeld
  End Select
  Resume 0
End Function
 
Public Function aktive_Schaltfläche(Status As Boolean)
  On Error GoTo Err_aktive_Schaltfläche
 
  Dim Steuerelement1 As Control
  Set Steuerelement1 = Screen.ActiveForm.ActiveControl
 
  With Steuerelement1    
    If Status Then
      Kontrollkaestchenfarbe = .ForeColor
      .ForeColor = conAktivesKontrollfeldFarbe
    Else
      .ForeColor = Kontrollkaestchenfarbe
    End If
  End With
 
Exit_aktive_Schaltfläche:
  Exit Function
 
Err_aktive_Schaltfläche:
  Select Case Err
    Case 0
      Resume Next
    Case Else
      Resume Exit_aktive_Schaltfläche
  End Select
  Resume 0
End Function
 
Public Function aktives_Kontrollkästchen(Status As Boolean)
  On Error GoTo Err_aktives_Kontrollkästchen
 
  Dim Steuerelement1 As Control
  With Screen
    Kontrollbezfeld = .ActiveForm.ActiveControl.Name & _
      "_Text"
    Set Steuerelement1 = .ActiveForm(Kontrollbezfeld)
  End With
 
  With Steuerelement1
    If Status Then
      Kontrollkaestchenfarbe = .ForeColor
      .ForeColor = conAktivesKontrollfeldFarbe
    Else
      .ForeColor = Kontrollkaestchenfarbe
    End If
  End With
 
Exit_aktives_Kontrollkästchen:
  Exit Function
 
Err_aktives_Kontrollkästchen:
  Select Case Err
    Case 0
      Resume Next
    Case Else
      Resume Exit_aktives_Kontrollkästchen
  End Select
  Resume 0
End Function

Dieser Tipp wurde bereits 26.714 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel