Código fuente de desplazamiento de texto de Iapp
Me tomó dos horas escribir el examen.
Primero, crea un nuevo proyecto.
Agrega dos formularios, Form1 y Form2.
Agrega el cuadro 1 al formulario 1.
Las matrices de control Opción1(0) y Opción1(1)' agregadas en el Marco1 son de fuente grande y pequeña respectivamente.
Agregar Marco2 en Form1.
¿Agregar matrices de control check 1 (0), check 1 (1), check 1 (2) y Check1 (3) en el Marco2? Son la fuente Song, la fuente Song, la fuente Kai y la fuente Hei.
Los atributos de estilo Check1(0)-Check1(3) se seleccionan todos como 1 gráfico.
Agregar una etiqueta 1 de 1
Agregue una matriz de control Combo1(0)' para establecer el color de fondo.
Agregar etiqueta 2.
Agregue una matriz de control Combo1(1)' para establecer el color de primer plano.
Agregar etiqueta 3.
¿Agregar diapositiva 1? La propiedad TickStyle está establecida en 3-sldNoTick.
¿Agregar un Texto1? Se utiliza para mostrar, ingresar y guardar contenido de subtítulos.
Agregar cuadro 3.
El marco 3 agrega una matriz de control Check2 (0-7), correspondiente a 1-8 subtítulos preestablecidos, que se pueden configurar y modificar respectivamente.
Agregar cuadro 4.
Agregue la opción de matriz de control 2 (0-3) en el cuadro 4, correspondiente a "de izquierda a derecha", "de derecha a izquierda", "oscilación penetrante" y "reflejo de pared" respectivamente.
¿Agregar un Comando1? Restaurar configuración
Agregue el comando 2 ' para iniciar y detener.
¿Agregar comando 3? Sal del programa
Añade un temporizador 1' para controlar el movimiento de los subtítulos.
* * * * * * * *Lo anterior es 1 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * , Tarifas en el formulario
Agregue una Etiqueta1 al Formulario2, colóquela en la esquina superior izquierda del formulario y establezca la propiedad Tamaño automático en Verdadero.
Control, el siguiente es el código:
El código está en ' * * * * **********Form1+0
Función de declaración privada WritePrivateProfileString Lib " kernel 32 " Alias " WritePrivateProfileString Lib " kernel 32 " Alias " GetPrivateProfileString a "(ByVal lpApplicationName es String, ByVal lpKeyName es Any, ByVal lpDefault es String, ByVal lpReturnedString es String, ByVal nSize es Long , ByVal lpFilename es String) long
Dim EnableCheck es booleano
Dim tLeft es un valor booleano
Dim SetNum es un número entero
La función privada INIRead (iAppName es String, iKeyName es String, iFileName es String) es String
Dim iStr$,aaa$
iStr = String(1000, Chr(0))
aaa = Left(iStr, GetPrivateProfileString(nombre IAPP, ByVal iKeyName, "", iStr,Len(iStr),iFileName))
INIRead = IIf(InStr(aaa,Chr( 0))>0,replace(aaa,Chr(0),""),aaa )
Finalizar función
Subcheck1_Click privado(índice como número entero)
Si EnableCheck = False, entonces
Índice ClickCheck1
p>
Terminará si...
Finalizar conector
Sub ClickCheck1 (el índice es un número entero)
EnableCheck = True
Para i = 0 a 3
Si i = Índice, entonces
Comprobación1(i). Valor = 1
Otro
Si marca1(i). valor = 1, luego marque 1(i). Valor = 0
Terminará si...
Entonces
Seleccione el índice del caso
Caso 0
Tabla 2. Etiqueta1. font="π"
Caso 1
Tabla 2. Etiqueta1. ¿Fuente = "Canción de imitación Dynasty_GB2312"? Debido a que no hay una secuencia de comandos oficial en esta máquina, se cambia a una fuente de imitación Song.
Caso 2
Tabla 2. Etiqueta1. Font = "cursiva _GB2312 "
Caso 3
Tabla 2. Etiqueta1.
Font = "bold "
Finalizar selección
EnableCheck = False
Finalizar conector
Subcheck2_Click privado (índice como número entero)
Si EnableCheck = False, entonces
Haga clic en Verificar índice 2
Terminará si...
Finalizar conector
Sub ClickCheck2 (el índice es un número entero)
EnableCheck = True
Para i = 0 a 7
Si i = Índice, entonces
Marque 2(i). valor = 1
Otro
si marca 2(i). valor = 1, luego verifique 2(i). Valor = 0
Finalizar si...
Entonces
Texto1. Texto = INIRead("subtítulo", "subtítulo" e índice, App.Path y ruta."\Config.ini")? Lea el archivo Config.ini para obtener el contenido del subtítulo correspondiente.
Si Texto1. Text = " "Entonces
Temporizador 1. intervalo = 0
Comando 2. Caption="Inicio"
Formulario 2. Ocultar
Otro
Si es la opción 2(0). Valor = Verdadero u Opción2(1). Entonces valor = verdadero
Tabla 2. Etiqueta1. Título = Texto1. Texto y amplificador" "
Otro
Formulario 2. Etiqueta1. Título = Texto1. Texto
Finalizar si...
Finalizar si...
EnableCheck = False
Finalizar conector
Privado subcheck3_Click()
Conector final
Privado subcheck4_Click()
Si check4. Entonces valor = 1
Tabla 2. WindowState = 2
Otro
Tabla 2. WindowState = 0
Terminará si...
Finalizar conector
Subgrupo privado 1_Click (indexado como número entero)
Atenuar SetColor As Largo
Si Combo1(0). Texto = Combo1(1). Luego envíe un mensaje de texto
Seleccione la combinación de casos 1 (índice). texto
Caso "rojo"
combo 1((index+1)mod 2). text = "negro "
Caso "amarillo"
combo 1((index+1)mod 2). text = "cyan"
Caso "azul"
combo 1((index+1)mod 2). text = "verde"
Caso "verde"
combo 1((index+1)mod 2). text = "Purple"
Caso "Purple"
combo 1((index+1)mod 2). text = "amarillo"
Caso "cian"
combo 1((index+1)mod 2). text = "amarillo"
Caso "negro"
combo 1((index+1)mod 2). text = "rojo"
Caso "blanco"
combo 1((index+1)mod 2).
text="blue"
Finalizar selección
Finalizar si...
Para i = 0 a 1
Seleccione combinación de mayúsculas y minúsculas 1 (i). Texto
Caso "Rojo"
SetColor = &HFF&
Caso "Amarillo"
SetColor = &HFFFF& p>Estuche "Azul"
SetColor = & ampHFF000
Estuche "Verde"
SetColor = & ampHFF00 & amp
Estuche " Púrpura"
SetColor = & ampHFF00FF
Estuche "Cian"
SetColor = & ampH8000 & amp
Estuche "Negro"
SetColor = & ampH0 &
Caso "Blanco"
SetColor = & ampHFFFFFF
Finalizar selección
Si i = 0, entonces
Tabla 2. BackColor = SetColor
Formulario 2. Etiqueta1. BackColor = SetColor
Otros
Tabla 2. Etiqueta1. ForeColor = SetColor
Finalizar si...
Entonces
Finalizar conector
Subcomando privado 1_Click()
Inicializa todas las configuraciones, pero el contenido de los subtítulos no cambia. (Porque no hay subtítulos predeterminados)
Opción1(0). valor=Verdadero
Formulario 2. Etiqueta1. Tamaño de fuente = Formulario2. EscalaAltura \ 24
Check1(0). Valor = 0
Combo1(0). Texto = "Cian"
Combo1(1). Texto = "Amarillo"
Control deslizante1. valor = 5
Temporizador1. intervalo = 1000-(1000-50)* control deslizante 1. Valor \ 10
SetNum = Int((1000/temporizador 1. intervalo) * 3)
Opción 2(0). valor=Verdadero
Formulario 2. Etiqueta1. Título = Texto1. Texto y amplificador" "
Comprueba 3. Valor = 0
Marque 4. Valor = 0
Tabla 2. WindowState = 0
Conector final
Subcomando privado2_Click()
Si comando2. Caption = "Inicio"
Si Text1. Texto & lt& gt""Entonces
Si es la opción 2(0). Valor = Verdadero u Opción2(1). Entonces valor = verdadero
Tabla 2. Etiqueta1. Título = Texto1. Texto y amp" "
Otro
Formulario 2. Etiqueta1. Título = Texto1. Texto
Finalizar si...
Comando 2. Caption = "Detener"
Temporizador 1. intervalo = 1000-(1000-50)* control deslizante 1. Valor\10
SetNum = Int((1000/temporizador 1.intervalo)*3)
Tabla 2. Muéstrame
. Ocultar
Finalizar si...
Otro
Comando 2. Caption = "Inicio"
Temporizador 1. intervalo = 0
Tabla 2.
Ocultar
Finalizar si...
Finalizar conector
Subcomando privado 3_Click()
Fin
Fin Conector
Private Subform_Load()
* * * * * * * *Asignar un valor a cada control* * * * * * * * * * * * * * * * * * * * * * * * * * * *
Formulario 1. Caption = "Consola de subtítulos rodantes"
Tabla 2. Caption = "Tablero de subtítulos rodante"
Fotograma1. Caption = "Tamaño del texto de los subtítulos continuos"
Opción1(0). Caption="Fuente grande"
Opción 1 (1). caption = "Fuente pequeña"
Opción1(0). valor=Verdadero
Formulario 2. Etiqueta1. Tamaño de fuente = Formulario2. EscalaAltura \ 24
Cuadro 2. Caption = "Control de fuente de subtítulos de desplazamiento"
Check1(0). title="No"
Marque1(1). Caption = "Imitation Song Dynasty"'No hay ningún script oficial en esta máquina.
Comprobación 1(2). Título = "cursiva"
Comprobación1(3). Título = "negrita "
Verificar1(0). valor = 1
Tabla 2. Etiqueta1. font="π"
Etiqueta1. Caption = "Color de fondo:"
Etiqueta 2. Caption = "Primer plano:"
Para i = 0 a 1
Combo1 (i). Aditivo "Blanco"
Combo1(i). AddItem "Rojo"
Combo1(i). Artículo adicional "Amarillo"
Combo1 (i). Aditivo "Azul"
Combo1(i). Artículo adicional "Verde"
Combo1 (i). Aditivo "Púrpura"
Combo1 (i). Aditivo "Cian"
Combo1 (i). Aditivo "Negro"
Luego
Combo1(0). Texto = "Cian"
Combo1(1). Texto = "Amarillo"
Etiqueta 3. Caption = "Velocidad de desplazamiento:"
Control deslizante1. Valor = 5
Texto1. Text = "Ingrese el texto del subtítulo directamente aquí"
Cuadro 3. Caption = "Seleccionar título"
Para i = 0 a 7
Marque 2(i). Título = CStr(i + 1)
Luego
Cuadro 4. Caption = "Control de dirección de desplazamiento de la pantalla"
Opción 2(0). Caption = "De izquierda a derecha"
Opción 2(1). Caption = "De derecha a izquierda"
Opción 2(2). Caption = "Columpio penetrante"
Opción 2(3). Caption = "Reflejo de la pared"
Opción 2(0). valor=Verdadero
Marque 3. Caption = "El color cambia automáticamente"
Comprobación 4. Caption="Visualización en pantalla completa"
Comando 1. Caption = "Restaurar configuración"
Comando 2. Caption="Inicio"
Comando 3. Caption = "Salir"
Temporizador 1.
intervalo = 0
* * * * * * * *Asignar un valor a cada control* * * * * * * * * * * * * * * * * * * * * * * * * * * *
' TLeft = False 'Inicializa TLeft para que cuando se produzcan oscilaciones de penetración y reflejos en la pared, primero se mueva hacia la derecha.
Conector final
Subformulario privado _ QueryUnload(Cancelar es un número entero, UnloadMode es un número entero)
Cancelar = 1
i . Ocultar
Tabla 2. Mostrar
Conectores finales
Subopción privada 1_Click (indexada como número entero)
Tabla 2. Etiqueta1. left = 0
Si index = 0, entonces
Tabla 2. Etiqueta1. Tamaño de fuente = Formulario2. ScaleHeight \ 24
Otro
Tabla 2. Etiqueta1. Tamaño de fuente = Formulario2. ScaleHeight \ 50
Finalizar si...
Finalizar conector
Subopción privada 2_Click (índice como número entero)
Si índice = 3 o índice = 2, entonces
Tabla 2. Etiqueta1. Título = Texto1. Texto
Otro
Tabla 2. Etiqueta1. Título = Texto1. Texto y amplificador"? "
Terminará si...
Finalizar conector
Subdiapositiva privada 1_Click()
Temporizador 1. intervalo = 1000-(1000-50)* control deslizante 1. Valor \ 10
SetNum = Int((1000/temporizador 1. intervalo) * 3)
Conector final
Subtexto privado 1_LostFocus()
Para i = 0 a 7
Si marca 2(i). Entonces valor = 1
WritePrivateProfileString "subtítulo", "subtítulo" & CStr(i), Texto1. Texto, aplicación. Caminos y caminos. ¿"\Config.ini"? Cuando se completa la entrada en el cuadro de texto 1 y el mouse hace clic en otros controles, el cuadro de texto 1 pierde el foco y el cuadro de texto 1 se guarda. El texto del elemento Check2(i) seleccionado correspondiente en el archivo Config.ini.
Terminará si...
Entonces
Finalizar conector
Subtemporizador privado 1_Timer()
Si la opción 2(0). Entonces valor = verdadero
Tabla 2. Etiqueta1. título = derecha (Form2. Etiqueta1. Título, 1); medio (Form2. Etiqueta1. Título, 1), longitud (Form2. Etiqueta1. Título) - 1)
ElseIf opción 2(1). Entonces valor = verdadero
Tabla 2. Etiqueta1. Título = Mid(Form2.Label1.Caption, 2)&Mid(Form2.Label1.Caption,1,1)
ElseIf opción 2(2). Entonces valor = Verdadero
Si tLeft = False, entonces
Si Form2. Etiqueta1. Izquierda>= Formulario2. ScaleWidth Entonces tLeft = Verdadero: Form2. Etiqueta1. izquierda = Formulario2. Etiqueta1. Izquierda: 200, de lo contrario forma 2. Etiqueta1. izquierda = Formulario2. Etiqueta1. Izquierda + 200
Otro
Si Form2. Etiqueta1. Izquierda+Form2. Etiqueta1.
Ancho & lt= 0 luego tLeft = False: Form2. Etiqueta1. izquierda = Formulario2. Etiqueta1. izquierda + 200 de lo contrario forma 2. Etiqueta1. izquierda = Formulario2. Etiqueta1. 200 grados a la izquierda
Fin si...
ElseIf opción 2(3). Entonces valor = Verdadero
Si tLeft = False, entonces
Si Form2. Etiqueta1. Izquierda+Form2. Etiqueta1. Ancho<= Forma2. ScaleWidth y luego Form2. Etiqueta1. izquierda = Formulario2. Etiqueta1. Izquierda + 200 De lo contrario tIzquierda = Verdadero: Form2. Etiqueta1. izquierda = Formulario2. Etiqueta1. 200 grados a la izquierda
Otro
Si Form2. Etiqueta1. Izquierda y gt = 0 y luego Form2. Etiqueta1. izquierda = Formulario2. Etiqueta1. Izquierda - 200 De lo contrario tLeft = Falso: Form2. Etiqueta1. izquierda = Formulario2. Etiqueta1. Izquierda + 200
Terminará si...
Terminará si...
Si marca 3. Entonces valor = 1
Si SetNum & gt entonces 0
SetNum = SetNum - 1
Otro
SetNum = Int((1000 /temporizador 1. intervalo)* 3)
Seleccione el formulario de caso 2. Etiqueta1. Color de primer plano
Casos& ampHFFFFFF
SetColor = & ampHFF & amp;
Casos& ampH0 & amp;
SetColor = & ampHFFFF & amp
Estuches& ampH8000 & amp
SetColor = & ampHFFFFFF
Estuches& ampHFF00FF
SetColor = & ampH8000 & amp
Estuches& ampHFF00 & amp
SetColor = & ampHFF00FF
Estuches& ampHFF000
SetColor = & ampH8000 & amp
Estuches & ampHFFFF & amp
SetColor = & ampHFF00 & amp
Casos& ampHFF & amp;
SetColor = & ampH0 & amp;
Finalizar selección
Formulario 2. Color de fondo = Formulario2. Etiqueta1. Color de primer plano
Tabla 2. Etiqueta1. Color de fondo = Formulario2. Etiqueta1. Color de primer plano
Tabla 2. Etiqueta1. ForeColor = SetColor
Terminará si...
Terminará si...
Finalizar conector
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Subformulario privado_DblClick()
Formulario 1. Mostrar
Conector final
Subformulario privado _ QueryUnload(Cancelar es un número entero, UnloadMode es un número entero)
Cancelar = 1
i. Ocultar
Formulario 1. Mostrar
Formulario 1.
Command2.Caption = "Inicio "
Formulario 1. Temporizador1. intervalo = 0
Tabla 2. Ocultar
Conector final
Subform_Resize privado()
Si Form1. Opción1(0). Entonces valor = verdadero
Etiqueta1. Tamaño de fuente = Formulario2. ScaleHeight \ 24
Otro
Etiqueta1. Tamaño de fuente = Formulario2. ScaleHeight \ 50
Terminará si...
Conector final
Subetiqueta privada1_DblClick()
Form1. Mostrar
Conector final
* * * * * * * * * * * * * * * * * * * * *, es la parte de arriba, o puede ser * * * * * * * * * * * * * * * * * * * * * * * * * *.