Keskustelu: Koodit: VB6: RichTextBox käsittely

'tekstin valinta = maalaus
RichTextBox1.SelStart = st
RichTextBox1.SelLength = leng

'tekstinkorvaus
RichTextBox1.SelText = txt2

'tekstin luku maalatulta alueelta
txt2 = RichTextBox1.SelText

RichTextBox1.SelColor =vbBlack 'maalatun alueen kirjaimet mustaksi

RichTextBox1.BackColor =vbRed  'koko documentin tausta punaiseksi

RichTextBox1.SelBold = Not RichTextBox1.SelBold ' lihavoinnin vaihto

RichTextBox1.SelText = UCase(RichTextBox1.SelText) ' isoilla kirjaimilla

RichTextBox1.SelItalic = Not RichTextBox1.SelItalic ' kursiivi

RichTextBox1.SelUnderline = Not RichTextBox1.SelUnderline ' alleviivaus

RichTextBox1.SelStrikeThru = Not RichTextBox1.SelStrikeThru ' yliviivaus

'alaviite
If IsNull(RichTextBox1.SelCharOffset) = False Then
       RichTextBox1.SelCharOffset = RichTextBox1.SelCharOffset - RichTextBox1.SelFontSize * 8
   End If

'yläviite
If IsNull(RichTextBox1.SelCharOffset) = False Then
       RichTextBox1.SelCharOffset = RichTextBox1.SelCharOff
set + RichTextBox1.SelFontSize * 8
   End If

RichTextBox1.SelAlignment = 0 ' vasen tasaus

RichTextBox1.SelAlignment = 1 ' oikea tasaus

RichTextBox1.SelAlignment = 2 'tasaus keskelle

'sisennys
If Not IsNull(RichTextBox1.SelIndent) Then RichTextBox1.SelIndent = RichTextBox1.SelIndent + 200

'"ulonnus"
If (RichTextBox1.SelIndent - 200) >= 0 Then
If Not IsNull(RichTextBox1.SelIndent) Then RichTextBox1.SelIndent = RichTextBox1.SelIndent - 200
End If

RichTextBox1.SelBullet = Not RichTextBox1.SelBullet 'luettelomerkki

'fontin pienennys
If RichTextBox1.SelFontSize > 8 Then RichTextBox1.SelFontSize = Int(RichTextBox1.SelFontSize - 1)

'valitse kaikki
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SetFocus

'leikepöydältä
RichTextBox1.SelRTF = Clipboard.GetText 'muotoiltuna
'tai
RichTextBox1.SelTXT = Clipboard.GetText 'raakana

'ja lopuksi makein: undo
RichTextBox1.SetFocus
SendKeys "^z", True