Bonjour à tous,
J'ai un problème avec mon application, la form n'est pas visible, que faire?
Description de l'application : Le programme appelle un fichier ou sont contenu des commande pour installer des applications en mode silencieuses. De plus à chaque installation la barre de progression augmente de 1. Tout fonctionne sauf que je ne vois jamais la form. Surement le problème est du fait que le code est dans le form_load.
Code :
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sysFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
Dim pInfo As New ProcessStartInfo()
Dim Monflux As Stream
Dim NbItems As Integer
Monflux = File.OpenRead(Application.StartupPath & "\install.lst")
Dim Maligne As StreamReader = New StreamReader(Monflux, System.Text.Encoding.ASCII)
Maligne.BaseStream.Seek(0, SeekOrigin.Begin)
NbItems = Maligne.ReadLine()
ProgressBar1.Maximum = NbItems
ProgressBar1.Minimum = 0
While Maligne.Peek() > -1
Dim rep As String = Maligne.Peek
Label1.Text = "Installation..."
Label1.Refresh()
pInfo.FileName = Application.StartupPath & "\" & Maligne.ReadLine()
Dim p As Process = Process.Start(pInfo)
p.WaitForInputIdle()
p.WaitForExit()
ProgressBar1.Value = ProgressBar1.Value + 1
ProgressBar1.Refresh()
End While
End Sub
End Class
Merci
DraaFil