VBSample project - Technical -frmDocument - Controls
Controls of frmDocument

rtfText

private sub rtfText_SelChange( )

General information
Full name rtfText.rtfText_SelChange
Access private
Overload of  

Source code
Private  Sub rtfText_SelChange()
    fMainForm.tbToolBar.Buttons( "Bold").Value = IIf(rtfText.SelBold, tbrPressed, tbrUnpressed)
    fMainForm.tbToolBar.Buttons( "Italic").Value = IIf(rtfText.SelItalic, tbrPressed, tbrUnpressed)
    fMainForm.tbToolBar.Buttons( "Underline").Value = IIf(rtfText.SelUnderline, tbrPressed, tbrUnpressed)
    fMainForm.tbToolBar.Buttons( "Left").Value = IIf(rtfText.SelAlignment = rtfLeft, tbrPressed, tbrUnpressed)
    fMainForm.tbToolBar.Buttons( "Center").Value = IIf(rtfText.SelAlignment = rtfCenter, tbrPressed, tbrUnpressed)
    fMainForm.tbToolBar.Buttons( "Right").Value = IIf(rtfText.SelAlignment = rtfRight, tbrPressed, tbrUnpressed)
End  Sub

Referenced classes

Full name
rtfText
Buttons
tbToolBar

Referenced properties
Full name Scope
RichTextBox.SelAlignment attribute
RichTextBox.SelUnderline attribute
RichTextBox.SelItalic attribute
RichTextBox.SelBold attribute
ModMain.fMainForm attribute




Document created on Wednesday 20 March 2002 at 09:57 by Visual Expert