Red de conocimiento informático - Problemas con los teléfonos móviles - 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.

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;