Red de conocimiento informático - Conocimiento del nombre de dominio - ¿Cómo programar usando el Bloc de notas?

¿Cómo programar usando el Bloc de notas?

Aprende a hacer un bloc de notas conmigo - Ejemplo de programación

No es muy complicado usar VB para hacer un bloc de notas. Podemos hacerlo fácilmente a través del asistente. Pero este artículo sólo pretende discutir el método manual de hacer blocs de notas, con el objetivo de mostrar a los principiantes de VB: ¡aprender VB resulta ser muy fácil!

Al leer, estudiar este artículo y probarlo como se describe en este artículo, los principiantes aprenderán mucho, como cómo usar el control RichText para abrir y guardar archivos, cómo crear menús, barras de herramientas, y barras de estado, y cómo escribirle código, etc.

Capítulo 1 Deje que nuestro bloc de notas se ejecute inmediatamente

Estar ansioso por triunfar es el deseo más común de los principiantes. Bueno, siga los siguientes tres pasos y nuestro deseo se hará realidad de inmediato.

Paso 1: Dibujar la interfaz.

Cree un nuevo proyecto EXE estándar, cambie su propiedad Título a "Super Bloc de notas" y haga clic en la propiedad Icono para encontrar un icono adecuado para él. Haga clic en el menú "Proyecto" - "Componentes", busque Microsoft

RichText Box 6.0 y Microsoft Common Dialog 6.0 en el cuadro de diálogo emergente "Componentes" y selecciónelos, haga clic en el botón "Aceptar". En este momento, los dos nuevos controles que acabamos de agregar aparecen en la barra de herramientas izquierda. Dibuje el cuadro RichText

y el cuadro de diálogo Commn en el formulario. El tamaño y la posición del cuadro RichText se pueden ignorar. Por supuesto, es necesario establecer su propiedad ScrollBar. 2- rtfVertical para que las barras de desplazamiento verticales estén disponibles al abrir y editar archivos.

Paso 2: Editar menú.

Presione Ctrl+E para abrir el editor de menús. Hagamos los siguientes menús:

1 Menú Archivo:

Archivo (primera capa) mnuFile<. /p>

Nuevo (segunda capa) mnuNew

Abrir (segunda capa) mnuOpen

Guardar (segunda capa) mnuSave

- (Segundo nivel) mnuFileSep (separador)

Salir (segundo nivel) mnuExit

2 Menú Edición:

Editar (primer nivel) mnuEdit

Copiar. (segunda capa) mnuCopy

Cortar (segunda capa) mnuCut

Pegar (segunda capa) mnuPaste

- (Segunda capa) mnuEditSep (separador)

Seleccionar todo (segunda capa) mnuSelecAll

3. Menú de búsqueda:

Buscar (primera capa) mnuSearch

Buscar (segunda capa) mnuFind

Busca el siguiente (segunda capa) mnuFindOn

4. Menú Ayuda:

Ayuda (primer nivel) mnuHelp

Instrucciones de uso ( segundo nivel) mnuUsage

Acerca de (segundo nivel) mnuAbout

(Nota: cada menú configure usted mismo las teclas de acceso directo para los elementos)

Está bien, otro menú Los elementos se agregarán según sea necesario más adelante. Ahora ingresa:

Paso 3: Escribe el código.

'Declarar la variable de búsqueda

Dim sFind As String

'Declarar el tipo de archivo

Dim FileType, FiType As String

'Inicializar programa

Private Sub Form_Load()

'Establecer el tamaño cuando se inicia el programa

Me.Height = 6000

Me.Width = 9000

End Sub

'Establecer la posición y el tamaño del cuadro de edición

Private Sub Form_Resize()

En caso de error, continuar con el siguiente 'Manejo de errores

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height = ScaleHeight-40

RichTextBox1.Width = ScaleWidth-40

End Sub

'Nuevo archivo

Sub privado mnuNew_Click()

RichTextBox1.Text = "" 'Borrar el cuadro de texto

FileName = "Sin nombre"

Me.Caption = FileName

End Sub

'Abrir el archivo

Private Sub mnuOpen_Click()

CommonDialog1.Filter = "Documento de texto (*.txt)|*.txt|Documento RTF (*.rtf)| *.rtf|Todos los archivos (*.*)|*.*"

CommonDialog1.ShowOpen

RichTextBox1.Text = "" 'Borrar el cuadro de texto

FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName

Me.Caption = "Super Notepad:" & FileName

End Sub

'Guardar archivo

p>

Private Sub mnuSave_Click()

CommonDialog1.Filter = "Documento de texto (*.txt)|*.txt|Documento RTF (*.rtf)| *.rtf|Todos los archivos (* .*)|*.*"

CommonDialog1.ShowSave

FileType = CommonDialog1.FileTitle

FiType = LCase(Derecha (FileType, 3))

FileName = CommonDialog1.FileName

Seleccione Case FiType

Caso "txt"

RichTextBox1.SaveFile FileName , rtfText

Caso "rtf"

RichTextBox1.SaveFile FileName, rtfRTF

Caso "*.*"

RichTextBox1.SaveFile FileName

End Select

Me.Caption = "Super Notepad:" & FileName

End Sub

'Salir

Privado

Sub mnuExit_Click()

End

End Sub

'Copiar

Sub privado mnuCopy_Click()

Portapapeles .Clear

Clipboard.SetText RichTextBox1.SelText

End Sub

'Cut

Sub privado mnuCut_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = ""

End Sub

'Selección completa

Sub privado mnuSelectAll_Click()

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text)

End Sub

'Pegar

Sub privado mnuPaste_Click()

RichTextBox1.SelText = Clipboard.GetText

End Sub

'Buscar

Private Sub mnuFind_Click()

sFind = InputBox("Ingrese las palabras que desea buscar:", "Buscar contenido",

sFind)

RichTextBox1.Find sFind

End Sub

'Continuar buscando

Sub privado mnuFindOn_Click()

RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

RichTextBox1.Find sFind, , Len(RichTextBox1)

End Sub

'Uso Descripción

Private Sub mnuReadme_Click()

En caso de error, controlador GoTo

RichTextBox1.LoadFile "Readme.txt", rtfText 'Escriba el archivo Readme.txt y Guárdalo en la carpeta donde se encuentra el programa

Me.Caption = "Super Notepad:" & "Instructions"

Salir de Sub

handler:

MsgBox "Es posible que se haya eliminado el manual de instrucciones; comuníquese con el autor.

",

vbOKOnly, " Mensaje de error"

End Sub

'Acerca de

Sub privado mnuAbout_Click()

MsgBox "Super Notepad Ver1.0 Copyright (C) 2001 Turen",vbOKOnly,"About"

End Sub

'Establecer el menú emergente (es decir, cuando editando El menú dinámico que aparece cuando se hace clic con el botón derecho del mouse en el cuadro)

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

Si el botón = 2, entonces

PopupMenu mnuEdit, vbPopupMenuLeftAlign

De lo contrario

Salir de Sub

Fin If

End Sub

'Evita que la fuente cambie al cambiar los métodos de entrada (Gracias al Sr. Wang Bicheng por brindar esta solución)

Private Sub RichTextBox1_KeyUp( KeyCode como entero, Shift como entero)

p>

Si KeyCode = vbKeySpace Entonces

RichTextBox1.SelFontName = CommonDialog1.FontName

Finalizar si

End Sub

Esto es todo, nuestro bloc de notas se puede compilar y usar. Haga clic en el menú "Archivo" - "Generar XXX.EXE", regrese al escritorio y ejecute nuestro bloc de notas. de logro?

Por supuesto, este tipo de bloc de notas todavía es relativamente tosco, todavía tenemos que trabajar un poco, consulte el siguiente capítulo

Capítulo 2 Embellecimiento de la interfaz del programa

p>

La mayoría del software de procesamiento de números tiene barras de herramientas y barra de estado. Además de embellecer nuestro programa y hacerlo más profesional, ahora haremos estas dos cosas 1. Barra de herramientas

(1) Crear barra de herramientas.

Haga clic en "Proyecto" - "Componentes", seleccione Microsoft Windows Common Control 6.0 y confirme. En este momento, queremos usarlo. El control aparece en la barra de herramientas izquierda. Para crear una barra de herramientas, primero necesita un control llamado ImageList para cargar imágenes. Agréguelo en la interfaz del programa, luego haga clic derecho en este control, haga clic izquierdo en "Propiedades", abra "Imagen" en el cuadro de diálogo "Página de propiedades" y luego haga clic en "Insertar imagen" para cargar la imagen de una vez (como como si no estás satisfecho, puedes agregarlo más tarde). Las imágenes se pueden seleccionar en C:Microsoft

Visual StudioCommonGraphicsBitmapsTlBr_W95 (suponiendo que su VB esté instalado en la unidad C). Nota: Al insertar imágenes, agregue palabras clave a cada imagen para que no haya confusión al hacer referencia a las imágenes. Si inserta una imagen "nueva", indicamos "Nueva" en la columna "Palabra clave".

Ahora que la imagen está ahí, agreguemos una barra de herramientas (ToolBar) a la interfaz del programa. Después de agregar la barra de herramientas, aparecerá debajo del menú. Haga clic derecho, seleccione "Propiedades" y realice algunas configuraciones para el elemento "General" en el cuadro de diálogo emergente "Página de propiedades", principalmente de la siguiente manera:

1. "Lista de imágenes": seleccione ImageList1

2. "Estilo": seleccione 1-trbStandard o 2-trbFlat según su preferencia

Continúe haciendo clic en "Botón" de la opción "Página de propiedades" para insertar algunos botones. Hay muchos estilos de botones, configúrelos según sus necesidades.

Tenga en cuenta aquí: cada botón relacionado con la operación del usuario debe estar marcado con palabras clave e imágenes cargadas, como el botón "Nuevo", marque "Nuevo" en el elemento "Palabras clave" y escriba "Nuevo" en el elemento "Imagen". (Es decir, la palabra clave de imagen en ImageList1), si es necesario, también puede completar las indicaciones correspondientes en el elemento "Texto de información sobre herramientas".

(2) Escribir el código del botón de la barra de herramientas

La edición del código del botón de la barra de herramientas es muy simple y se puede escribir en el siguiente formato:

Private Sub ToolBar1_ButtonClick (botón ByVal como MSComctlLib.Button)

En caso de error, reanudar siguiente 'Manejo de errores

Seleccione caso Button.Key 'Seleccione por palabra clave

Caso "Nuevo"

mnuNew_Click 'Igual al elemento de menú "Nuevo" en el que se hace clic

Caso "Abrir" 'Igual al elemento de menú "Abrir" en el que se hace clic

mnuOpen_Click

'......(Continuar escribiendo el código para otros botones)

End Select

End Sub

Después de completar , intente ejecutar nuestro programa, descubrimos que con la barra de herramientas, el programa se volvió mucho más hermoso, pero solo había un problema: después de abrir un documento largo, la flecha hacia arriba de la barra de desplazamiento desplegable del cuadro de edición desaparecía. La razón es: la barra de herramientas ocupa cierta cantidad de espacio. Solución: Cambie RichTextBox1.Top

= 20 y RichTextBox1.Height = Me.ScaleHeight - 40 en "Establecer la posición y el tamaño del cuadro de edición" a RichTextBox1.Top =

380 , RichTextBox1.Height = Me.ScaleHeight - 400.

2. Barra de estado

(1) Creación de barra de estado

El nombre en inglés de la barra de estado es StatusBar. Después de agregarla al formulario, aparecerá. aparecen por defecto en la parte inferior del formulario. Haga clic derecho para abrir el cuadro de diálogo "Páginas de propiedades", haga clic en el elemento "Panel", inserte algunos paneles y establezca el "Estilo" de cada panel en:

0-sbrText Mostrar texto, necesita escribir código

1-sbrCaps Estado de la caja de visualización, no requiere programación

2-sbrNum Muestra el estado del interruptor de tecla NumLock, no requiere programación

3- sbrIns muestra el estado de Insertar clave sin programación

4-sbrScr1

5-sbrTime muestra la hora La hora no cambiará con el reloj del sistema sin programación

6. - sbrDate muestra la fecha sin programación

Nota: Después de agregar la barra de estado, debe cambiar RichTextBox1.Height =

Me.ScaleHeight - 400 en Form_Resze a RichTextBox1.Height = Me .EscalaAltura - 600.

(2) La barra de estado determina si se debe escribir código en función de su atributo "estilo" (como se mencionó anteriormente). A continuación se muestran algunos ejemplos para que los lectores puedan reflexionar detenidamente y sacar inferencias.

Ejemplo 1: Después de que el usuario seleccione "Nuevo", deje que el primer panel muestre: "Estado actual: Abriendo archivo "...". Escriba el siguiente código en el menú "Abrir":

StatusBar1.Panels(1).Text = "Estado actual: Abriendo archivo"

& "《" &CommonDialog1.FileTitle & "》"

Ejemplo 2: Deje que el tercer panel muestre la hora y deje que la hora siga el reloj del sistema.

Primero, agregue un control Temporizador al programa y establezca su propiedad Intervalo en 1000.

Luego:

Agregue el proceso Form_Load: StatusBar1.Panels(1).Text = Time; luego escriba el código para el control Timer:

Private Sub Timer1_Timer()

Si StatusBar1.Panels(3).Text > CStr(Time) Entonces

StatusBar1.Panels(3).Text = Time

Finalizar si

End Sub

Ejemplo 3: Cuando el texto del cuadro de edición cambia, deje que el primer panel muestre: "Edición de documento: nombre de archivo".

Private Sub RichTextBox1_Chang()

StatusBar1.Panels(1).Text = "Editando documento:" &

CommonDialog1.FileName

End Sub

Después de trabajar duro durante tanto tiempo, ahora tenemos un bloc de notas decente. Debido a que este Bloc de notas utiliza el control RichText, en teoría puede abrir y editar documentos de cualquier tamaño y, de hecho, es mucho más conveniente de usar que el Bloc de notas que viene con Windows. Por supuesto, hay algunas otras funciones que deben agregarse y mejorarse, y depende de usted completarlas lentamente.