[VB.Net] Ouvrir un fichier en mode réduit
Bonjour,
Je suis entrain de créer moi même un petit programmes pour ouvrir des fichier excel et word. Jusque là tous va bien.
Cependant je voudrais lorsque j'ouvre plusieurs fichier en même temps, pouvoir les ouvrir mais en mode réduit et donc pouvoir gagner un petit peu de temps sur l'ouverture des différents fichier (le temps gagner sera minime mais il est toujours bon à prendre :D )
Mon programme fonctionne correctement sauf pour la partie réduction ;) . Alors je vous donne mon code source et s'il il y a quelqu'un qui pourrait m'aider se serais cool :D !
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Add(Me.ComboBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox1.Text <> "" Then
Try
Dim val As Integer = 100 / Me.ListBox1.SelectedItems.Count
For Each Item As String In Me.ListBox1.SelectedItems
Process.Start("U:\max\" & Item.ToString & ".lnk")
Me.ProgressBar1.Value = Me.ProgressBar1.Value + val
Next
Catch ex As Exception
Form2.Show()
End Try
End If
Me.BringToFront()
End Sub
End Class |