Team AAZ - Forum

' Efface le fichier s'il existe
If System.IO.File.Exists("C:\ange.png") Then
My.Computer.FileSystem.DeleteFile("C:\ange.png")
End If
' Lance l'extraction de la resoirce sur le DD de l'user
Process.Start("C:\R.exe", "-extract C:\ange.cpl, C:\ange.png, PNGFILE, 5000,")
' tout pendant que le fichier n'existe pas alors une boucle qui permet de mettre en attente sinon l'imge risque de ne pas exister donc ne sera pas chargée dans la pctBx
Do While Not System.IO.File.Exists("C:\ange.png")
Thread.Sleep(1)
Loop
' on créé une instance img de la classe image et on lui affecte l'image
Dim img As Image = Image.FromFile("C:\ange.png")
' on affecte le miniature de la variable img de type image à la propriété image de la pictureBox1
Me.PictureBox1.Image = img.GetThumbnailImage(img.Height, img.Width, Nothing, Nothing)
' on libère la resource img
img.Dispose()
' on efface le fichier ange.png
If System.IO.File.Exists("C:\ange.png") Then
My.Computer.FileSystem.DeleteFile("C:\ange.png")
End If

Private Sub NCTD_unLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Private Sub NCTD_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Process.Start("sources\ResHacker.exe", "-extract C:\Windows\System32\timedate.cpl, C:\timedate.png, PNGFILE, 5000,")
Do While Not System.IO.File.Exists("C:\timedate.png")
Thread.Sleep(1)
Loop
Dim img As Image = Image.FromFile("C:\timedate.png")
Me.PictureBox3.Image = img.GetThumbnailImage(img.Height, img.Width, Nothing, Nothing)
img.Dispose()
End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing


If System.IO.File.Exists("C:\timedate.png") Then
My.Computer.FileSystem.DeleteFile("C:\timedate.png")
End If
End Sub

ElseIf ComboBox1.SelectedItem = "Horloge 19" Then
Shell("sources\rouge trait.bat", vbHide)
End If
My.Computer.FileSystem.DeleteFile("C:\timedate.png")
Process.Start("sources\ResHacker.exe", "-extract C:\Windows\System32\timedate.cpl, C:\timedate.png, PNGFILE, 5000,")
Do While Not System.IO.File.Exists("C:\timedate.png")
Thread.Sleep(1)
Loop
Dim img As Image = Image.FromFile("C:\timedate.png")
Me.PictureBox3.Image = img.GetThumbnailImage(img.Height, img.Width, Nothing, Nothing)
img.Dispose()
End Sub

Nash a écrit :c'est des cours pas du partage

toutes ces lignes me serviront pour d'autres projets avant que je comprenne un peu mieux et que je recoive mes livres pour m'instruire

on a l'impression que VB enchaine les instructions sans attendre que la precedente soit finie ???

De rien pour l'aide si ca peut te donner envie dans un éventuel apprentissage.