37 lines
1.1 KiB
VB.net
37 lines
1.1 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Public Class Form7
|
|
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines2() As String = File.ReadAllLines(langue)
|
|
If lines2(0) = 2 Then
|
|
langen()
|
|
End If
|
|
Form1.AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
Form1.Hide()
|
|
Me.Show()
|
|
Timer1.Start()
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Dim lines2() As String = File.ReadAllLines(langue)
|
|
If lines2(0) = 2 Then
|
|
langen()
|
|
End If
|
|
ProgressBar1.Increment(1)
|
|
If ProgressBar1.Value = 100 Then
|
|
ProgressBar1.Value = 0
|
|
Timer1.Stop()
|
|
Form1.Show()
|
|
Me.Hide()
|
|
End If
|
|
Label1.Text = ProgressBar1.Value & "%"
|
|
End Sub
|
|
Sub langen()
|
|
Me.Text = "loading changes in progress"
|
|
Label2.Text = "loading changes in progress"
|
|
End Sub
|
|
|
|
Private Sub Form7_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
e.Cancel = True
|
|
End Sub
|
|
End Class |