nose

Public Sub mnuArchivo_Guardar_Click(ByVal sender As Object, …)
With sdgEditor
.Title = "Guardar archivo de texto enriquecido"
.Filter = "Archivo de textoenriquecido (*.rtf)|*.rtf"
If .ShowDialog()=DialogResult.OK And .FileName"" Then
Dim X As RichTextBox = _Me.ActiveMDIChild.ActiveControl()
X.SaveFile(.FileName)Cambiar_Nombre(.FileName)
End If
End With
End Sub

Public Sub mnuArchivo_Salir_Click(ByVal sender As Object, …)
End
End SubProgramar las opciones del menú “Edición”, tal como sigue:

Public Sub mnuEdicion_Copiar_Click(ByVal sender As Object, …)
Dim X As RichTextBox = Me.ActiveMDIChild.ActiveControl()ClipBoard.SetDataObject(X.SelectedText)
End Sub

Public Sub mnuEdicion_Cortar_Click(ByVal sender As Object, …)
Dim X As RichTextBox = Me.ActiveMDIChild.ActiveControl()ClipBoard.SetDataObject(X.SelectedText)
X.SelectedText = ""
End Sub

Public Sub mnuEdicion_Pegar_Click(ByVal sender As Object, …)
Dim X As RichTextBox =Me.ActiveMDIChild.ActiveControl()
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.RTF) Then
X.SelectedText = iData.GetData(DataFormats.Text)End If
End Sub

A continuación, escribir código para las opciones del menú “Formato”:

Public Sub mnuFormato_Fondo_Click(ByVal sender As Object, …)
Dim X As RichTextBox =Me.ActiveMDIChild.ActiveControl()
With cdgEditor
If .ShowDialog() = DialogResult.OK Then
X.BackColor = .Color
End If
End With
End SubPublic Sub mnuFormato_Fuente_Click(ByVal sender As Object, …)
Dim X As RichTextBox = Me.ActiveMDIChild.ActiveControl()
With fdgEditor
.ShowColor = True...