URL del código fuente de vb de emergencia

Control de diálogo común. El siguiente es el código completo

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

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

Private Sub Form_Load () 'Comentario: Tipo de archivo de declaración: Establecer el tamaño cuando se inicia el programa

Me.Height (altura) como cadena

Me.Height = 6000

Me .Width = 9000

Fin Sub

Sub privado Form_Resize()

En caso de error, reanudar siguiente 'Comentario: manejo de errores

RichTextBox1. /p>

RichTextBox1.Height = ScaleHeight - 40

RichTextBox1.Width = ScaleWidth - 40

End Sub

Subprivado 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 = True

baocun.Enabled = True

chazhao.Enabled = True

chazhao1.Enabled = True

Finalizar si

End Sub

Private Sub shiyong_.Click()

En caso de error Ir al controlador

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

Me.Caption = "Especial Bloc de notas:" & "Nota de uso: "

Salir de subrutina

Handler:

MsgBox" Es posible que se haya eliminado la documentación de uso; comuníquese con el autor.

, vbOKOnly, "Mensaje de error"

End Sub

Private Sub 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 = ""