HJÆLP TIL TEXT COLOUR OG TEXT FONT !!

hej!!! jeg har lidt problemer i visual basic, fordi jeg er i gang med at lave en text behandling, men jeg kan ikke få det med Skrift type og Skrift farve til at virke nogen der kan hjælpe mig ????

Steffen

Hvad mener du HELT præcist?

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

hej!!! jeg har lidt problemer i visual basic, fordi jeg er i gang med at lave en text behandling, men jeg kan ikke få det med Skrift type og Skrift farve til at virke nogen der kan hjælpe mig ????

http://www.udvikleren.dk/show_article.php?id=87

Btw. så plejer man sq at udlove UP når man stiller et spørgsmål!

/t0wer

Højreklik på toolboxen og vælg "Components..." find komponenterne "Microsoft Rich TextBox Control" og "Microsoft Common Dialog Control", derefter anvender du og klikker på "OK". indsæt de nye komponenter til formen.
Opret en knap(Command1), og sæt Caption-Egenskaben til "Farve" og dobbeltklik på den. Skriv...

CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color
'Skriv kun linjen herunder hvis du vil have fokus på tekstboxen
'efter at man har valgt farven
RichTextBox1.SetFocus


Indsæt endnu en knap(Command2) og sæt Caption-Egenskaben til "Skrifttype"
Dobbeltklik på den og skriv...

On Error GoTo FontErr
CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName
RichTextBox1.SelFontSize = CommonDialog1.FontSize
'Skriv kun linjen herunder hvis du vil have fokus på tekstboxen
'efter at man har valgt skrifttypen
RichTextBox1.SetFocus
Exit Sub
FontErr:
'Du kan også skrive en anden fejl besked
MsgBox "Der opstod en fejl ved udførelsen af kommanden 'Skriftype'", vbCritical

Jeg håber at dette kan hjælpe dig.

Med Venlig Hilsen
Morten Torndahl Pedersen

Højreklik på toolboxen og vælg "Components..." find komponenterne "Microsoft Rich TextBox Control" og "Microsoft Common Dialog Control", derefter anvender du og klikker på "OK". indsæt de nye komponenter til formen.
Opret en knap(Command1), og sæt Caption-Egenskaben til "Farve" og dobbeltklik på den. Skriv...

CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color
'Skriv kun linjen herunder hvis du vil have fokus på tekstboxen
'efter at man har valgt farven
RichTextBox1.SetFocus


Indsæt endnu en knap(Command2) og sæt Caption-Egenskaben til "Skrifttype"
Dobbeltklik på den og skriv...

On Error GoTo FontErr
CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName
RichTextBox1.SelFontSize = CommonDialog1.FontSize
'Skriv kun linjen herunder hvis du vil have fokus på tekstboxen
'efter at man har valgt skrifttypen
RichTextBox1.SetFocus
Exit Sub
FontErr:
'Du kan også skrive en anden fejl besked
MsgBox "Der opstod en fejl ved udførelsen af kommanden 'Skriftype'", vbCritical

Jeg håber at dette kan hjælpe dig.

Med Venlig Hilsen
Morten Torndahl Pedersen

Hey Morten.... tak det virker....

Med Venlig Hilsen
Steffen

Det var da så lidt.