Discussion :

[maxp74]

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 )
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 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sankasssss]

Hello :
MSDN : Process.start
te donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 '/ <summary>
      '/ Uses the ProcessStartInfo class to start new processes, both in a minimized 
      '/ mode.
      '/ </summary>
      Public Sub OpenWithStartInfo()
 
         Dim startInfo As New ProcessStartInfo("IExplore.exe")
         startInfo.WindowStyle = ProcessWindowStyle.Minimized
 
         Process.Start(startInfo)
 
         startInfo.Arguments = "www.northwindtraders.com"
 
         Process.Start(startInfo)
      End Sub 'OpenWithStartInfo

Bien à toi