Código fuente para "Amigos compradores y vendedores".

Finalmente, el código es el siguiente:

Dim sFind As String 'Comentario: Declara la variable de búsqueda

Dim FileType, FiType As String 'Comentario: Declara el tipo de archivo

Private Sub Form_Load() 'Comentario: Declarar tipo de archivo: Establecer el tamaño cuando se inicia el programa

Me.Startup Size

Me.Height = 6000

Me.Width = 9000

End Sub

Sub privado Form_Resize()

En caso de error, reanudar siguiente 'Comentario:/p>

RichTextBox1.Height = ScaleHeight - 40

RichTextBox1.Width = ScaleWidth - 40

End Sub

Sub privado RichTextBox1_MouseUp( Botón como entero, Mayús como entero , x como único, y como único)

Si KeyCode = vbKeySpace Entonces

RichTextBox1.SelFontName = CommonDialog1.Enabled = False

De lo contrario

xinjian.Enabled = Verdadero

baocun.Enabled = Verdadero

chazhao.Enabled = Verdadero

chazhao1.Enabled = Verdadero

Finalizar si

End Sub

Sub privado shiyong_.Click()

En caso de error, controlador GoTo

RichTextBox1.LoadFile "Readme.txt ", rtfText 'Nota: escriba un archivo Readme.txt y guárdelo en la carpeta donde se encuentra el programa

Me.Caption = "Bloc de notas especial:" & "Instrucciones de uso"

Salga de la subrutina

Handler:

MsgBox "Es posible que el documento de instrucciones haya sido eliminado, comuníquese con el autor.

, vbOKOnly, "Mensaje de error"

End Sub

Sub privado guanyu_Click()

End Sub

Sub privado open_Click()

Atenuar strtxt como cadena

CommonDialog1.FileName = ""

CommonDialog1.Flags = vbofnfilemustexist

CommonDialog1.Filter = "Todos los archivos (*. *)|*.*|word(doc)(*.doc)|*.doc|textfile (*.txt)|*.txt"

CommonDialog1.FilterIndex = 1

RichTextBox1.SelColor = vbGreen

RichTextBox1.Text = ""