|
| |
Visual-Basic Einsteiger| Hi Dieter, oder.... wer auch immer helfen kann | |  | | Autor: alert | | Datum: 18.09.02 11:30 |
| Hi Dieter, oder.... wer auch immer helfen kann,
ich habe das mit dem Problem der Werte aus der Registry
mit den Font-Eigenschaften immer noch nicht lösen können.
Die Schriftgröße wird gespeichert und auch wieder eingelesen,
aber die Werte für Fett und Kursiv, die als "Falsch" oder
"Wahr" in der Registry gespeichert werden, kommen leider
beim einlesen nicht an.
Um das alles etwas besser zu schildern habe ich mal den
Code dafür zusammengestellt, und hoffe das es eine Lösungg
dafür gibt, die nicht zu kompliziert ist.
Des weiteren hätte ich da noch die Frage, wie kann ich
die Farbgebung auf mehrere Formen anwenden?
gruß, alert
Option Explicit
Private Sub Form_Load()
FensterSizeIn ' <------ Einlesen!
FrameHintergrundFarbeIn
FrameVordergrundFarbeIn
ButtonHintergrundFarbeIn
Text1.FontBold = True
Text2.FontBold = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
FensterSizeOut ' <------ Speichern!
FrameHintergrundFarbeOut
FrameVordergrundFarbeOut
ButtonHintergrundFarbeOut
End Sub
' ################################################ Frame! #################
Private Sub FrameHintergrundFarbeIn()
Dim f As Control
For Each f In Form1.Controls
If TypeOf f Is Frame Then
f.BackColor = GetSetting("Atlan", "Optionen", "f.BackColor", Default)
End If
Next f
End Sub
Private Sub FrameHintergrundFarbeOut()
Dim f As Control
For Each f In Form1.Controls
If TypeOf f Is Frame Then
SaveSetting "Atlan", "Optionen", "f.BackColor", f.BackColor
End If
Next f
End Sub
Private Sub FrameHintergrundFarbeCommon()
Dim f As Control
For Each f In Form1.Controls
If TypeOf f Is Frame Then
f.BackColor = CommonDialog1.Color
End If
Next f
End Sub
Private Sub cmdFrameHintergrund_Click()
On Local Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err = 0 Then
FrameHintergrundFarbeCommon
End If
End With
End Sub
Private Sub FrameVordergrundFarbeIn()
Dim f As Control
For Each f In Form1.Controls
If TypeOf f Is Frame Then
f.ForeColor = GetSetting("Atlan", "Optionen", "f.ForeColor", Default)
End If
Next f
End Sub
Private Sub FrameVordergrundFarbeOut()
Dim f As Control
For Each f In Form1.Controls
If TypeOf f Is Frame Then
SaveSetting "Atlan", "Optionen", "f.ForeColor", f.ForeColor
End If
Next f
End Sub
Private Sub FrameVordergrundFarbeCommon()
Dim f As Control
For Each f In Form1.Controls
If TypeOf f Is Frame Then
f.ForeColor = CommonDialog1.Color
End If
Next f
End Sub
Private Sub cmdFrameVordergrund_Click()
On Local Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err = 0 Then
FrameVordergrundFarbeCommon
End If
End With
End Sub
' ################################################ Button! #################
Private Sub ButtonHintergrundFarbeIn()
Dim b As Control
For Each b In Form1.Controls
If TypeOf b Is CommandButton Then
b.BackColor = GetSetting("Atlan", "Optionen", "b.BackColor", Default)
End If
Next b
End Sub
Private Sub ButtonHintergrundFarbeOut()
Dim b As Control
For Each b In Form1.Controls
If TypeOf b Is CommandButton Then
SaveSetting "Atlan", "Optionen", "b.BackColor", b.BackColor
End If
Next b
End Sub
Private Sub ButtonHintergrundFarbeCommon()
Dim b As Control
For Each b In Form1.Controls
If TypeOf b Is CommandButton Then
b.BackColor = CommonDialog1.Color
End If
Next b
End Sub
Private Sub cmdButtonHintergrund_Click()
On Local Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err = 0 Then
ButtonHintergrundFarbeCommon
End If
End With
End Sub
' ################################################ Fenster! #################
Private Sub FensterSizeIn() ' <------ Einlesen!
Dim t As Control
Dim Default As Integer
Default = 8
For Each t In Form1.Controls
If TypeOf t Is TextBox Then
t.BackColor = GetSetting("Atlan", "Optionen", "t.BackColor", Default)
t.ForeColor = GetSetting("Atlan", "Optionen", "t.ForeColor", Default)
t.FontSize = Val(GetSetting("Atlan", "Optionen", "t.FontSize", CStr(Default))) ' FontSize einlesen!
t.FontBold = Val(GetSetting("Atlan", "Optionen", "t.FontBold", CStr(Default))) ' FontBold einlesen!
t.FontItalic = Val(GetSetting("Atlan", "Optionen", "t.FontItalic", CStr(Default))) ' FontItalic einlesen!
End If
Next t
End Sub
Private Sub FensterSizeOut() ' <------ Speichern!
Dim t As Control
For Each t In Form1.Controls
If TypeOf t Is TextBox Then
SaveSetting "Atlan", "Optionen", "t.BackColor", t.BackColor
SaveSetting "Atlan", "Optionen", "t.ForeColor", t.ForeColor
SaveSetting "Atlan", "Optionen", "t.FontSize", CStr(t.FontSize) ' FontSize speichern!
SaveSetting "Atlan", "Optionen", "t.FontBold", CStr(t.FontBold) ' FontBold speichern!
SaveSetting "Atlan", "Optionen", "t.FontItalic", CStr(t.FontItalic) ' FontItalic speichern!
End If
Next t
End Sub
Private Sub TextSchriftartCommon()
Dim t As Control
For Each t In Form1.Controls
If TypeOf t Is TextBox Then
t.Font.Name = CommonDialogSchriftart.FontName
t.Font.Bold = CommonDialogSchriftart.FontBold
t.Font.Size = CommonDialogSchriftart.FontSize
t.Font.Italic = CommonDialogSchriftart.FontItalic
End If
Next t
End Sub
Private Sub cmdSchriftartFenster_Click()
On Local Error Resume Next
With CommonDialogSchriftart
.CancelError = True
If Err = 0 Then
.FontBold = Text1.Font.Bold
.FontName = Text1.Font.Name
.FontItalic = Text1.Font.Italic
.FontSize = Text1.Font.Size
.Flags = cdlCFBoth Or &H200000 Or &H100000
.ShowFont
End If
End With
TextSchriftartCommon
End Sub
Private Sub TextHintergrund()
Dim t As Control
For Each t In Form1.Controls
If TypeOf t Is TextBox Then
t.BackColor = CommonDialog1.Color
End If
Next t
End Sub
Private Sub cmdFensterHintergrund_Click()
On Local Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err = 0 Then
TextHintergrund
End If
End With
End Sub
Private Sub FensterVordergrund()
Dim t As Control
For Each t In Form1.Controls
If TypeOf t Is TextBox Then
t.ForeColor = CommonDialog1.Color
End If
Next t
End Sub
Private Sub cmdFensterVordergrund_Click()
On Local Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err = 0 Then
FensterVordergrund
End If
End With
End Sub | |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
Sie sind aktuell nicht angemeldet.
