BLOC DE NOTAS DE UN FORMULARIO

Private Sub Form_Load()

End Sub

Private Sub mnuabrir_Click()

CommonDialog1.ShowOpen

RichTextBox1.LoadFile (CommonDialog1.FileName)

End Sub

Private Sub mnucerrar_Click()

End

End Sub

Private Sub mnucolor_Click()

CommonDialog1.ShowColor

RichTextBox1.SelColor = CommonDialog1.Color

End Sub

Private Sub mnucolorfondo_Click()

CommonDialog1.ShowColor

RichTextBox1.BackColor = CommonDialog1.Color

End Sub

Private Sub mnucopiar_Click()

On Error Resume Next

Clipboard.SetText (RichTextBox1.SelRTF)

End Sub

Private Sub mnucortar_Click()

On Error Resume Next

Clipboard.SetText (RichTextBox1.SelRTF)

RichTextBox1.SelText = vbNullString

End Sub

Private Sub mnuestilo_Click()

On Error Resume Next

CommonDialog1.ShowFont

End Sub

Private Sub mnuguardar_Click()

CommonDialog1.ShowSave

RichTextBox1.SaveFile (CommonDialog1.FileName)

End Sub

Private Sub mnuimprimir_Click()

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums

If RichTextBox1.SelLength = 0 Then

CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages

Else

CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection

End If

CommonDialog1.ShowPrinter

Printer.Print ""

RichTextBox1.SelPrint CommonDialog1.hDC

End Sub

Private Sub mnunuevo_Click()

RichTextBox1.Text = ""

End Sub

Private Sub mnupegar_Click()

On Error Resume Next

RichTextBox1.SelRTF = Clipboard.GetText

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Index

Case 1

RichTextBox1.Text = ""

Case 2

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums

If RichTextBox1.SelLength = 0 Then

CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages

Else

CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection

End If

CommonDialog1.ShowPrinter

Printer.Print ""

RichTextBox1.SelPrint CommonDialog1.hDC

Case 3

CommonDialog1.ShowSave: RichTextBox1.SaveFile (CommonDialog1.FileName)

Case 4

If (RichTextBox1.SelBold = True) Then

RichTextBox1.SelBold = False

Else

RichTextBox1.SelBold = True

End If

Case 5

If (RichTextBox1.SelItalic = True) Then

RichTextBox1.SelItalic = False

Else

RichTextBox1.SelItalic = True

End If

Case 6

If (RichTextBox1.SelUnderline = True) Then

RichTextBox1.SelUnderline = False

Else

RichTextBox1.SelUnderline = True

End If

End Select

End Sub