65 lines
3.7 KiB
VB.net
65 lines
3.7 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class Form88
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
Form75.AxWindowsMediaPlayer1.fullScreen = True
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
Form75.AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
PictureBox1.Hide()
|
|
PictureBox2.Show()
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
Form75.AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
Form75.AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
Form75.Close()
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
If Form75.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or Form75.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
|
GunaMetroTrackBar1.Maximum = Form75.AxWindowsMediaPlayer1.currentMedia.duration + 1
|
|
GunaMetroTrackBar1.Value = Form75.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
|
|
Label1.Text = Form75.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
|
|
Label2.Text = Form75.AxWindowsMediaPlayer1.currentMedia.durationString
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form88_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label1.ForeColor = Color.White
|
|
Label2.ForeColor = Color.White
|
|
PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
|
|
PictureBox3.BackColor = Color.FromArgb(64, 64, 64)
|
|
GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ElseIf lines1a(0) = 3 Then
|
|
PictureBox1.Image = Form1.PictureBox7.Image
|
|
PictureBox2.Image = Form1.PictureBox4.Image
|
|
PictureBox3.Image = Form1.PictureBox5.Image
|
|
PictureBox4.Image = Form1.PictureBox6.Image
|
|
GunaMetroTrackBar1.TrackColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
|
GunaMetroTrackBar1.TrackHoverColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
|
GunaMetroTrackBar1.TrackPressedColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
|
GunaMetroTrackBar1.TrackIdleColor = Color.FromArgb(Form1.trackparcolorA, Form1.trackparcolorR, Form1.trackparcolorG, Form1.trackparcolorB)
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
End Class |