|
| |
Visual-Basic Einsteiger| Re: Farbänderung aller Frames im Projekt? | |  | Autor:  Dieter (Moderator) | | Datum: 20.09.02 21:12 |
| Hi Alert,
fassen wir das alles mal zusammen:
Das willst Du speichern:
Farbeinstellungen der:
Form
Frames
CommandButtons
ListBoxen
TextBoxen
Und weiterhin noch:
Schriftattribute der TextBoxen
Korrekt?
Und das ganze global für alle Forms innerhalb des Projekts - auch korrekt?
Dann kommt hier eine universelle Routine, die all diese Sachen speichert.
Füge nachfolgenden Code bitte in ein Modul ein:
<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
<font color=#000099>Public</font> <font color=#000099>Sub</font> LoadProperties( _
frm <font color=#000099>As</font> Form)
<font color=#000099>Dim</font> oControl <font color=#000099>As</font> <font _
color=#000099>Control</font>
<font color=green>' Form-Hintergrund</font>
frm.BackColor = GetSetting("COLOR", "Optionen", "Form.BackColor", <font _
color=#000099>CStr</font>(&H8000000F))
<font color=green>' Farbeinstellungen der Frame-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is Frame <font _
color=#000099>Then</font>
oControl.BackColor = GetSetting("COLOR", "Optionen", "f.BackColor", <font _
color=#000099>CStr</font>(&H8000000F))
oControl.ForeColor = GetSetting("COLOR", "Optionen", "f.ForeColor", <font _
color=#000099>CStr</font>(&H80000012))
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=green>' Hintergrundfarbe der CommandButton-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is CommandButton <font _
color=#000099>Then</font>
oControl.BackColor = GetSetting("COLOR", "Optionen", "b.BackColor", <font _
color=#000099>CStr</font>(&H8000000F))
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=green>' Farbeinstellungen der ListBox-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is ListBox <font _
color=#000099>Then</font>
oControl.BackColor = GetSetting("COLOR", "Optionen", "L.BackColor", <font _
color=#000099>CStr</font>(&H80000005))
oControl.ForeColor = GetSetting("COLOR", "Optionen", "L.ForeColor", <font _
color=#000099>CStr</font>(&H80000008))
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=green>' Einstellungen der TextBox-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is TextBox <font _
color=#000099>Then</font>
oControl.BackColor = GetSetting("COLOR", "Optionen", "t.BackColor", <font _
color=#000099>CStr</font>(&H80000005))
oControl.ForeColor = GetSetting("COLOR", "Optionen", "t.ForeColor", <font _
color=#000099>CStr</font>(&H80000008))
oControl.FontName = GetSetting("COLOR", "Optionen", "t.FontName", _
frm.FontName)
oControl.FontSize = Val(GetSetting("COLOR", "Optionen", "t.FontSize", _
<font color=#000099>CStr</font>(frm.FontSize)))
oControl.FontBold = <font color=#000099>CBool</font>(GetSetting("COLOR", _
"Optionen", "t.FontBold", <font color=#000099>CStr</font>(frm.FontBold)))
oControl.FontItalic = <font color=#000099>CBool</font>(GetSetting( _
"COLOR", "Optionen", "t.FontItalic", <font color=#000099>CStr</font>( _
frm.FontItalic)))
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Public</font> <font color=#000099>Sub</font> SaveProperties( _
frm <font color=#000099>As</font> Form)
<font color=#000099>Dim</font> oControl <font color=#000099>As</font> <font _
color=#000099>Control</font>
<font color=green>' Form-Hintergrund</font>
SaveSetting "COLOR", "Optionen", "Form.BackColor", frm.BackColor
<font color=green>' Farbeinstellungen der Frame-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is Frame <font _
color=#000099>Then</font>
SaveSetting "COLOR", "Optionen", "f.BackColor", oControl.BackColor
SaveSetting "COLOR", "Optionen", "f.ForeColor", oControl.ForeColor
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=green>' Hintergrundfarbe der CommandButton-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is CommandButton <font _
color=#000099>Then</font>
SaveSetting "COLOR", "Optionen", "b.BackColor", oControl.BackColor
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=green>' Farbeinstellungen der ListBox-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is ListBox <font _
color=#000099>Then</font>
SaveSetting "COLOR", "Optionen", "L.BackColor", oControl.BackColor
SaveSetting "COLOR", "Optionen", "L.ForeColor", oControl.ForeColor
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=green>' Einstellungen der TextBox-Objekte</font>
<font color=#000099>For</font> Each oControl In frm.Controls
<font color=#000099>If</font> TypeOf oControl Is TextBox <font _
color=#000099>Then</font>
SaveSetting "COLOR", "Optionen", "t.BackColor", oControl.BackColor
SaveSetting "COLOR", "Optionen", "t.ForeColor", oControl.ForeColor
SaveSetting "COLOR", "Optionen", "t.FontName", oControl.FontName
SaveSetting "COLOR", "Optionen", "t.FontSize", <font _
color=#000099>CStr</font>(oControl.FontSize)
SaveSetting "COLOR", "Optionen", "t.FontBold", <font _
color=#000099>CStr</font>(oControl.FontBold)
SaveSetting "COLOR", "Optionen", "t.FontItalic", <font _
color=#000099>CStr</font>(oControl.FontItalic)
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>Die Prozedut LoadProperties rufst Du von nun an im Load-Event einer jeden Form auf:
Private Sub Form_Load()
LoadProperties Me
End Sub Das Speichern neuer Einstellungen brauchst Du nur dann vorzunehmen, wenn sich irgendetwas ändert. Hier reicht es aus, wenn Du die SaveProperties-Funktion ein einziges Mal aufrufst - also nicht etwa für alle Formen:
SaveProperties Me Cu
Dieter | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) 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
Nur 24,95 EURWeitere Infos
|
Sie sind aktuell nicht angemeldet.
