| |

Visual-Basic EinsteigerRe: Farbänderung aller Frames im Projekt? | |  | Autor: alert | Datum: 17.09.02 09:22 |
| Hi Dieter,
habe mich leider zu früh gefreut klappt leider nicht.
In der Registry erscheint folgender Wert: 8,25 wenn ich z.B. die
Größe 10 gewählt habe, und beim einlesen ist immer noch der alte
Wert vorhanden.
Woran könnte das liegen ?
Private Sub Form_Load()
FensterSizeIn ' <------ Einlesen!
End Sub
Private Sub Form_Unload(Cancel As Integer)
FensterSizeOut ' <------ Speichern!
End Sub
Private Sub FensterSizeIn() ' <------ Einlesen!
Dim t As Control
Dim Default As Integer
Default = 8
For Each t In Me.Controls
If TypeOf t Is CommandButton Then
t.BackColor = GetSetting("Farben", "Optionen", "t.BackColor", Default)
t.ForeColor = GetSetting("Farben", "Optionen", "t.ForeColor", Default)
t.FontSize = Val(GetSetting("Farben", "Optionen", "t.Font.Size", CStr(Default))) ' FontSize einlesen!
End If
Next t
End Sub
Private Sub FensterSizeOut() ' <------ Speichern!
Dim t As Control
For Each t In Me.Controls
If TypeOf t Is TextBox Then
SaveSetting "Farben", "Optionen", "t.BackColor", t.BackColor
SaveSetting "Farben", "Optionen", "t.ForeColor", t.ForeColor
SaveSetting "Farben", "Optionen", "t.FontSize", CStr(t.Font.Size) ' FontSize speichern!
End If
Next t
End Sub
gruß, alert |  |
 | 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
|
|
|
Copyright ©2000-2025 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
|
|