Rogando por un maestro en diseño de cursos de VB
——————————Apéndice Lista de programas y notas
Lista de programas 6.1
Opción explícita
p >Fuzzy Fi
LeName As String 'Nombre de archivo, utilizado para abrir y guardar archivos.
"Dim UndoString As String" se utiliza para deshacer la operación.
"Dim UndoNew As String" se utiliza para deshacer la operación.
Private Sub ImgUndoDisable()
Desactiva el botón "Deshacer".
UndoString=" "
UndoNew=" "
Imgandor. enable=false
Imgandor. Imagen = ImagenDesactivada. ListImages("Deshacer"). Dibujar
Conector final
Private Sub ImgUndoEnable()
Botón "Deshacer" efectivo
ImgUndo. enable=true
Imgandor. Imagen = Imagen arriba. ListImages("Deshacer"). Dibujar
Conector final
Subcheck_ImgPaste() privado
Establecer botón Pegar
Si Len(Clipboard.GetText)& gt;
ImgPaste. habilitado = verdadero
ImgPaste. Imagen = Imagen arriba. ListImages("Pegar"). Pintar
Otro
ImgPaste. habilitado = falso
ImgPaste. Imagen = ImagenDesactivada. ListImages("Pegar"). Dibujar
Terminará si...
Conector final
Private Sub Check_ImgCutCopy()
Establecer botones de cortar y copiar
Si Texto1. SelLength y luego 0
ImgCut. enable=Verdadero
ImgCut. Imagen = Imagen arriba. ListImages("cortar"). Dibujar
ImgCopy. enable=True
ImgCopy. Imagen = Imagen arriba. ListaImagenes("copiar"). Dibujar
Otro
ImgCut. enable=false
ImgCut. Imagen = ImagenDesactivada. ListImages("cortar"). Dibujar
ImgCopy. habilitado = falso
ImgCopy. Imagen = ImagenDesactivada. ListaImagenes("copiar"). Draw
Terminará si...
Conector final
Private Sub BackColor_Click()
CommonDialog1. Mostrar color
Texto1. Color de fondo = CommonDialog1. Color
Conector final
Private SubBox_Click()
Mostrar barra de herramientas Detener
Si cuadro. Marcado
La barra de herramientas se detendrá.
Caja. comprobado=falso
CoolBar1. visible = false
otro
cuadro. comprobado=Verdadero
CoolBar1. Visible = True[NextPage]
Finalizar si...
' Form_Resize 'Reposicionar el control.
Conector final
Private Sub Close_Click()
Dim FileNum es un número entero
Si Len(nombre de archivo)>entonces 0
p>
tiene un nombre de archivo de entrada.
FileNum = FreeFile()' para obtener el número de archivo disponible.
Abrir nombre de archivo como salida FileNum 'Abre el archivo de salida.
Si no se especifica ningún archivo, se crea un nuevo archivo.
Imprimir #FileNum, Texto1. "texto" texto de salida.
Cierra el archivo.
Terminará si...
Texto1. Text = " "
Nombre de archivo = " "
Conector final
Sub ComboSize_Click privado
Text1. FontSize = Val(ComboSize.Text)
Conector final
Función de subcombo privado_Click()
Texto1. Nombre de fuente = Fuente combinada. Texto
Conector final
Subcopy_Click()
Portapapeles privado. settexttext1. 'seltext 'Copia el texto al portapapeles.
Conector final
Cut_Click() secundario privado
Portapapeles. settexttext1. 'seltext 'Copia el texto al portapapeles.
Texto1. SelText = " " 'Borrar el texto seleccionado.
Conector final
Subdatos privados Time_Click()
Texto1. SelText = ahora
Conector final
Niño privado Delete_Click()
Texto1. SelText = " " 'Borrar el texto seleccionado.
EndConnector
Private subedit_click()
Activa el procedimiento antes de que se muestre el submenú de edición.
Si Texto1. SelLength & gtThen 0
Hay texto seleccionado en el cuadro de texto.
Para. enable=Verdadero
Recibido. habilitado=Verdadero
Eliminar. Habilitado=Verdadero
Otro
Deshabilitado. enable=false
Recibido. enable=false
Eliminar. Habilitado = Falso
Terminará si...
Si Len(Clipboard.GetText())>Entonces 0
Hay texto en los datos del portapapeles .
Pegar. enable=True
Otro
No hay texto para pegar.
Pegar. enable=false
Terminará si p>
Conector final
texto de búsqueda secundaria privado _ KeyPress (KeyAscii es un número entero)
Dim BeginPos As Long
Si KeyAscii = 13, entonces
BeginPos = InStr(1, Text1. Text, Find Text. Text, vbTextCompare)
Si BeginPos & gt entonces 0
Texto1. SelStart = BeginPos - 1
Texto1. SelLength = Len(FindText.Text)
Terminará si...
Terminará si...
Finalizar conector
Private Sub Fontcolor_Click()
CommonDialog1.
Color de visualización
Texto1. Color frontal = CommonDialog1. Color
Conector final
Subform_Load() privado
Marcar I como un número entero
Cargar imagen
ImgNew . Imagen = Imagen arriba. ListImages("nuevo"). Dibujar
ImgOpen. Imagen = Imagen arriba. ListaImagenes("Abrir"). Dibujar
ImgGuardar. Imagen = Imagen arriba. ListaImagenes("guardar"). Pintura
Imgandor. Imagen = ImagenDesactivada. ListImages("Deshacer"). Dibujar
Check_Paste
Check_ImgCutCopy
Cargar fuentes del sistema
Filtro para i = 0. FontCount - 1
ComboFont. Agregar pantalla de proyecto. Fuente (1)
Siguiente yo
Conector final
Subform_Resize privado()
Atenuar TextTop mientras sea largo
Modificar tamaño de la barra de herramientas
CoolBar1. Arriba = yo. Lo más alto de la escala
Yo. Zoom hacia la izquierda
Texto1. ancho = i. ancho de marca
si i. Altura de escala y gtCoolBar1. ¿Qué pasa con la altura?
Texto1. Altura = yo. ScaleHeight - TextTop
Otro
Texto1. altura = 0
Terminará si...
Finalizar conector
Private Sub ImgCopy_Click()
Copy_Click 'Copiar
p>Check_Paste
Check_ImgCutCopy
Conector final
copia privada de Sub img _ MouseDown(El botón es un número entero, Shift es un número entero,
x significa sencillo, Y significa sencillo)
Botón "Presione"
Si Botón = 1, entonces
ImgCopy. Imagen = ImagenAbajo. ListaImagenes("copiar"). Dibujar
Terminará si...
Conector final
copia privada de Sub img _ MouseMove(El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Label1 = "Copiar el texto seleccionado al portapapeles"
Determina la posición del mouse y muestra diferentes imágenes.
Si Botón = 1 y (X & gt0 y . Imagen = ImagenAbajo. ListaImagenes("copiar"). Imagen[página siguiente]
ElseIf Button = 1 entonces
ImgCopy. Imagen = Imagen arriba. ListaImagenes("copiar"). Dibujar
Terminará si...
Conector final
copia privada Sub img _ MouseUp(El botón es un número entero, Shift es un número entero, X
Único, Y sencillo)
Si Botón = 1, entonces
Botón "Promocionar"
ImgCopy. Imagen = Imagen arriba. ListaImagenes("copiar").
Draw
Terminará si...
Conector final
Sub privado ImgCut_Click()
Si Text1. SelLength & gt luego 0
Cut_Click "Cortar"
Check_Paste
Check_ImgCutCopy
Terminará si...
Conector final
privado Sub img cut _ MouseDown (El botón es un número entero, Mayús es un número entero,
x significa único, Y significa único)
Si Botón = 1, entonces
Botón "Presione"
ImgCut. Imagen = ImagenAbajo. ListImages("cortar"). Draw
Terminará si...
Conector final
private Sub img cut _ MouseMove(El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Etiqueta1 = "Cortar el texto seleccionado al portapapeles"
Determina la posición del mouse y muestra diferentes imágenes.
Si Botón = 1 y (X & gt0 y . Imagen = ImagenAbajo. ListImages("cortar"). Dibujar
ElseIf Button = 1 entonces
ImgCut. Imagen = Imagen arriba. ListImages("cortar"). Dibujar
Terminará si...
Conector final
privado Sub img cut _ MouseUp(El botón es un número entero, Shift es un número entero, X
Único, Y sencillo)
Si Botón = 1, entonces
Botón "Promocionar"
ImgCut. Imagen = Imagen arriba. ListImages("cortar"). El sorteo
Terminará si...
Finalizar conector
Private Sub ImgNew_Click()
New_Click
Conector final
private Sub img new _ MouseDown (El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
If Button = 1, luego
botón "Presionar"
ImgNew. Imagen = ImagenAbajo. ListImages("nuevo"). Draw
Terminará si...
Conector final
private Sub img new _ MouseMove(El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Label1 = "Nuevo archivo"'Modifica la información del mensaje.
Determina la posición del ratón y muestra diferentes imágenes.
Si Botón = 1 y (X & gt0 y . Imagen = ImagenAbajo. ListImages("nuevo"). Dibujar
ElseIf Button = 1 entonces
ImgNew. Imagen = Imagen arriba. ListImages("nuevo").
Draw
Terminará si...
Conector final
private Sub ImgNew _ MouseUp(El botón es un número entero, Shift es un número entero
eger, X significa único, Y significa único)
Si Botón = 1, entonces
Botón "Promocionar"
ImgNew. Imagen = Imagen arriba. ListImages("nuevo"). El sorteo
Terminará si...
Finalizar conector
Private Sub ImgOpen_Click()
Open_click
Conector final
privado Sub imgo pen _ MouseDown (el botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
"Presione " Botón
Si Botón = 1, entonces
ImgOpen. Imagen = ImagenAbajo. ListaImagenes("Abrir"). Dibujar
Terminará si...
Conector final
privado Sub imgo pen _ MouseMove(El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Etiqueta1 = "Seleccione un nombre de archivo y ábralo"
Determina la posición del mouse y muestra diferentes imágenes.
Si Botón = 1 y (X & gt0 y . Imagen = ImagenAbajo. ListaImagenes("Abrir"). Dibujar
ElseIf Button = 1 entonces
ImgOpen. Imagen = Imagen arriba. ListaImagenes("Abrir"). Dibujar
Terminará si...
Conector final
privado Sub imgo pen _ MouseUp(El botón es un número entero, Shift es un número entero, X
Único, Y sencillo)
Si Botón = 1, entonces
Botón "Promocionar"
ImgOpen. Imagen = Imagen arriba. ListaImagenes("Abrir"). Dibujar
Terminará si...
Conector final
Sub privado ImgPaste_Click()
Paste_Click "Pegar"
p>
Conector final
privado Sub img pegar _ MouseDown (El botón es un número entero, Mayús es un
número entero, X representa un valor único, Y representa un valor único)
Si Botón = 1, entonces
"Presione" el botón
ImgPaste. Imagen = ImagenAbajo. ListImages("Pegar"). Imagen [página siguiente]
Terminará si...
Conector final
privado Sub img pegar _ MouseMove(El botón es un número entero, Shift es< /p >
Entero, X representa un valor único, Y representa un valor único)
Etiqueta1 = "Pegar texto en la posición actual del cursor"
Determina la posición del mouse y mostrar diferentes imágenes.
Si Botón = 1 y (X & gt0 y . Imagen = ImagenAbajo. ListImages("Pegar").
Pintar
ElseIf Button = 1 entonces
ImgPaste. Imagen = Imagen arriba. ListImages("Pegar"). Dibujar
Terminará si...
Conector final
privado Sub img pegar _ MouseUp(El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Si Botón = 1, entonces
"Nombre la salida como FileNum" abre el archivo de salida.
Si no se especifica ningún archivo, se crea un nuevo archivo.
Imprimir #FileNum, Texto1. "texto" texto de salida.
Cierra el archivo.
ImgUndoDisable
Otro
MsgBox "No se puede guardar el archivo desconocido"+Chr(13)+Chr(10)+"Seleccione el menú de archivo.< /p >
Guardar "Proyecto", "Advertencia"
Finalizará si...
Finalizar conector
privado Sub img guardar _ MouseDown( El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Si Button = 1, entonces
ImgSave Image = ImageDown. . "). Dibujo
Terminará si...
Conector final
private Sub img save _ MouseMove(El botón es un número entero, Shift es un entero,
x significa único, Y significa único)
Etiqueta1 = "Guardar el archivo actual"
Determina la posición del mouse y muestra diferentes imágenes
If. Button = 1 y (X & gt0 y Guardar"). Dibujar
ElseIf Button = 1 entonces
ImgSave. Pictures = ImageUp. ListImages("Guardar" ). Draw
Terminará si
Sub ImgUndo _ MouseMove privado (el botón es un número entero, Shift es un número entero,
x significa simple, Y significa single)
Label1 = "Cancelar la operación actual"
Determina la posición del mouse y muestra diferentes imágenes
Si Button = 1 y (X & gt0 y X & ltImgNew Ancho y Y & gt0 e Y & lt
ImgNew.height) entonces
imgando.ImageDown.draw)
ElseIf Button = 1 entonces<. /p>
ImgUndo.Image = ListImages("Deshacer"). Draw
Fin si...
private Sub ImgUndo_ MouseUp(El botón es un número entero, Shift es un entero, X
único, Y único)
Si Botón = 1, entonces
Botón "Promocionar"
Imgandor. Imagen = Imagen arriba. ListImages("Deshacer").
El sorteo
Terminará si...
Finalizar conector
Private Sub New_Click()
Nombre de archivo = " "
Text1 = " "
ImgUndoDisable
Conector final
Sub privado Open_Click()
Dim FileNum es un número entero< /p >
Atenuar buffer1 como cadena
Atenuar buffer1 como cadena
El tamaño del archivo atenuado es Largo
Atenuar MaxLen As Long
MaxLen = 32768 'Longitud máxima del archivo
CommonDialog1. Muestra el cuadro de diálogo Abrir archivo.
Si Len(CommonDialog1.Filename)>; entonces 0
Hay un nombre de archivo de entrada.
Nombre de archivo=PublicDialog1. Nombre de archivo contiene el nombre del archivo.
FileSize = FileLen(FileName)' para obtener la longitud del archivo.
Si el tamaño del archivo es & gtMaxLen Entonces[NextPage]
El archivo es demasiado largo.
MsgBox "Este archivo es demasiado grande, sólo se puede mostrar parte del texto", "Advertencia"
Salir del conector
Finalizará si...
Pantalla. mouseporter = 11 'Configura el mouse como un reloj de arena.
FileNum = FreeFile()' para obtener el número de archivo disponible.
"Abrir nombre de archivo de entrada en formato FileNum" abre el archivo en modo de entrada secuencial.
Hacer mientras no sea EOF(FileNum) y Len(buffer)<El texto "MaxLen" requerido para leer tiene menos de
32K
líneas de entrada # filenum, buffer 1 'Lee una línea de texto.
buffer = buffer+buffer 1+CHR(13)+CHR(10)'Agregar carácter de retorno de carro y avance de línea.
Cuerpo del bucle "Loop"
Cierra el archivo.
"ImgUndoDisable" cancela la función deshacer.
Texto1. Texto = buffer 'Mostrar texto.
' UndoNew = buffer 'Guarda el texto.
Buffer = " " 'Liberar memoria.
buffer1=" "
Pantalla. 'MousePointer = 0 'Restaura el puntero del mouse.
Yo. Caption = "Bloc de notas-"+Nombre de archivo 'Modificar la visualización del título.
Terminará si...
EndJoin
Sub privado Paste_Click()
Texto1. SelText = Portapapeles. GetText
Conector final
Subimagen privada 1_MouseMove (el botón es un número entero, Shift es un
entero, X representa un valor único, Y representa un valor único value)
Etiqueta1 = "Barra de herramientas"
Conector final
Subimagen privada1_Resize()
Si image1. ancho>Label1. Luego salió
Label1. ancho = imagen1. ScaleWidth - Lado izquierdo de Label1
Terminará si...
Conector final
Private Sub Save_Click()
"Dim FileNum Como entero "Número de identificador de archivo.
CommonDialog1. "Mostrar guardar" muestra el cuadro de diálogo para guardar.
Si Len(CommonDialog1.Filename)>; entonces 0
Hay un nombre de archivo de entrada.
Nombre de archivo=PublicDialog1. Nombre de archivo contiene el nombre del archivo.
FileNum = FreeFile()' para obtener el número de archivo disponible.
Abrir nombre de archivo como salida FileNum 'Abre el archivo de salida.
Si no se especifica ningún archivo, se crea un nuevo archivo.
Imprimir #FileNum, Texto1. "texto" texto de salida.
Cierra el archivo.
Yo. Caption = "Bloc de notas-"+FileName 'Modificar la visualización del título.
ImgUndoDisable
Terminará si...
Finalizar conector
Subtexto privado 1_Change()
Si No ImgDeshacer. Luego habilite
para que el botón Deshacer esté disponible.
ImgUndoEnable
Terminará si...
UndoString = UndoNew
UndoNew = Text1
Finalizar conector
Subtexto privado 1_Click()
Check_ImgCutCopy
Conector final
Subtexto privado 1 _ KeyUp(el código de clave es un número entero, Shift es un número entero)
Check_ImgCutCopy
Conector final
Conector final
privado Sub img save _ MouseUp(El botón es un número entero, Shift es un número entero, X
Único, Y único)
Si Botón = 1, entonces
Botón "Promocionar"
ImgSave. Imagen = Imagen arriba. ListaImagenes("guardar"). Draw
Terminará si...
Finalizar conector
Private Sub ImgUndo_Click()
Texto1. Texto = UndoString
Conector final
privado Sub ImgUndo _ MouseDown (El botón es un número entero, Shift es un número entero,
x significa único, Y significa único)
Si Botón = 1, entonces
Botón "Presione"
Imgandor. Imagen = ImagenAbajo. ListImages("Deshacer"). Sorteo
Terminará si...
Finalizar conector