Programmbeispiel für aktive Eingabefelder. 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. 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 28.241 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |