Bei der Entwicklung einer Anwendung in Visual Basic 6 , wenn Sie eine andere Windows-Anwendung oder Fenster aktivieren möchten , können Sie dies ganz einfach tun . Wenn Sie jedoch zu machen, dass Fenster in den Vordergrund erscheinen und gezeigt werden soll , bedarf es viel mehr Code, den Sie vielleicht zunächst zu realisieren. Dieser Prozess ist sehr nützlich, da es Ihnen, mit anderen Programmen auf Ihrem Computer interagieren können. Beachten Sie, dass Sie nicht verwenden können, diesen Prozess zu einer anderen Anwendung , die in VB6 erstellt wurde starten. Anleitung
1

Öffnen Sie Ihre VB6 script in Ihre bevorzugte VB Editor
2

Kopieren Sie den folgenden Code in das Code- Erklärungen : . Private Declare Function FindWindow Lib " user32 " ; _Alias ​​" FindWindowA " _ (ByVal lpClassName As String , _ByVal lpWindowName As String ) As Long

private Declare Function GetClassName Lib " user32 " _Alias ​​" GetClassNameA " _ (ByVal hWnd As Long , _ByVal lpClassName Wie String, _ByVal nMaxCount As Long ) As Long
3

Kopieren Sie den folgenden Code in das Verfahren Abschnitt : Public Sub GetClassNameFromTitle () Dim sInput Wie StringDim hWnd Wie LongDim lpClassName Wie StringDim nMaxCount Wie LongDim LRESULT As Long ' pad die Rückkehr Puffer für GetClassNamenMaxCount = 256lpClassName = Weltraum ( nMaxCount ) " Hinweis: muss eine genaue matchsInput = InputBox (" Geben Sie den genauen Fenstertitel : ") sein ' wird keine Validierung durchgeführt , da dies eine Debug- Fenster utilityhWnd = FindWindow ( vbNullString , sInput ) ' dir die Klasse Name des Fensters , wieder kein validationlresult = GetClassName ( hWnd, lpClassName , nMaxCount ) Debug.Print "Fenster :" & sInputDebug.Print " Name der Klasse: " & Left $ ( lpClassName , LRESULT ) End Sub
4

Klicken Sie auf" GetClassNameFromTitle " im Debug-Fenster und klicken Sie auf " Ausführen ". Die Anzeige sollte den Namen der Klasse des Fensters. Dies bietet die Grundstruktur für den Prozess
5

Fügen Sie das folgende Skript , wenn Sie den Prozess in eine Hülle einschließen möchten : . Public Function fActivateWindowClass ( psClassname As String ) As BooleanDim hWnd Wie LonghWnd = FindWindow ( psClassname , vbNullString ) wenn hWnd > 0 Then ' ShowWindow True zurück , wenn das Fenster vorher verborgen war . " Ich interessiere mich nicht so nutze ich die sub -Stil " und ShowWindow SW_SHOW erklärt anderswo ' SW_SHOW wird das Fenster in seiner aktuellen Größe und positionCall ShowWindow hWnd, SW_SHOWfActivateWindowClass = TrueElse ' FindWindow gescheitert , Rückkehr FalsefActivateWindowClass = FalseEnd IfEnd Funktion
< br anzuzeigen >