Maestros de VB, por favor entren... 100 puntos por 2 funciones, 50 puntos por satisfacción si el efecto es bueno, 50 puntos por explicación adicional del código, ¡explique en chino!
Public Sub lrcset()
En caso de error, reanudar siguiente
Text1(0).Text = FormMain.W1.URL
Text1 (1).Text = FormLrc.Text1.Text
FormMain.W1.Controls.play 'Play
LrcS.LRC1.Sotp
LrcS.LRC1. Text Text1(0).Text ' Información que se mostrará si no hay letras
LrcS.Show
Timer1.Enabled = True
Me.Hide
p>Fin Sub
Sub privado Check1_Click()
En caso de error, reanudar siguiente
LrcS.LRC1.MovShow = Check1.Value
Fin Sub
Sub privado Combo2_Click()
En caso de error, reanudar siguiente
Seleccione caso Combo2.Text
Caso "Alineación centrada"
LrcS.LRC1.Aligenment = Alineación central
Caso "Alineación izquierda"
LrcS.LRC1.Aligenment = Alineación izquierda
Caso "Alinear a la derecha"
LrcS.LRC1.Aligenment = Alinear a la derecha
Fin de selección
Fin de sub
Privado Sub Command11_Click()
En caso de error, reanudar siguiente
Text6.Text = 0
Fin Sub
Sub Command13_Click()
En caso de error, reanudar siguiente
C.FileName = ""
C.ShowOpen
Si C.FileName = "" Entonces salga de Sub
Text1(0).Text = C.FileName
End Sub
Subcomando privado14_Click()
En caso de error, reanudar a continuación
C.Flags = cdlCFBoth cdlCFEffects
LrcS.LRC1.FontName = C.FontName
LrcS.LRC1.FontSize = C.FontSize
C.ShowFont
Text7.Text = C.FontSize
LrcS.LRC1.FontSize = C.FontSize
LrcS.LRC1.FontName = C.FontName
LrcS.LRC1.FontBold = C.FontB
antiguo
LrcS.LRC1.FontItalic = C.FontItalic
LrcS.LRC1.FontStrikethru = C.FontStrikethru
LrcS.LRC1.FontUnderline = C.FontUnderline
Finalizar sub
Subcomando privado2_Click()
En caso de error, reanudar siguiente
C.ShowColor
Comando2. BackColor = C.Color
LrcS.LRC1.BackColor = C.Color
End Sub
Subcomando privado3_Click()
Activado Error Reanudar siguiente
C.ShowColor
Command3.BackColor = C.Color
LrcS.LRC1.ForeColor = C.Color
Finalizar sub
Subcomando privado4_Click()
En caso de error, reanudar siguiente
C.ShowColor
Command3.BackColor = C.Color
LrcS.LRC1.ShowColor = C.Color
End Sub
Subcomando privado5_Click()
En caso de error, reanudar a continuación
C.Flags = cdlCFBoth cdlCFEffects
C.FontName = LrcS.LRC1.FontName
C.FontSize = LrcS.LRC1.FontSize
C .ShowFont
Text1(3).Text = C.FontSize
'lrcs.LRC1.FontSize = C.FontSize
LrcS.LRC1.FontName = C .FontName
LrcS.LRC1.FontBold = C.FontBold
LrcS.LRC1.FontItalic = C.FontItalic
LrcS.LRC1.FontStrikethru = C.FontStrikethru
LrcS.LRC1.FontUnderline = C.FontUnderline
Fin Sub
Subcomando privado6_Click()
En caso de error, reanudar siguiente
p>
LrcS.LRC1.Sotp
LrcS.LRC1.LrcPath Texto1(1).Text
End Sub
Privado Sub Command7_Click()
En caso de error, reanudar a continuación
Text6.Text = Text6.Text 0.2
Fin Sub
Subcomando privado8_Click()
En caso de error, reanudar siguiente
Text6.Text = Text6.Text - 0.2
End Sub
Subcomando privado9_Click()
En caso de error, reanudar a continuación
Yo. Ocultar
Finalizar sub
Sub privado Form_Load()
En caso de error, reanudar siguiente
mSkinner.Attach Me.hWnd
End Sub
Subtexto privado1_Change(Índice como entero)
En caso de error, reanudar siguiente
Seleccionar índice de caso
Caso 2 'Espaciado
LrcS.LRC1.Space = Int(Text1(2).Text)
Caso 3 'Tamaño de fuente
LrcS.LRC1.FontSize = Int (Text1(3).Text)
Finalizar selección
Finalizar sub
Subtexto privado6_Change()
En caso de error, reanudar siguiente
LrcS.LRC1.Inaccuracy = Text6.Text
'End If
End Sub
Sub Timer1_Timer() privado
En caso de error, reanudar a continuación
Si FormMain.W1.playState = 3, entonces 'PlayState
Text5.Text = Format(FormMain.W1.Controls.currentPosition, "0.0" )
Text4.Text = FormMain.W1.Controls.currentPositionString 'Tiempo de reproducción realista
LrcS.LRC1.LrcTimer Format(FormMain.W1.Controls.currentPosition, "0.0") ' " '123.1
LrcS.LRC1.LrcPath Text1(1).Text 'Ruta de la letra
ElseIf FormMain.W1.playState = wformmain.w1psStopped Then 'Estado detenido
LrcS.LRC1.Sotp
Finalizar si
Finalizar sub