Discussion :

[programmes]

Bonjour à tous,

Je suis sous Visual Studio 2013 et je créé une application en vb.net et je voudrais associer à un programme externe à mon formulaire. Voici le code que j'ai récupéré sur google:

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
29
30
31
32
33
34
35
36
37
38
39
40
 
Imports System.Runtime.InteropServices
Public Class Form1
    Private p As Process
    <DllImport("user32.dll", SetLastError:=True)> _
    Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll")> _
    Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    Private Shared ReadOnly HWND_TOP As New IntPtr(0)
    Public Const SWP_NOACTIVATE As Integer = &H10
    Public Const SWP_SHOWWINDOW As Integer = &H40
    'Public Function StartProcess(ByVal ProcessName As String, ByVal ContainerHandle As IntPtr, ByVal Rect As Rectangle) As Boolean
    Public Function StartProcess(ByVal ProcessName As String, ByVal ContainerHandle As IntPtr) As Boolean
        Try
            p = New Process()
            p.StartInfo.FileName = ProcessName
            p.Start()
            p.WaitForInputIdle(-1)
            'SetWindowPos(p.MainWindowHandle, HWND_TOP, Rect.Left, Rect.Top, Rect.Width, Rect.Height, SWP_NOACTIVATE Or SWP_SHOWWINDOW)
            SetWindowPos(p.MainWindowHandle, HWND_TOP, 0, 0, 1920, 1080, SWP_NOACTIVATE Or SWP_SHOWWINDOW)
            SetWindowPos(p.MainWindowHandle, IntPtr.Zero, 50, 50, 60, 50, 0)
        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function
    Public Function ParentResize(ByVal rect As Rectangle) As Boolean
        Try
            SetWindowPos(p.MainWindowHandle, HWND_TOP, rect.Left, rect.Top, rect.Width, rect.Height, SWP_NOACTIVATE Or SWP_SHOWWINDOW)
        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        StartProcess("C:\Windows\System32\notepad.exe", Me.Handle)
    End Sub
End Class

Si je tape me. il ne me donne pas la propriété handle pour le StartProcess...Pourquoi?
Comme vous voyer, j'ai modifier deux lignes:

Code :

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

1
2
3
 
Public Function StartProcess(ByVal ProcessName As String, ByVal ContainerHandle As IntPtr, ByVal Rect As Rectangle) As Boolean
SetWindowPos(p.MainWindowHandle, HWND_TOP, Rect.Left, Rect.Top, Rect.Width, Rect.Height, SWP_NOACTIVATE Or SWP_SHOWWINDOW)

car je ne savais pas comment déclarer Rect. Comment entrer plusieurs paramètre dans une variable à savoir 0,0,1920,1080...
Sauf erreur de ma part, je crois que sais avec new string{} mais j'ai un doute
Si quelqu'un peut m’aiguiller...
Merci à vous tous pour toute vos réponses et bonne journée!

[rv26t]

Bonjour,

Code :

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

1
2
Public Function StartProcess(ByVal ProcessName As String, ByVal ContainerHandle As IntPtr, ByVal Rect As Rectangle) As Boolean
SetWindowPos(p.MainWindowHandle, HWND_TOP, Rect.Left, Rect.Top, Rect.Width, Rect.Height, SWP_NOACTIVATE Or SWP_SHOWWINDOW)

car je ne savais pas comment déclarer Rect. Comment entrer plusieurs paramètre dans une variable à savoir 0,0,1920,1080...

Code :

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

1
2
3
4
    Private r As Rectangle = New Rectangle(0, 0, 1920, 1080)
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        StartProcess("C:\Windows\System32\notepad.exe", Me.Handle, r)
    End Sub

ou bien

Code :

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

1
2
3
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        StartProcess("C:\Windows\System32\notepad.exe", Me.Handle, New Rectangle(0, 0, 1920, 1080))
    End Sub

et les 2 lignes sont ok.

Code :

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

1
2
3
4
5
6
7
8
    Public Function StartProcess(ByVal ProcessName As String, ByVal ContainerHandle As IntPtr, ByVal Rect As Rectangle) As Boolean
        Try
            p = New Process()
            p.StartInfo.FileName = ProcessName
            p.Start()
            p.WaitForInputIdle(-1)
            SetWindowPos(p.MainWindowHandle, HWND_TOP, Rect.Left, Rect.Top, Rect.Width, Rect.Height, SWP_NOACTIVATE Or SWP_SHOWWINDOW)
'...