Red de conocimiento informático - Aprendizaje de programación - Código fuente de desplazamiento de texto de Iapp

Código fuente de desplazamiento de texto de Iapp

Lo primero que hay que decir es que hay muy pocos puntos. . . . .

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 * * * * * * * * * * * * * * * * * * * * * * * * * *.