Wisselen tussen programma

[VBprutser]

Ik ben al een tijdje aan het zoeken hoe ik mijn probleem kan oplossen, maar ik geraak er niet uit.

De bedoeling van mijn programma is dat het een minuut powerpoint toont,
en de volgende minuut een ander programma toont, dat reeds geopend is.
Het zou elke keer moeten switchen tussen deze 2 schermen.

Het deel van de tijd lukt me, maar het tevoorschijn toveren en wisselen van de vensters, lukt me totaal niet.

Kan iemand mij hierbij helpen?

Alvast bedankt!

 

[wampier]

Hoe identificeer je de programma's? (of beter hoe wil je ze gaan identificeren).

Waarschijnlijk het makkelijkste met processes:

'boven je form class als extra import
Imports System.Runtime.InteropServices
'in je form class als extra functie
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function


'voorbeeld functie onder een knop die alle actieve windows maximaliseerd op je systeem
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each p As Process In Process.GetProcesses
            If p.MainWindowTitle <> Nothing Then
                ShowWindow(p.MainWindowHandle, 3)
            End If
        Next
    End Sub

 

[VBprutser]

Bedankt voor het snelle antwoord, maar ik krijg elke keer een bug..
Dit is de foutmelding die ik elke keer ontvang..

Hoe identificeer je de programma's? (of beter hoe wil je ze gaan identificeren).

Waarschijnlijk het makkelijkste met processes:

'boven je form class als extra import
Imports System.Runtime.InteropServices
'in je form class als extra functie
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function


'voorbeeld functie onder een knop die alle actieve windows maximaliseerd op je systeem
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each p As Process In Process.GetProcesses
            If p.MainWindowTitle <> Nothing Then
                ShowWindow(p.MainWindowHandle, 3)
            End If
        Next
    End Sub