91 lines
2.9 KiB
VB.net
91 lines
2.9 KiB
VB.net
Imports System.IO
|
|
Public NotInheritable Class SplashScreen1
|
|
|
|
'TODO: ce formulaire peut facilement être configuré comme écran de démarrage de l'application en accédant à l'onglet "Application"
|
|
' du Concepteur de projets ("Propriétés" sous le menu "Projet").
|
|
|
|
|
|
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
|
|
Version.Text = "Version: " & versionlogi
|
|
|
|
|
|
Copyright.Text = "Créer par yoann multigaming " & Today.Year
|
|
|
|
If Directory.Exists(dosrepertoire) = False Then
|
|
Directory.CreateDirectory(dosrepertoire)
|
|
End If
|
|
|
|
If Directory.Exists(dostemp) = False Then
|
|
Directory.CreateDirectory(dostemp)
|
|
End If
|
|
|
|
If Directory.Exists(dosprogramefile) = False Then
|
|
Directory.CreateDirectory(dosprogramefile)
|
|
End If
|
|
|
|
If Directory.Exists(dosconfig) = False Then
|
|
Directory.CreateDirectory(dosconfig)
|
|
End If
|
|
|
|
If Directory.Exists(dosthéme) = False Then
|
|
Directory.CreateDirectory(dosthéme)
|
|
Dim sw1 As New StreamWriter(théme)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
|
|
If Directory.Exists(dosinstall) = False Then
|
|
Directory.CreateDirectory(dosinstall)
|
|
Directory.CreateDirectory(dosinstall & "\page1\")
|
|
Dim sw1 As New StreamWriter(dosinstall & "\page.txt")
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(dosinstall & "\page1\logi.txt")
|
|
sw2.WriteLine(0)
|
|
sw2.Close()
|
|
End If
|
|
|
|
If Directory.Exists(dosupdate) = False Then
|
|
Directory.CreateDirectory(dosupdate)
|
|
Directory.CreateDirectory(dosupdate & "\page1\")
|
|
Dim sw1 As New StreamWriter(dosupdate & "\page.txt")
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(dosupdate & "\page1\logi.txt")
|
|
sw2.WriteLine(0)
|
|
sw2.Close()
|
|
Dim sw3 As New StreamWriter(dosupdate & "\update.txt")
|
|
sw3.WriteLine(0)
|
|
sw3.Close()
|
|
End If
|
|
|
|
If Directory.Exists(dosconnextion) = False Then
|
|
Directory.CreateDirectory(dosconnextion)
|
|
Dim sw1 As New StreamWriter(connecter)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
ApplicationTitle.Text = nom
|
|
|
|
Timer1.Start()
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Form1.Show()
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub ApplicationTitle_Click(sender As Object, e As EventArgs) Handles ApplicationTitle.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub MainLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles MainLayoutPanel.Paint
|
|
|
|
End Sub
|
|
End Class
|