PDA

Vollständige Version anzeigen : Wie im Textfeld Hintergrund oder Vordergrundfarbe einstellen??????????????


andread
04.10.2001, 11:35
Hallo,
kann man eigentlich in einem Textfeld, ob nun gebunden oder ungebunden, die einzelnen Zeichen, vom Inhalt des Zeichens an der entsprechenden Stelle abhängig, in unterschiedlichen Vordergrund- oder Hintergrundfarben darstellen?
Grüsse
Andrea

andread
04.10.2001, 11:38
habe noch etwas hinzuzufügen::

Ich will einen Zeichenstring der aus 0000 u. 1111 (zb. 0100011111100000) besteht so darstellen das null einen Grünen Hintergrund und eins einen roten Hintergrund erhält.

Gibts vieleicht eine andere Idee so etwas zu realisieren???

Grüsse Andrea

Franz_2
08.10.2001, 15:25
Hallo,
die einzige Möglichkeit die ich sehe besteht darin die Zahl in einem Formular in Ziffern zu zerlegen.
Formular: Zahlen
Feld: Zahl (Zahl die zerlegt werden soll)
Feld: Zahl_1 (ungebunden)
Feld: Zahl_2
...
....


Formular: "Beim Anzeigen" folgende Prozedur

Private Sub Form_Current()
Dim Zahl As String
Dim Zahl_1, Zahl_2, Zahl_3, Zahl_4, Zahl_5, Zahl_6, Zahl_7, Zahl_8 As Integer

Zahl = Me!Zahl
Zahl_1 = Mid(Zahl, 1, 1)
Zahl_2 = Mid(Zahl, 2, 1)
Zahl_3 = Mid(Zahl, 3, 1)
Zahl_4 = Mid(Zahl, 4, 1)
Zahl_5 = Mid(Zahl, 5, 1)
Zahl_6 = Mid(Zahl, 6, 1)
Zahl_7 = Mid(Zahl, 7, 1)
Zahl_8 = Mid(Zahl, 8, 1)


Me![Zahl_1] = Zahl_1
Me![Zahl_2] = Zahl_2
Me![Zahl_3] = Zahl_3
Me![Zahl_4] = Zahl_4

Me![Zahl_5] = Zahl_5
Me![Zahl_6] = Zahl_6
Me![Zahl_7] = Zahl_7
Me![Zahl_8] = Zahl_8

If Zahl_1 = 1 Then
Me![Zahl_1].ForeColor = 255
Else
Me![Zahl_1].ForeColor = 32768
End If

If Zahl_2 = 1 Then
Me![Zahl_2].ForeColor = 255
Else
Me![Zahl_2].ForeColor = 32768
End If

If Zahl_3 = 1 Then
Me![Zahl_3].ForeColor = 255
Else
Me![Zahl_3].ForeColor = 32768
End If

If Zahl_4 = 1 Then
Me![Zahl_4].ForeColor = 255
Else
Me![Zahl_4].ForeColor = 32768
End If

If Zahl_5 = 1 Then
Me![Zahl_5].ForeColor = 255
Else
Me![Zahl_5].ForeColor = 32768
End If

If Zahl_6 = 1 Then
Me![Zahl_6].ForeColor = 255
Else
Me![Zahl_6].ForeColor = 32768
End If

If Zahl_7 = 1 Then
Me![Zahl_7].ForeColor = 255
Else
Me![Zahl_7].ForeColor = 32768
End If

If Zahl_8 = 1 Then
Me![Zahl_8].ForeColor = 255
Else
Me![Zahl_8].ForeColor = 32768
End If


End Sub

Die Zahl in der Tabelle mit dem Felddatentyp Text anlegen (führende 0)

mfg
Franz

andread
08.10.2001, 22:13
danke für den tip,aber wie mache ich das bei 24 zeichenketten mit jeweils 365 zeichen?
andrea

FranzH
12.10.2001, 12:43
Hallo,

leider lassen sich 24x365=8760 Textfeder
nicht in einem Formular unterbringen.

Bei einer Anzahl von 700 und 800 Textfeder bricht Access den Vorgang ab.

mfg

Franz

Mattes
12.10.2001, 13:16
Hallo,

wenn der String immer gleich lang ist, könntest Du ihn doch jedes Zeichen in ein separates Feld schreiben, und bei bedarf den String aus diesen Feldern zusammensetzen.

Wenn das ok ist, gibt keine Probleme mehr mit der Formatierung der Farbe.