Keskustelu: Ohjelmointikysymykset: VB6: RTF-formaatin hyödyntäminen VB:llää

Eli miten Rich Text Controlia voi hyödyntää, ts. miten koodista käsin voi lihavoida tiettyjä sanoja, värjätä sanoja toisin, kaikkea sellaista.. Kyllä, kyllä; katsoin kyllä sen trinitin tekemän Html:n värikoodauksen, mutta en saanut mitään selvää siitä, eikä se kaiken lisäksi toiminut, edes parin korjauksen myötä!

lainaus:

Eli miten Rich Text Controlia voi hyödyntää, ts. miten koodista käsin voi lihavoida tiettyjä sanoja, värjätä sanoja toisin, kaikkea sellaista..

Ohjeista löytyy kun etsit esimerkiksi hakusanoilla "SelBold property". Sieltä löytyy ainakin "SelBold, SelItalic, SelStrikethru, SelUnderline, SelColor, SelFontName, SelFontSize". Nuo kaikki taisivat vaikuttaa rtf:ssä valittuna olevaan tekstiin.

Esimerkki:

' RichTextBoxin nimi on rtf

' Valitaan kaikki tekstit rtf:stä
rtf.SelStart = 0
rtf.SelLength = Len(rtf.Text)

' Muokataan tekstiä
rtf.SelBold = True
rtf.SelColor = vbRed
rtf.SelStrikethru = True

rtf.SelLength = 0

En testannut käytännössä esimerkkiä, mutta tuohon tapaan se menee.

lainaus:

Kyllä, kyllä; katsoin kyllä sen trinitin tekemän Html:n värikoodauksen, mutta en saanut mitään selvää siitä, eikä se kaiken lisäksi toiminut, edes parin korjauksen myötä!

No mikäs siinä oli?

Joo, kiitoksia avusta!

lainaus:

No mikäs siinä oli?

Ensin puuttui olio cd, jonka minä sitten tein.. (oletin cd:n tarkoittavan Common Dialogia) Silloin itse softa käynnistyi, mutta sitten klikkauksen myötä tuli taas ajonaikainen erhe.. Lopulta sitten lisäsin strTextToColor-muuttujan sinne ColorTagsin yläreunaan muiden muuttujamäärittelyjen seuraksi.. sitten se rupesikin toimimaan.. miten se on voinut mennä läpi toimien jollain koneella ?)

Joo sieltä on jäänyt näköjään kirjoittamatta että koodivinkki tarvitsee myös CommonDialogin jonka nimeksi pistetään "cd".

Mutta kyllä se muuten toimii ihan sellaisenaan. Kokeilin sitä äsken luomalla uuden projektin ja kopioimalla koodit oikeisiin paikkoihin vinkin mukaan ja heti onnistui. Käytössä VB 6.0 ja Service Pack 5. Et sattuisi muistamaan sitä ajonaikaisen virheen ilmoitusta?

Onko kenelläkään muulla ollut ongelmia tuon ColorTAGS:n kanssa?

Eihän se muuta kun Variable Not Defined.. sama juttu sitten sen strTextToColor-stringin kanssa..

lainaus:

Eihän se muuta kun Variable Not Defined.. sama juttu sitten sen strTextToColor-stringin kanssa..

Pistä "strTextToColor = ctrl.Text" riviä ennen rivi "Dim strTextToColor As String" niin ei pitäisi tulla tuon kohdalla "Variable Not Defined" virhettä.