first commit
This commit is contained in:
@@ -0,0 +1,270 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Windows.Controls
|
||||
Imports MetroSet_UI.Interfaces
|
||||
|
||||
Public Class Form22
|
||||
Dim br As Integer = 0
|
||||
Dim bf As Integer = 0
|
||||
Dim bs As Integer = 0
|
||||
Dim bl As Integer = 0
|
||||
Dim bps As Integer = 0
|
||||
Dim bds As Integer = 0
|
||||
Dim bm As Integer = 0
|
||||
Private Sub Form22_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
Form3.ChromeTabcontrol1.TabPages.Remove(Form3.TabPage18)
|
||||
|
||||
Label1.Text = "Controle parentaux pour: " & nomprofils
|
||||
|
||||
GunaCirclePictureBox1.Image = Form3.GunaCirclePictureBox1.Image
|
||||
|
||||
Dim lines102() As String = File.ReadAllLines(couleur)
|
||||
If lines102(0) = 0 Then
|
||||
GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
|
||||
GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||||
ElseIf lines102(0) = 1 Then
|
||||
GunaGoogleSwitch1.CheckedOnColor = Color.Green
|
||||
GunaGoogleSwitch1.FillColor = Color.Green
|
||||
GunaGoogleSwitch2.FillColor = Color.Green
|
||||
GunaGoogleSwitch2.CheckedOnColor = Color.Green
|
||||
GunaGoogleSwitch3.FillColor = Color.Green
|
||||
GunaGoogleSwitch3.CheckedOnColor = Color.Green
|
||||
GunaGoogleSwitch4.FillColor = Color.Green
|
||||
GunaGoogleSwitch4.CheckedOnColor = Color.Green
|
||||
GunaGoogleSwitch5.FillColor = Color.Green
|
||||
GunaGoogleSwitch5.CheckedOnColor = Color.Green
|
||||
GunaGoogleSwitch6.FillColor = Color.Green
|
||||
GunaGoogleSwitch6.CheckedOnColor = Color.Green
|
||||
GunaGoogleSwitch7.FillColor = Color.Green
|
||||
GunaGoogleSwitch7.CheckedOnColor = Color.Green
|
||||
ElseIf lines102(0) = 2 Then
|
||||
GunaGoogleSwitch1.CheckedOnColor = Color.Blue
|
||||
GunaGoogleSwitch1.FillColor = Color.Blue
|
||||
GunaGoogleSwitch2.FillColor = Color.Blue
|
||||
GunaGoogleSwitch2.CheckedOnColor = Color.Blue
|
||||
GunaGoogleSwitch3.FillColor = Color.Blue
|
||||
GunaGoogleSwitch3.CheckedOnColor = Color.Blue
|
||||
GunaGoogleSwitch4.FillColor = Color.Blue
|
||||
GunaGoogleSwitch4.CheckedOnColor = Color.Blue
|
||||
GunaGoogleSwitch5.FillColor = Color.Blue
|
||||
GunaGoogleSwitch5.CheckedOnColor = Color.Blue
|
||||
GunaGoogleSwitch6.FillColor = Color.Blue
|
||||
GunaGoogleSwitch6.CheckedOnColor = Color.Blue
|
||||
GunaGoogleSwitch7.FillColor = Color.Blue
|
||||
GunaGoogleSwitch7.CheckedOnColor = Color.Blue
|
||||
ElseIf lines102(0) = 3 Then
|
||||
GunaGoogleSwitch1.CheckedOnColor = Color.Red
|
||||
GunaGoogleSwitch1.FillColor = Color.Red
|
||||
GunaGoogleSwitch2.FillColor = Color.Red
|
||||
GunaGoogleSwitch2.CheckedOnColor = Color.Red
|
||||
GunaGoogleSwitch3.FillColor = Color.Red
|
||||
GunaGoogleSwitch3.CheckedOnColor = Color.Red
|
||||
GunaGoogleSwitch4.FillColor = Color.Red
|
||||
GunaGoogleSwitch4.CheckedOnColor = Color.Red
|
||||
GunaGoogleSwitch5.FillColor = Color.Red
|
||||
GunaGoogleSwitch5.CheckedOnColor = Color.Red
|
||||
GunaGoogleSwitch6.FillColor = Color.Red
|
||||
GunaGoogleSwitch6.CheckedOnColor = Color.Red
|
||||
GunaGoogleSwitch7.FillColor = Color.Red
|
||||
GunaGoogleSwitch7.CheckedOnColor = Color.Red
|
||||
End If
|
||||
|
||||
Dim lines2() As String = File.ReadAllLines(théme)
|
||||
If lines2(0) = 2 Then
|
||||
Me.BackColor = Color.FromArgb(64, 64, 64)
|
||||
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
||||
Button1.ForeColor = Color.White
|
||||
Button2.ForeColor = Color.White
|
||||
Label1.ForeColor = Color.White
|
||||
Label2.ForeColor = Color.White
|
||||
Label3.ForeColor = Color.White
|
||||
Label4.ForeColor = Color.White
|
||||
Label5.ForeColor = Color.White
|
||||
Label6.ForeColor = Color.White
|
||||
Label7.ForeColor = Color.White
|
||||
Label8.ForeColor = Color.White
|
||||
ElseIf lines2(0) = 3 Then
|
||||
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
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)
|
||||
Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
End If
|
||||
|
||||
Dim lines1() As String = File.ReadAllLines(optioncontrleparantal)
|
||||
If lines1(0) = 1 Then
|
||||
GunaGoogleSwitch1.Checked = True
|
||||
End If
|
||||
|
||||
If lines1(1) = 1 Then
|
||||
GunaGoogleSwitch2.Checked = True
|
||||
End If
|
||||
|
||||
If lines1(2) = 1 Then
|
||||
GunaGoogleSwitch3.Checked = True
|
||||
End If
|
||||
|
||||
If lines1(3) = 1 Then
|
||||
GunaGoogleSwitch4.Checked = True
|
||||
End If
|
||||
|
||||
If lines1(4) = 1 Then
|
||||
GunaGoogleSwitch5.Checked = True
|
||||
End If
|
||||
|
||||
If lines1(5) = 1 Then
|
||||
GunaGoogleSwitch6.Checked = True
|
||||
End If
|
||||
|
||||
If lines1(6) = 1 Then
|
||||
GunaGoogleSwitch7.Checked = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form22_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
Dim sw1 As New StreamWriter(optioncontrleparantal)
|
||||
sw1.WriteLine(br)
|
||||
sw1.WriteLine(bf)
|
||||
sw1.WriteLine(bs)
|
||||
sw1.WriteLine(bl)
|
||||
sw1.WriteLine(bps)
|
||||
sw1.WriteLine(bds)
|
||||
sw1.WriteLine(bm)
|
||||
sw1.Close()
|
||||
If br = 1 Then
|
||||
Form1.ComboBox1.Enabled = False
|
||||
Form1.Button3.Enabled = False
|
||||
Form8.ComboBox1.Enabled = False
|
||||
Else
|
||||
Form1.ComboBox1.Enabled = True
|
||||
Form1.Button3.Enabled = True
|
||||
Form8.ComboBox1.Enabled = True
|
||||
End If
|
||||
|
||||
If bl = 1 Then
|
||||
Form3.ChromeTabcontrol1.TabPages.Remove(Form3.TabPage18)
|
||||
Else
|
||||
Form3.ChromeTabcontrol1.TabPages.Add(Form3.TabPage18)
|
||||
End If
|
||||
|
||||
If bps = 1 Then
|
||||
Form12.PlaylistStoreToolStripMenuItem.Visible = False
|
||||
Else
|
||||
Form12.PlaylistStoreToolStripMenuItem.Visible = True
|
||||
End If
|
||||
|
||||
If bds = 1 Then
|
||||
Form21.DictéToolStripMenuItem.Visible = False
|
||||
Else
|
||||
Form21.DictéToolStripMenuItem.Visible = True
|
||||
End If
|
||||
|
||||
If bm = 1 Then
|
||||
Form1.MusiqueStreamingToolStripMenuItem1.Visible = False
|
||||
Else
|
||||
Form1.MusiqueStreamingToolStripMenuItem1.Visible = True
|
||||
End If
|
||||
|
||||
Form23.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged
|
||||
If GunaGoogleSwitch1.Checked = True Then
|
||||
br = 1
|
||||
Else
|
||||
br = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch2_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch2.CheckedChanged
|
||||
If GunaGoogleSwitch2.Checked = True Then
|
||||
Button1.Visible = True
|
||||
bf = 1
|
||||
Else
|
||||
Button1.Visible = False
|
||||
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\film\")
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(doscontroleparantal & "\film\" & info.Name)
|
||||
Next
|
||||
bf = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch3_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch3.CheckedChanged
|
||||
If GunaGoogleSwitch3.Checked = True Then
|
||||
Button2.Visible = True
|
||||
bs = 1
|
||||
Else
|
||||
Button2.Visible = False
|
||||
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(doscontroleparantal & "\Séries\" & info.Name)
|
||||
Next
|
||||
bs = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch4_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch4.CheckedChanged
|
||||
If GunaGoogleSwitch4.Checked = True Then
|
||||
bl = 1
|
||||
Else
|
||||
bl = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch5_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch5.CheckedChanged
|
||||
If GunaGoogleSwitch5.Checked = True Then
|
||||
bps = 1
|
||||
Else
|
||||
bps = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch6_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch6.CheckedChanged
|
||||
If GunaGoogleSwitch6.Checked = True Then
|
||||
bds = 1
|
||||
Else
|
||||
bds = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaGoogleSwitch7_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch7.CheckedChanged
|
||||
If GunaGoogleSwitch7.Checked = True Then
|
||||
bm = 1
|
||||
Else
|
||||
bm = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Form33.optas = 0
|
||||
Form33.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Form33.optas = 1
|
||||
Form33.ShowDialog()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user