Diagrama de flujo de datos de VB
Contenido
Resumen
RESUMEN
Prólogo
Capítulo 1 ¿Por qué deberíamos desarrollar un expediente estudiantil? sistema de gestión?
Capítulo 2 Las computadoras se han convertido en un poderoso asistente en nuestro estudio y trabajo
1.1 La importancia del uso de computadoras para administrar los archivos de los estudiantes en las escuelas primarias y secundarias
1 2 Prepárese para la futura conexión a Internet de la escuela
1.4 Análisis de diseño de archivos de estudiantes
Capítulo 3 ¿Cómo desarrollar un sistema de gestión de archivos de estudiantes?
2.1 Selección del entorno de programación
2.2 Implementación de base de datos relacional
2.3 Combinación de los dos (DBA)
Capítulo 4 Introducción a el entorno de programación Visual Basic en Windows
3.1 Adiós a la era del "hola mundo"
3.2 Programación orientada a objetos
3.3 Implementar opciones de menú
3.4 Implementar barra de herramientas
3.5 Ayuda
3.6 Acerca del sistema
Capítulo 5 Utilice Access2000 para implementar una base de datos relacional
4.1 Concepto de base de datos
4.2 Crear una nueva base de datos
4.3 Modificar la base de datos existente
4.4 Realizar la conexión entre bases de datos
Capítulo 5 Sistema Planificación general
5.1 Función del sistema
5.2 Diagrama de flujo
Capítulo 6 Implementación específica del sistema
6.1 Implementación de la interfaz de usuario
6.1.1 Portada
6.1.2 Interfaz principal
6.1.3 Sistema de ayuda
6.2 Implementación de base de datos
6.2 .1 Base de datos de estado de estudiantes
6.2.2 Base de datos de calificaciones de estudiantes
6.2.3 Base de datos de cursos
6.3 Conexión con VB
Capítulo 7 Conclusión
Referencias principales del Capítulo 8
Apéndice
-------------Resumen--- ------ -----
El sistema de gestión de archivos de estudiantes es un sistema de gestión de información (MIS) típico. Su desarrollo incluye principalmente el establecimiento y mantenimiento de la base de datos back-end y el desarrollo de aplicaciones front-end. aspecto. Para el primero, es necesario establecer una biblioteca con una sólida coherencia e integridad de los datos y una buena seguridad de los datos. Para esto último, se requiere que la aplicación sea completamente funcional y fácil de usar.
Después del análisis, utilizamos la herramienta de desarrollo VISUAL BASIC de MICROSOFT y las diversas herramientas de desarrollo orientadas a objetos que proporciona, especialmente la ventana de datos, un objeto inteligente que puede manipular la base de datos de manera conveniente y sencilla. un prototipo de aplicación del sistema en un corto período de tiempo, luego iterar sobre los requisitos del sistema prototipo inicial y revisarlo y mejorarlo continuamente hasta que se forme un sistema factible que satisfaga a los usuarios.
Palabras clave: control, forma, dominio.
-------------RESUMEN--------------
El sistema de gestión de expediente de alumnos es un Aplicación típica del sistema de gestión de información (conocido como MIS), que incluye principalmente la creación de una base de datos de back-end y el desarrollo de la interfaz de aplicación de front-end. Lo primero requiere coherencia, integralidad y seguridad de los datos. aplicación potente y fácil de usar.
Al buscar muchos datos, seleccionamos Visual Basic presentado por Microsoft debido a que sus herramientas objetivas en Win32 ofrecen una serie de ActiveX que pueden proporcionar una base de datos. ofrece un atajo para crear un prototipo de aplicación del sistema. El prototipo se puede modificar y desarrollar hasta que los usuarios estén satisfechos con él.
Palabras clave: ActiveX, formulario, campo.
--------------Prólogo--------------
El sistema de gestión de archivos estudiantiles es indispensable para una unidad educativa En parte, su contenido Es crucial para los responsables de la toma de decisiones y los administradores de las escuelas, por lo que el sistema de gestión de archivos de los estudiantes debería poder proporcionar a los usuarios información suficiente y métodos de consulta rápidos. Sin embargo, la gente siempre ha utilizado métodos manuales tradicionales para administrar archivos y archivos. Este método de administración tiene muchas deficiencias, como baja eficiencia y poca confidencialidad. Además, con el tiempo, se generará una gran cantidad de archivos y datos, lo cual es difícil. buscar, actualizar y mantener todo trajo muchas dificultades.
Con la mejora continua de la ciencia y la tecnología, la informática se ha vuelto cada vez más madura y la gente ha comprendido profundamente sus poderosas funciones. Ha entrado en varios campos de la sociedad humana y desempeña un papel cada vez más importante.
Como parte de las aplicaciones informáticas, el uso de computadoras para administrar la información de los archivos de los estudiantes tiene ventajas que la administración manual no puede igualar, por ejemplo: recuperación rápida, búsqueda conveniente, alta confiabilidad, gran capacidad de almacenamiento y confidencialidad. vida, bajo costo, etc. Estas ventajas pueden mejorar en gran medida la eficiencia de la gestión de archivos de los estudiantes y también son condiciones importantes para la gestión científica y estandarizada de las empresas y su integración con el mundo.
Por lo tanto, se ha vuelto muy necesario desarrollar un conjunto de software de gestión de este tipo. En los siguientes capítulos, tomaremos el desarrollo de un sistema de gestión de archivos de estudiantes como ejemplo para hablar sobre su proceso de desarrollo y el. aspectos involucrados problemas y soluciones.
--------------------Comencemos la introducción del texto
Capítulo 1
¿Por qué desarrollar un sistema de gestión de registros estudiantiles?
Los ordenadores se han convertido en un potente asistente en nuestro estudio y trabajo:
Hoy en día, el precio de los ordenadores es muy bajo, pero su rendimiento ha avanzado mucho.
Se ha utilizado en muchos campos. Las razones por las que las computadoras son tan populares incluyen principalmente los siguientes aspectos:
En primer lugar, las computadoras pueden reemplazar el trabajo manual para realizar muchas tareas complicadas; En segundo lugar, las computadoras pueden ahorrar muchos recursos;
En tercer lugar, las computadoras pueden mejorar en gran medida la eficiencia del trabajo de las personas;
En cuarto lugar, las computadoras pueden hacer que los documentos confidenciales sean más seguros, etc.
La importancia del uso de ordenadores para gestionar los archivos de los estudiantes en las escuelas primarias y secundarias
Actualmente, el nivel de gestión de archivos en las escuelas primarias y secundarias de mi país todavía se basa en soportes de papel. y este mecanismo ya no puede adaptarse con el desarrollo de los tiempos, porque desperdicia mucha mano de obra y recursos materiales, en la era de la información este método de gestión tradicional será inevitablemente reemplazado por la gestión de la información basada en computadora.
Como estudiante universitario de aplicaciones informáticas, espero hacer una contribución en esta área. El camarada Deng Xiaoping, el principal arquitecto de la reforma, dijo que "la ciencia y la tecnología son las principales fuerzas productivas". Espero utilizar lo que he aprendido en cuatro años para compilar un programa práctico para ayudar a las escuelas primarias y secundarias a gestionar mejor el estatus de los estudiantes. eficazmente.
En resumen, los beneficios son los siguientes:
1. Puede almacenar archivos de estudiantes anteriores, de forma segura y eficiente;
2. Sólo se necesitan uno o dos empleados de entrada de archivos para operar el sistema, lo que ahorra mucha mano de obra;
3. Podrás encontrar rápidamente la información que necesitas.
Prepárese para Internet en las escuelas del futuro
Según un informe de una encuesta de China Telecom de 1999, el número de personas en línea en nuestro país ha alcanzado los 8,9 millones. Internet se ha vuelto muy grande. popular y el número de graduados de la escuela. Los estudiantes esperan poder consultar la información de sus ex alumnos desde cualquier rincón del mundo. Este sistema ha realizado un trabajo preliminar para el futuro acceso a Internet de la escuela, como el establecimiento de una base de datos.
Análisis de diseño de archivos de estudiantes
Según la situación real, utilizamos el método de prototipo (Rapid Prototyping) para construir rápidamente un modelo de sistema de software ejecutable a un pequeño costo. Esto permite a los usuarios y desarrolladores determinar rápidamente sus necesidades y luego adoptar un método de desarrollo de evolución cíclica para refinar continuamente el modelo del sistema y aumentar gradualmente las propiedades que el sistema debe tener hasta que se satisfagan todas las propiedades. En este punto, el módulo también se ha convertido en el producto final.
Capítulo 2
¿Cómo desarrollar un sistema de gestión de archivos de estudiantes?
Selección del entorno de programación
Visual Basic 6.0 de Microsoft es una herramienta de desarrollo de aplicaciones para Windows, lo que la convierte en la herramienta de desarrollo orientada a objetos más extensa, fácil de aprender y de utilizar. herramienta. Visual Basic proporciona una gran cantidad de controles que se pueden utilizar para diseñar interfaces e implementar diversas funciones, lo que reduce la carga de trabajo de los programadores y simplifica el proceso de diseño de la interfaz, mejorando así de manera efectiva la eficiencia operativa y la confiabilidad de las aplicaciones. Por tanto, VB es una opción relativamente buena para implementar este sistema.
Implementación de una base de datos relacional
Access2000 es una herramienta de desarrollo de bases de datos relacionales. La base de datos puede recopilar diversa información para consulta, almacenamiento y recuperación. La belleza de Access es su capacidad para recopilar información mediante diagramas de representación de datos o formularios personalizados. Los diagramas de representación de datos proporcionan una hoja de cálculo similar a Excel que le permite ver su base de datos de un vistazo. Además, Access le permite crear informes personalizados para imprimir o exportar información desde la base de datos. Access también proporciona un repositorio de datos. Puede utilizar archivos de bases de datos de escritorio para colocar los archivos de bases de datos en un servidor de archivos de red y compartir la base de datos con otros usuarios de la red. Access es una herramienta de base de datos relacional, una de las bases de datos más versátiles jamás desarrolladas. Como se mencionó anteriormente, Access tiene muchas ventajas como desarrollo de base de datos relacional. Puede tener la conveniencia de una base de datos de escritorio y el poder de una base de datos relacional en un solo paquete de datos.
Combinación de los dos (DBA)
El motor de base de datos JET de Microsoft proporciona una forma de manejar la base de datos. Lo usamos y Visual Basic para acceder a la base de datos y realizar varias operaciones en ella. operar. Visual Basic, Access y otros productos de software de Microsoft utilizan el motor de base de datos JET para proporcionar a los usuarios tipos de datos enriquecidos.
El control DATOS proporciona un puente entre la información de la base de datos y el programa de Visual Basic que muestra la información al usuario. Podemos configurar varias propiedades del control DATOS para indicarle a qué parte de la base de datos llamar. De forma predeterminada, el control DATA crea un tipo de colección de registros no válido para dynaset (colección dinámica) basada en una o más tablas de datos en la base de datos. Un conjunto de registros es dinámico, lo que significa que cuando cambia el contenido de la tabla de datos original, los registros del conjunto de registros también cambiarán en consecuencia. El control DATOS también proporciona varios botones de salto para explorar diferentes registros. Luego de colocar el control DATOS en el formulario, también debemos establecer una conexión entre el control y la base de datos a procesar.
Capítulo 3
¿Visual en Windows? Los componentes básicos de una aplicación de Visual Basic son los objetos creados por el usuario. Cada objeto tiene algunas propiedades y comportamientos (propiedades, eventos y métodos). Los desarrolladores pueden aprovechar al máximo cada objeto que crean. Utilice aplicaciones que sean versátiles, escalables y potentes.
Las aplicaciones de Visual Basic constan de una serie de objetos, que incluyen funciones, menús, funciones, estructuras y ventanas de datos, objetos de usuario, eventos de usuario, etc. Los objetos también contienen varios controles, como botones de comando y controles únicos. editores de línea. Estos objetos y controles se pueden reutilizar en muchas aplicaciones.
Implementación de opciones de menú
El menú es una de las características más importantes del programa. La mayoría de los programas se basan en un menú bien definido para que el programa sea fácil de usar y mantener. Basic también proporciona potentes funciones. La función Crear menú es más estándar para el programa.
Puede utilizar el Asistente de aplicaciones de Visual Basic o el Editor de menús de Visual Basic para crear un menú o modificar un menú existente.
Implementación de la barra de herramientas
El control CoolBar es similar al CoolBar visto en Office 97. CoolBar es una herramienta que puede flotar en el formulario y también es un contenedor para otros ActiveX. Al trasladarse a otros espacios de CoolBar, puede ofrecer a los usuarios una mayor flexibilidad y usabilidad.
La barra de herramientas es un control de barra de herramientas y el cuerpo principal que implementa la barra de herramientas. Los botones pueden mostrar imágenes y títulos, agruparlos por función o agregar separadores, y también puede configurar los caracteres de aviso que se muestran cuando el mouse permanece sobre ellos. La barra de herramientas también es un contenedor de control y tiene una propiedad Estilo, y puede agregarle botones desplegables y botones suaves.
Seleccione la opción "Partes" en el menú desplegable "Proyecto" para mostrar el cuadro de diálogo "Partes". Después de seleccionar "Controles comunes de Microsoft Windows 6.0" en la lista de la pestaña "Controles", el control se agregará en la fase de herramienta. Sus atributos y objetos son los siguientes:
1. La propiedad Alinear define la posición de la barra de herramientas en el formulario
2. La propiedad ToolTipText es de tipo cadena y define el carácter de solicitud del control
3. La propiedad Estilo define la apariencia del botón.
4． La propiedad ImageList define el nombre del control ImageList correspondiente a la barra de datos, que define la imagen mostrada por el botón de la barra de herramientas.
5． La propiedad HotImangeList establece el nombre de un control ImageList que define la imagen que se muestra cuando el botón obtiene un punto activo.
6． La propiedad DisabledImageList define la imagen que se muestra cuando el botón de la barra de herramientas está deshabilitado.
Crear una barra de herramientas que incluya controles ImageList y Toolbar
ImageList se utiliza para proporcionar una biblioteca de imágenes para otros controles. La operación de agregar el control ImageList a la caja de herramientas es la misma que la mencionada anteriormente. Control de barra de herramientas.
Ayuda
El software de nivel profesional suele venir con ayuda en línea.
Ya sea que el programa que escribimos vaya a ser utilizado por una gran cantidad de usuarios o esté limitado a un número limitado de usuarios dentro de la empresa, debemos proporcionar a los usuarios documentación de ayuda en línea detallada y fácil de entender. Help Workshop 4.0 de Microsoft es un conjunto de herramientas independientes de Visual Basic para ayudarnos a crear y ejecutar archivos de ayuda en sistemas operativos Windows de 32 bits. Utilizándolo podemos generar un conjunto de archivos de ayuda para las aplicaciones que escribimos.
Acerca de la versión
Para que el programa parezca más profesional, primero puede agregar la información habitual de la aplicación. Esta información incluye el nombre de la empresa, el número de versión, el número de revisión y otra información similar. Visual Basic le permite guardar esta información utilizando el objeto APP. El objeto APP es un objeto predefinido y no es necesario crearlo en el programa. La aplicación utiliza la mayoría de las propiedades del objeto APP para proporcionar información general. Al utilizar las propiedades proporcionadas por estas APP, se puede comunicar información importante entre la aplicación y el usuario. Sus propiedades se pueden configurar en el cuadro de propiedades del proyecto.
Capítulo 4
Uso de Access2000 para implementar una base de datos relacional
El concepto de base de datos
Una base de datos es una forma de almacenar datos y realizar operaciones sobre los datos. La función de una base de datos es organizar y expresar información. En resumen, una base de datos es una colección de información. Las bases de datos informáticas se pueden dividir en dos categorías: bases de datos no relacionales (archivo plano) y bases de datos relacionales (relacionales). Una base de datos relacional contiene información de múltiples tablas de datos. La base de datos contiene términos para diferentes partes, como registros, campos, etc.
Crear una nueva base de datos
El primer paso para crear cualquier base de datos es planificar cuidadosamente la base de datos. El diseño debe ser flexible y lógico. El proceso de creación de una estructura de base de datos se considera diseño de modelo de datos.
1. Identificar los datos requeridos;
2. Reúna los campos identificados en la tabla;
3. Identifique el campo de palabras clave principal;
4. Dibujar un gráfico de datos sencillo;
5. Datos estándar;
6. Información que identifica el campo especificado;
7. Crea una tabla física.
Modificar la base de datos existente
La modificación de la base de datos se divide en: agregar, editar y eliminar registros. Estas tres operaciones se pueden completar con programas creados en Visual Basic. Los siguientes capítulos describirán los métodos específicos de implementación en detalle.
Implementar la relación entre bases de datos
La relación entre bases de datos indica que las dos bibliotecas comparten el mismo valor de palabra clave. Una conexión se refiere a una tabla virtual que se establece cuando un usuario solicita información de diferentes tablas que están relacionadas entre sí. Los campos clave se utilizan para encontrar registros coincidentes en diferentes tablas que están conectadas entre sí. Una forma más avanzada de unión se llama autounión. Esta unión se produce cuando una tabla se une a un campo propio o a un campo combinado de datos duplicados en diferentes registros. Hay tres tipos diferentes de palabras clave en la base de datos: palabras clave principales, palabras clave combinadas y palabras clave externas. Los tipos de palabras clave utilizadas en las tablas se utilizan para describir lo que representa la biblioteca y cómo se relaciona con otras bibliotecas de la base de datos.
Capítulo 5
Planificación general del sistema
Funciones del sistema
1. Se pueden realizar operaciones de texto;
2. Agregar un proyecto de base de datos;
3. Eliminar un elemento de la base de datos;
4. Modificar un proyecto de base de datos;
5. Consultar información;
6. Ver el cronograma del curso.
Diagrama de flujo
Capítulo 6
Implementación específica del sistema
Implementación de la interfaz de usuario
6.1 ．1 Portada
Ver Figura_6.1.1
Figura_6.1.1
6.1.2 Interfaz principal
Ver Figura_6.1.2 para implementación específica
Figura_6.1.2
La interfaz principal contiene tres aspectos, que se presentan uno por uno a continuación:
1. Operación de registro
Abra la operación de registro y ingrese al elemento del menú de operación de registro, que incluye tres opciones: Archivo, Ver y Ayuda.
Los archivos 1.1 incluyen: Nuevo
Abrir
Abrir WordPad---------Como se muestra en <6.1.4> (consulte la Lista de Apéndices del programa fuente 6.1 )
Guardar
Guardar como
Imprimir
Salir
La vista 1.2 incluye: Barra de estado
Barra de herramientas
Color de fondo
Pantalla
Programa del curso --- ------Figura <6.1.5>
Editor de texto
Navegación web
1. 3 La ayuda incluye: Contenido
Acerca de la ayuda
2. Operación de registro
Abra la operación de registro e ingrese a la página de opciones de operación de registro, que consta de tres opciones: explorar registros y buscar.
2.1 Registros de navegación:
Base de datos de inscripción de estudiantes
Base de datos de cursos
Base de datos de calificaciones
2 Buscar. registros
2.3 Observaciones
3. Información del sistema
Abra la información del sistema e ingrese a la página de opciones, que consta de información del sistema, recopilación de información, etc.
6.1.3 Sistema de ayuda
Para una implementación específica, consulte 6.1.3
Figura 6.1.3
Implementación de la base de datos
p>
6.2.1 Base de datos de estado de estudiantes
La base de datos de estado de estudiantes almacena archivos de estudiantes que incluyen: número de estudiante, nombre, edad, etc. Tablas como <6.2.6>
Nombre de columna (chino) Nombre de columna (inglés) Ancho del tipo de datos Si el número de puntos decimales está vacío Nombre Nombre Fecha8No Número de estudiante CódigoEntero6No Género SexoFecha2No Edad EdadFecha6No Nacionalidad NaciónFecha6No Perspectiva política Rostro...Fecha2...Sí. ..Dirección de casa DirecciónFecha10No Comentarios FechaRegistro15No Tabla <6.2.6>
Módulo de Estado del Estudiante:
Este módulo completa principalmente las funciones de ingresar, eliminar y actualizar la información básica del estudiante. En este módulo se definen ocho nombres de dominio para el almacenamiento de información de los estudiantes. Si el usuario modifica un elemento en un registro, simplemente puede agregar un botón para editar el registro del estudiante. Esta ventana utiliza el estilo FREEDOM de la ventana de datos (una interfaz de entrada típica). La característica de este estilo es que el encabezado de la columna está al lado de la columna de datos. También se pueden agregar nuevos registros de estudiantes en esta ventana.
6.2.2 Base de datos de puntuaciones
La base de datos de puntuaciones almacena las puntuaciones de los estudiantes, incluyendo: número de estudiante, puntuación, etc., como la tabla <6.2.7>
Nombre de columna (chino) Nombre de columna (inglés) Ancho del tipo de datos Si el número de puntos decimales está vacío Nombre Nombre Fecha8No Número de estudiante CodeInteger6No Puntuación ScoreDate10No Comentarios RecordDate15No Tabla<6.2.7>
Módulo de puntuación:
Este módulo completa principalmente funciones como ingresar, eliminar y actualizar información básica sobre las calificaciones de los estudiantes. En este módulo se definen cuatro nombres de dominio para el almacenamiento de información de los estudiantes.
6.2.3 Base de datos del curso
La base de datos del curso almacena información del curso: nombre del curso, autor, editor, etc. como se muestra en la Tabla <6.2.8>
Nombre de columna (chino) Nombre de columna (inglés) Ancho del tipo de datos Si el número de puntos decimales está vacío IDCurseDate8No Nombre del curso NameDate15No PublisherPublisherDate20No Autor ScoreDate18No Comentarios RecordDate15No Tabla<6.2.8>
Módulo del curso: < / p>
Este módulo completa principalmente las funciones de almacenar toda la información del curso e ingresar, eliminar, actualizar, etc.
Conexión con VB
Visual Basic proporciona una conexión estrecha con el conexión del sistema de base de datos subyacente. Visual Basic admite diferentes sistemas de gestión de bases de datos relacionales y aprovecha al máximo las ventajas de cada base de datos. Para generar aplicaciones independientes o aplicaciones por encima de servicios que se ejecutan independientemente del servidor, Visual Basic tiene dos formas de conectarse a la base de datos:
·Usando el control DATOS de Visual Basic.
·Mediante el uso de una interfaz dedicada conectada directamente a la base de datos proporcionada por Visual Basic
Capítulo 7
Conclusión
Después de tres Después de más Después de meses de diseño y desarrollo, se ha desarrollado básicamente el sistema de gestión de archivos de escuelas primarias y secundarias. Sus funciones básicamente satisfacen las necesidades de los usuarios y pueden completar el almacenamiento del estado de los estudiantes, la consulta de calificaciones y la impresión de varios informes relacionados. También proporciona algunas funciones de mantenimiento del sistema, lo que permite a los usuarios realizar fácilmente copias de seguridad, recuperación y eliminación de datos. , el problema de la coherencia de los datos también se resuelve eficazmente a través del programa.
Sin embargo, debido al corto tiempo del proyecto de graduación, el sistema todavía tiene muchos aspectos insatisfactorios, como relativamente pocos documentos en línea, una interfaz de usuario insuficiente y un manejo de errores insuficiente. Estos necesitan mejoras adicionales.
Agradecimientos
En este proyecto de graduación, aprendí mucho de mi instructor, el Sr. Lei Zhenjia. La actitud de trabajo seria y responsable del profesor Lei, su espíritu académico riguroso y su profundo nivel teórico me han beneficiado mucho. Me ha brindado mucha ayuda tanto en teoría como en la práctica, lo que me ha permitido realizar muchas mejoras. Esto será de gran ayuda para mi trabajo y estudio futuro. Gracias por su paciente orientación.
Además, el asistente del Sr. Lei, el Sr. Zhang Yanming, también me brindó mucha ayuda durante el proceso de desarrollo del sistema, ayudándome a resolver muchas dificultades para que el sistema pudiera desarrollarse a tiempo. Mis compañeros de clase también me ayudaron. Me fue de mucha ayuda y me gustaría expresar mi gratitud aquí.
Capítulo 8
Referencias principales
[1] Guía del usuario de Visual Basic 6.0
Autores: Bob Reselman, Richard Peasley, Wayne Pruchniak .
Editor: Electronic Industry Press
[2] Versión china de la Guía de autoaprendizaje de Microsoft Office 97
Autor: Ned Snell
Editor: Machinery Industry Press
[3] Colección de control de versiones en chino de Visual Basic 6.0
Autor: Microsoft
Editor: Electronic Industry Press
[4] Tutorial de 24 horas de Chinese Access 2000
Autor: Craig Eddy, Timothy Buchanan
Editor: Machinery Industry Press
Apéndice Lista de programas y comentarios
Lista de programas 6.1
Opción explícita
Dim FileName As String 'Nombre de archivo, utilizado para abrir y guardar archivos
Dim UndoString As String 'para la operación Deshacer
Dim UndoNew As String 'para la operación Deshacer
Private Sub ImgUndoDisable()
'Desactivar el botón "Deshacer"
UndoString = ""
UndoNew = ""
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisableListImages("Undo").Picture.
End Sub
Private Sub ImgUndoEnable()
'Botón "Deshacer" efectivo
ImgUndo .Enabled = True
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End Sub
Private Sub Check_ImgPaste()
'Establecer el botón de pegar
Si Len(Clipboard.GetText) > 0 Entonces
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages ("Pegar").Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.ListImages("Paste").Picture
Finalizar si
End Sub
Private Sub Check_ImgCutCopy()
'Establecer botones de cortar y copiar
Si Text1.SelLength > 0 Entonces
ImgCut.Enabled = True
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
ImgCopy.Enabled = True
ImgCopy.Picture = ImageUp.ListImages("Copiar").Imagen
Else
p>
ImgCut.Enabled = False
ImgCut.Picture = ImageDisable.ListImages("Cut").Picture
ImgCopy.Enabled = False
ImgCopy.Picture = ImageDisable.ListImages("Copy").Picture
Finalizar si
End Sub
Sub privado BackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
Private Sub Box_Click()
'Mostrar herramienta de parada Bar
If Box.Checked Then
'Dejará de mostrar la barra de herramientas
Box.Checked = False
CoolBar1.Visible = False
Else
Box.Checked = True
CoolBar1.Visible = True
End If
Form_Resize ' Reposicione el control
End Sub
Private Sub Close_Click()
Dim FileNum As Integer
Si Len(FileName) > 0 Entonces
'Hay un nombre de archivo de entrada
FileNum = FreeFile() 'Obtiene el número de archivo disponible
Abrir FileName para salida como FileNum 'Abre el archivo de salida
'Si no hay ningún archivo especificado, cree un archivo nuevo
Imprimir #FileNum, Text1.Text 'Texto de salida
Cerrar FileNum 'Cerrar el archivo
Finalizar si
Text1.Text = ""
Nombre de archivo = ""
Fin Sub
Sub privado ComboSize_Click()
Text1.FontSize = Val(ComboSize.Text)
End Sub
Sub privado ComboFont_Click()
Text1. FontName = ComboFont.Text
End Sub
Private Sub Copy_Click()
Clipboard.SetText Text1.SelText 'Copiar texto al portapapeles
End Sub
Private Sub Cut_Click()
Clipboard.SetText Text1.SelText 'Copiar texto al portapapeles
Text1.SelText = "" 'Borrar texto seleccionado
Fin Sub
Sub privado DataTime_Click()
Text1.SelText = Ahora
Fin Sub
Privado Sub Delete_ Click()
Text1.SelText = "" 'Borrar el texto seleccionado
End Sub
>
Private Sub Edit_Click()
'Activa este programa antes de que muestre el submenú "Editar"
Si Text1.SelLength > 0 Entonces
'Hay texto seleccionado en el cuadro de texto
Cut.Enabled = True
Copy.Enabled = True
Delete.Enabled = True
Else
Cut.Enabled = False
Copiar.Enabled = False
Delete.Enabled = False
Finalizar si
Si Len(Clipboard.GetText()) > 0 Entonces
'Hay datos de texto en el portapapeles
Paste.Enabled = True
Else
'No hay texto pegable
Paste.Enabled = False
End If
End Sub
Private Sub Exit_Click()
Descargarme
End Sub
Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long
Si KeyAscii = 13 Entonces
BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)
Si BeginPos > 0 Entonces
Text1.SelStart = BeginPos - 1
Text1.SelLength = Len(FindText.Text)
Fin si
Fin si
End Sub
Sub privado Fontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
Sub privado Form_Load()
Atenuar i como entero
'Cargar imagen
ImgNew.Picture = ImageUp.ListImages("Nuevo " ).Picture
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
ImgSave.Picture = ImageUp.ListImages("Save").Picture
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
Check_ImgPaste
Check_ImgCutCopy
'Cargar fuente del sistema
Para i = 0 A Screen.FontCount - 1
ComboFont.AddItem Screen.Fonts(i)
Siguiente i
Fin Sub
Private Sub Form_Resize()
Atenuar TextTop mientras sea largo
'Modificar tamaño de barra de herramientas
CoolBar1.Top = Me.ScaleTop
Me.ScaleLeft
Text1.Width = Me.ScaleWidth
Si Me.ScaleHeight > CoolBar1.Height Entonces
Text1.Height = Me.ScaleHeight - TextTop
De lo contrario
Text1.Height = 0
Finalizar si
End Sub
Sub privado ImgCopy_Click()
Copy_Click 'Copiar
Check_ImgPaste
Check_ImgCutCopy
End Sub
Sub privado ImgCopy_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)
'Botón "Presione"
Si botón = 1 Entonces
ImgCopy.Picture = ImageDown.ListImages("Copiar").Picture
Finalizar si
End Sub
Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "Copiar el texto seleccionado Ir al portapapeles"
' Determina la posición del mouse y muestra diferentes imágenes
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew. Height ) Entonces
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture
ElseIf Button = 1 Entonces
ImgCopy.Picture = ImageUp.ListImages ( "Copiar").Imagen
End If
End Sub
Sub privado ImgCopy_MouseUp(Botón como entero, Mayús como entero, X como único, Y como único )
Si Botón = 1 Entonces
'Botón "Levantar"
ImgCopy.Picture = ImageUp.ListImages("Copiar").Picture
Finalizar si
End Sub
Sub privado ImgCut_Click()
'Si Text1.SelLength > 0 Entonces
Cut_Click ' Cortar
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub
Sub privado ImgCut_MouseDown( botón como entero , Desplazamiento como número entero, X como S
ingle, Y As Single)
Si Botón = 1 Entonces
'"Presione" el botón
ImgCut.Picture = ImageDown.ListImages("Cortar") . Imagen
Fin si
End Sub
Sub privado ImgCut_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)
Label1 = "Cortar el texto seleccionado al portapapeles"
'Juzga la posición del mouse y muestra diferentes imágenes
If Button = 1 And (X > 0 And X < ImgNew .Width And Y > 0 And Y < ImgNew.Height) Entonces
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
ElseIf Button = 1 Entonces
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
Finalizar si
End Sub
Sub privado ImgCut_MouseUp(Botón como entero , Shift como entero, X como simple, Y como simple)
Si el botón = 1, entonces
'Botón "Levantar"
ImgCut.Picture = ImageUp. ListaImagen("C