12. september 2005 - 21:36Der er
9 kommentarer og 1 løsning
Find og erstat i Richtextbox
I en richtextbox vil jeg godt kunne skifte f.eks. :o) ud med en smiley fra Wingdings fonten. Fonten for boxen er default sat til Verdana. Jeg har prøvet nedenstående kode, men den indsætter automatisk en ENTER efter at den har skiftet :o) uf med smileyen og det ødelægger jo resten af teksten. Rt3 er en richtextbox hvis indhold er smileyen fra wingdings.
A = Rt2.Find(":o)") If A > 0 Then With Rt2 Rt2 = Replace(Rt2, ":o)", "J") .SelStart = A .SelLength = 1 .SelFontName = "Windings" .SelFontSize = 20 End With End If
Hvis der altid er mellemrum på beggesider af :o), kan denne måske bruges
Rt2 = Replace(Rt2, ":o)", "J") A = Rt2.Find(" J ") do If A > 0 Then With Rt2 .SelStart = A+1 .SelLength = 1 .SelFontName = "Windings" .SelFontSize = 20 End With End If loop until A < 1
Rt2 = Replace(Rt2, ":o)", "J") A = Rt2.Find(" J ") do If A > 0 Then With Rt2 .SelStart = A+1 .SelLength = 1 .SelFontName = "Windings" .SelFontSize = 20 End With End If A = Rt2.Find(" J ") loop until A < 1
Jeg ligger konverteringen på hylden. Jeg har modificeret føromtalte så det passer ind i mit program. Men smid alligevel et svar, du har fortjent points.. :o)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
