95 lines
4.2 KiB
VB.net
95 lines
4.2 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
|
|
Public Class Form84
|
|
Private Sub Form84_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)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.ForeColor = Color.White
|
|
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button2.ForeColor = Color.White
|
|
Label1.ForeColor = Color.White
|
|
Label2.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
Dim lines1b() As String = File.ReadAllLines(themeselect)
|
|
Dim lines1c() As String = File.ReadAllLines(dostheme & "\" & lines1b(0) & "\colorplans.txt")
|
|
Dim A As String = lines1c(0)
|
|
Dim R As String = lines1c(1)
|
|
Dim G As String = lines1c(2)
|
|
Dim B As String = lines1c(3)
|
|
Me.BackColor = Color.FromArgb(A, R, G, B)
|
|
Form4.BackColor = Color.FromArgb(A, R, G, B)
|
|
Form4.PictureBox1.BackColor = Color.FromArgb(A, R, G, B)
|
|
Form4.PictureBox2.BackColor = Color.FromArgb(A, R, G, B)
|
|
Form1.colorbackA = A
|
|
Form1.colorbackR = R
|
|
Form1.colorbackG = G
|
|
Form1.colorbackB = B
|
|
Dim lines2() As String = File.ReadAllLines(dostheme & "\" & lines1b(0) & "\colorpolice.txt")
|
|
Dim A1 As String = lines2(0)
|
|
Dim R1 As String = lines2(1)
|
|
Dim G1 As String = lines2(2)
|
|
Dim B1 As String = lines2(3)
|
|
Me.ForeColor = Color.FromArgb(A1, R1, G1, B1)
|
|
Label1.ForeColor = Color.FromArgb(A1, R1, G1, B1)
|
|
Form1.themeforecoloA = A1
|
|
Form1.themeforecoloR = R1
|
|
Form1.themeforecoloG = G1
|
|
Form1.themeforecoloB = B1
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
End If
|
|
|
|
Label2.Hide()
|
|
ProgressBar1.Hide()
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Form4.Hide()
|
|
End Sub
|
|
|
|
Private Sub Form84_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
e.Cancel = True
|
|
MsgBox("Merci d'attendre la fin de la réparation automatique", MsgBoxStyle.Exclamation)
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
End
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Button1.Enabled = False
|
|
Button2.Enabled = False
|
|
Timer2.Start()
|
|
ProgressBar1.Show()
|
|
Label2.Show()
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
ProgressBar2.Increment(1)
|
|
If ProgressBar2.Value >= 50 Then
|
|
Label2.Text = "Réparation automatique " & ProgressBar2.Value & "%"
|
|
End If
|
|
If ProgressBar2.Value = 100 Then
|
|
Timer2.Stop()
|
|
ProgressBar1.Hide()
|
|
Label2.Hide()
|
|
Dim sw6 As New StreamWriter(lançer)
|
|
sw6.WriteLine(0)
|
|
sw6.Close()
|
|
ProgressBar1.Hide()
|
|
MsgBox("La réparation automatique a réussi avec sucés", MsgBoxStyle.Information)
|
|
Process.Start(Application.StartupPath & "\rememarage")
|
|
End
|
|
End If
|
|
End Sub
|
|
End Class |