Betinget formatering: skift af farve ved _Change

Hej,

Hvordan laver man en sub, som skifter farven ved at brugeren skriver i textboxen?

Hvilken farve skal skiftes?

hvis du f.esk vil skifte farven på vindeut/formen
når folk skrive i en tekstbok kan du som du nævner bruge _Change

her er et eks. der skifter baggrundsfarven når folk skrive
i en tekstboks.
farven skiftes til en tilfældig.

<pre>
Private Sub Text1_Change()
Dim Farve As Long

Randomize Time

Farve = Int((Rnd * 65535) + 1)
Form1.BackColor = Farve
End Sub
</pre>

-Thomas
**************************************
Hvis mennesker er så kloge, hvorfor ødelægger
vi så os selv og den verden vil lever i?
**************************************
I mod softwarer patenter
http://www.nosoftwarepatents.com/

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Hej,

Hvordan laver man en sub, som skifter farven ved at brugeren skriver i textboxen?

Hvilken farve skal skiftes?

hvis du f.esk vil skifte farven på vindeut/formen
når folk skrive i en tekstbok kan du som du nævner bruge _Change

her er et eks. der skifter baggrundsfarven når folk skrive
i en tekstboks.
farven skiftes til en tilfældig.

<pre>
Private Sub Text1_Change()
Dim Farve As Long

Randomize Time

Farve = Int((Rnd * 65535) + 1)
Form1.BackColor = Farve
End Sub
</pre>

-Thomas
**************************************
Hvis mennesker er så kloge, hvorfor ødelægger
vi så os selv og den verden vil lever i?
**************************************
Imod softwarepatenter
http://www.nosoftwarepatents.com/

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

****************************************************
Hej Thomas,

Det var rart med et eksempel; men jeg vil ændre farven i den aktuelle textbox jeg er i. Jeg har lavet BackColor til &H00E0E0E0& (grå), og når brugeren begynder at skrive, så skulle den skifte til &H80000005& (hvid); men det er ikke lykkedes for mig endnu.
Jeg får nemlig en fejlmelding, når jeg bruges textboxens eget navn - sjovt nok...

/Martin

Hej,

Hvordan laver man en sub, som skifter farven ved at brugeren skriver i textboxen?

Hvilken farve skal skiftes?

hvis du f.esk vil skifte farven på vindeut/formen
når folk skrive i en tekstbok kan du som du nævner bruge _Change

her er et eks. der skifter baggrundsfarven når folk skrive
i en tekstboks.
farven skiftes til en tilfældig.

<pre>
Private Sub Text1_Change()
Dim Farve As Long

Randomize Time

Farve = Int((Rnd * 65535) + 1)
Form1.BackColor = Farve
End Sub
</pre>

-Thomas
**************************************
Hvis mennesker er så kloge, hvorfor ødelægger
vi så os selv og den verden vil lever i?
**************************************
Imod softwarepatenter
http://www.nosoftwarepatents.com/

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

****************************************************
Hej Thomas,

Det var rart med et eksempel; men jeg vil ændre farven i den aktuelle textbox jeg er i. Jeg har lavet BackColor til &H00E0E0E0& (grå), og når brugeren begynder at skrive, så skulle den skifte til &H80000005& (hvid); men det er ikke lykkedes for mig endnu.
Jeg får nemlig en fejlmelding, når jeg bruges textboxens eget navn - sjovt nok...

/Martin

Jeg har ingen problemer.

<pre>

Private Sub Text1_Change()
Text1.BackColor = &H80000005
End Sub

</pre>

og helelr ikke med forecolor

<pre>
Private Sub Text1_Change()
Text1.ForeColor = &H80000005
End Sub
</pre>

hvilken fejlmeldning får du?

-Thomas
**************************************
Hvis mennesker er så kloge, hvorfor ødelægger
vi så os selv og den verden vil lever i?
**************************************
I mod softwarer patenter
http://www.nosoftwarepatents.com/

-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41