Mange farver i rich vha kode

jeg har ikke meget forstand på rich text så meget, men vil tro jelzin snart kommer og hjælper dig med den :-)


(hvad mener du med den ikke virker? bliver tekstfeltet ikke tomt? farver den noget forkert?)

det eneste jeg lige tænker er \"ColorConstants\", du dimensionerer den, men putter ikke værdier i den? har du kørt sub\'en choosecolor forinden (men hvis du har en global variabel eller en form-variabel hvorfor så dimensionere igen)? vil du køre choosecolor sub\'en hver eneste gang brugeren taster noget ind i chatfeltet (sløver dit projekt ned)?

jeg vil tro du med fordel kunne gemme \"farve\" i en global variabel efter du har kørt sub\'en choosecolor (som jeg stærkt vil anbefale bliver lavet om til en commandbutton som vælger farve med commondialog eller en array af optionbuttons\'s click event)

jeg anbefale dig at lave alle dine choose color textboxe med farve om...

da du skal vælge en farve så kan du enten lade brugeren vælge mellem optionbuttons, eller du kan simpelthen lade en commondialog hvor brugeren vælger en farve, hvorefter farvens hexadecimale værdi er puttet i en variabel som du gemmer, så du ikke skal aflæse et textfelt (og spilde tid på at tjekke om brugeren taster tal eller bogstaver (med eller uden stavefejl og capslock) eller negative værdier eller kommaer).

Problemet er at når den adderede tekst i RTB\'en farves, så bliver resten af teksten i RTB\'en ensfarvet, men dog ikke samme farve, som den adderede.

*********************
Eksempel:

< Udgangspunkt: >

Første linje(med sort)
Anden linje(med rødt)

< Nu adderes 3. linje >

Første linje (med sort)
Anden linje (med sort)
Trejde linje med (blå)

< og læg så mærke til, at nu er linje 2 ikke længere rød. Den er blevet ændret til sort udenom koden. HVORFOR? >
********************

/ martin

hej martin jeg havde lige 5 minutter :0) - jeg har ikke tid til at læse hele dit sp igennem, men jeg har da lavet et program der \"beholder\" farverne. det du skal sørge for er at det kun er den tekst du vil farve der er markeret. alternativ kan du lave et array der indeholder postitioner for de forskellige farvninger.

koden til mit prog. :
Private Sub Command1_Click()
    RichTextBox1.filename = \"\"
End Sub

Private Sub Command3_Click()
    CommonDialog1.ShowColor
    RichTextBox1.SelColor = CommonDialog1.Color
End Sub
Private Sub Command5_Click()
    End
End Sub

Private Sub Command1_Click()
    Dim openfilename As String
    CommonDialog1.ShowOpen
    openfilename = CommonDialog1.filename
    RichTextBox1.filename = openfilename
End Sub

Private Sub Command4_Click()
    Dim saveFilaName As String
    CommonDialog1.ShowSave
    savefilename = CommonDialog1.filename
    RichTextBox1.SaveFile (savefilename)
End Sub

Private Sub Form_Load()

End Sub

Private Sub mnuNew_Click()
    RichTextBox1.Text = \"\"
End Sub

Private Sub mnuOpen_Click()
    Dim openfilename As String
   
    CommonDialog1.ShowOpen
    openfilename = CommonDialog1.filename
    RichTextBox1.filename = openfilename
End Sub

Private Sub mnuPaste_Click()
    Dim data As String
    data = Clipboard.GetText()
    RichTextBox1.Text = RichTextBox1.Text & data
End Sub

Private Sub mnuQuit_Click()
    End
End Sub

det er sikkert ikke helt det du leder efter men spørg bare igen.

//*Jelzin101

1) når du skriver

SelLength = Len(rich1.Text)

betyder det at den farve skal påføres et stykke tekst som er ligeså langt som alt teksten, derfor kommer du til at farve al teksten istedetfor kun det nye du har tilføjet

2)

det bliver sort fordi du ikke har puttet nogen værdi i variablen farve og derfor er den lig med 0 og nul er sort i vb.


så


hvis du laver det om til at putte noget værdi i farve (det jeg skrev tidligere - det der med colorcontants som ikke virker) og ændrer den første SelLength til Len(chatinput.Text) vil jeg tro det hjælper :-) så vil den vælge en anden farve end sort og den vil ikke farve det hele.

Nej, det er ikke helt rigtigt - eller også misforstår vi bare hinanden lidt.

Den farver den rigtige tekst og den tilføjer og markerer på den rigtige måde - der er ingen problemer der...

Men når markeres formateres til en anden farve, så bliver det undenfor markeringen sat til defualt - altså sort tekst.

Det hjælper ikke, at ændre len(rich1.text) til len(chatinput.text) - det giver samme udslag... :(

/ Martin

jeg har lavet mig et lille \"testprojekt\" (med en rich og en commandbutton og et chatinput felt) hvor jeg har to optionbuttons med farver (fordi jeg er doven til at lave variabler definerer jeg bare at den farve man skriver med et optionbutton\'ens baggrundsfarve) og i mit projekt skal man vælge farve (har ikke sat en default værdi):

Dim farve

Private Sub Command1_Click()
    Rich1.SelText = chatinput.Text & vbCrLf
End Sub

Private Sub optFarve_Click(Index As Integer)
    If optFarve(Index).Value = True Then farve = optFarve(Index).BackColor
    Rich1.SelColor = farve
End Sub

det virker fint, jeg kan skrive alle de linjer skiftevis rød og blå som jeg har lyst til :-)

Tak for hjælpen - det virker fint! :)