El diseño VB del tablero de subtítulos rodante requiere que el panel de control cambie el color. Consulte las instrucciones complementarias para obtener más detalles.
En primer lugar, la puntuación es demasiado baja. . . . .
Me tomó dos horas escribir y probar.
Primero, crea un nuevo proyecto
Agrega dos formularios, Form1 y Form2
Form1 agrega un Marco1
Frame1 agrega un Array de controles Opción1(0) y Opción1(1) 'son fuente grande y fuente pequeña respectivamente
Form1 Agregar un marco2
Marco2 Agregar una matriz de control Check1(0), Check1(1), Check1 (2) y Verificar1(3)? Todos los atributos de estilo de Check1(0)-Check1(3) se seleccionan como 1 - Gráficos
Desde1
Agregar etiqueta 1
Agregar matriz de control, Combo1 (0 ) 'Establecer el color de fondo
Agregar una matriz de control, Combo1(0) 'Establecer el color de fondo<
Agregar una etiqueta2
Agregar un control matriz, Combo1( 1) 'Establecer el color de primer plano
Agregar una etiqueta3
¿Agregar un control deslizante1? La propiedad TickStyle está establecida en 3 - sldNoTick
Agregar un texto1 ? Para visualización e entrada, guardar contenido de subtítulos
Agregar un marco3
Agregar una matriz de control Check2 (0-7) al marco3, correspondiente a 1-8 subtítulos preestablecidos que se pueden configurar. y modificados respectivamente.
Agregar cuadro 4
Agregar control de matriz Opción2 (0-3) en el cuadro 4, correspondiente a "de izquierda a derecha", "de derecha a izquierda" y "girar" " , "Reflejo de pared"
Agregar comando 1 'Restablecer configuración
¿Agregar comando 2 'Iniciar y detener
Agregar comando 3 'Salir del programa
p>¿Agregar Timer1?¿Agregar Timer1?' para controlar el movimiento de los subtítulos
********** está en la ventana 1*********** * *************************'s control
Agregue Label1 al Formulario 2 y colóquelo en la parte superior izquierda de la esquina del formulario y establezca la propiedad AutoSize en True
Agregue el control, el código es el siguiente:
'Código en **********Form1
Private declara la función WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpKeyName como cualquiera, ByVal lpString como cualquiera, ByVal lpFilename como cadena) siempre y cuando
Private declara la función GetPrivateProfileString Lib " kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpKeyName como cualquiera, ByVal lpDefault como cadena, ByVal lpReturnedString como cadena, ByVal nSize como larga, ByVal lpFilename como cadena) como larga
Dim EnableCheck como booleano
Dim tLeft como booleano
Dim SetNum como entero
Función privada INIRead(iAppName como cadena, iKeyName como cadena , iFileName As String) Como String
Dim iStr$, aaa$
iStr = String(1000, Chr(0)
aaa = Left(iStr, GetPrivateProfileString( iAppName, ByVal iKeyName, "", iStr, Len(iStr), iFileName))
INIRead = IIf(InStr(aaa, Chr(0)) gt; 0, Reemplazar(aaa, Chr( 0), ""), aaa)
Función final
Subcomprobación privada1_Click(Índice como entero)
Si EnableCheck = False Entonces
Índice ClickCheck1
EndIf
Fin Sub
Sub
ClickCheck1(Índice como entero)
EnableCheck = True
Para i = 0 a 3
Si i = Índice entonces
Check1( i).
De lo contrario
Si Check1(i).Value = 1 Entonces Check1(i).Value = 0
Finalizar si
Siguiente
Seleccionar índice de casos Caso 0 Form2.Label1.Font = "Fuente de canción" Caso 1 Form2.Label1.Font = "Imitación Song_GB2312" 'Dado que esta máquina no tiene script, se cambia a la fuente de la canción. Caso 2 Form2.Label1.Font = "Regular_GB2312" Caso 3 Form2.Label1.Font = "Bold"
Si Check2(i).Value = 1 Entonces Check2(i).Value = 0
Finalizar si
Siguiente
Text1.Text = INIRead("Subtitles", "Subtitles" & Index, App.Path & "\ Config.ini") 'Leer el archivo Config.ini y obtenga el contenido de los subtítulos correspondientes.
Si Text1.Text = "" Entonces
Timer1.Interval = 0
Command2.Caption = "Inicio"
Form2. Ocultar
De lo contrario
Si la opción2(0)./p>
Subcombo privado1_Click(Índice como entero)
Atenuar establecer color como Largo
Si Combo1(0).Text = Combo1(1).Text Entonces
Seleccione Caso Combo1(Index).Text Caso "Rojo" Combo1((Índice 1) Mod 2 ).Text = "Negro" Caso "Amarillo" Combo1((Índice 1) Mod 2).Text = "Cian" Caso "Azul" Combo1((Índice 1) Mod 2).Text = "Verde" Caso "Verde" Combo1 ((Índice 1) Mod 2).Text = "Púrpura" Caso "Púrpura" Combo1((Índice 1) Mod 2).Text = "Amarillo" Caso "Cian" Combo1((Índice 1) Mod 2).Text = " Amarillo" Caso "Negro" Combo1((Índice 1) Mod 2).Text = "Rojo" Caso "Blanco" Combo1((Índice 1) Mod 2).Text = "Azul"
Fin de selección
Finalizar si
Para i = 0 a 1
Seleccione Case Combo1(i).Text Case "Red" SetColor = amp;HFFamp; SetColor = amp; HFFFFamp; Caso "Azul" SetColor = amp HFF0000 Caso "Verde" SetColor = amp.HFF00amp;