¿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 p>
'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)) p>
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: p >
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: p>
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.