43 lines
1.8 KiB
VB.net
43 lines
1.8 KiB
VB.net
Imports System.ComponentModel
|
||
Imports System.IO
|
||
Public Class Form175
|
||
Dim dl As Integer = 1
|
||
Private Sub Form175_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)
|
||
ElseIf lines1a(0) = 3 Then
|
||
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Else
|
||
|
||
End If
|
||
BackgroundWorker1.RunWorkerAsync()
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
||
Compression.ZipFile.CreateFromDirectory(repertoireavis, exporterconfig & "\configuration lecteur média " & vr & " " & My.Computer.Name & " Le " & Today.Day & "-" & Today.Month & "-" & Today.Year & " a " & TimeOfDay.Hour & "h" & TimeOfDay.Minute & ".CLM")
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
|
||
ProgressBar1.Value = e.ProgressPercentage
|
||
Me.Text = "Exportation: " & e.ProgressPercentage & "%"
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
|
||
dl = 0
|
||
ProgressBar1.Style = ProgressBar1.Style.Blocks
|
||
ProgressBar1.Value = 100
|
||
MsgBox("Exportation terminer", MsgBoxStyle.Information)
|
||
Close()
|
||
End Sub
|
||
|
||
Private Sub Form175_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||
If dl = 1 Then
|
||
e.Cancel = True
|
||
MsgBox("L’exportation est en cours, merci de patientez", MsgBoxStyle.Exclamation)
|
||
Else
|
||
|
||
End If
|
||
End Sub
|
||
End Class |