Ved udviklingen af en ansøgning i Visual Basic 6 , hvis du ønsker at aktivere et andet Windows-program eller et vindue , kan du gøre det nemt. Men hvis du ønsker at gøre dette vindue til fronten og blive vist , det kræver en masse mere kode, som du i første omgang kan indse . Denne proces er meget nyttigt, da det giver dig mulighed for at interagere med andre programmer på din computer. Bemærk, at du ikke kan bruge denne proces til at starte et andet program, der er blevet skabt i VB6 . Instruktioner
1
Åbn din VB6 script på dit foretrukne VB editor
2
Kopier og indsæt følgende kode i erklæringerne code: . Private Erklær Funktion FindWindow Lib " User32 " ; _Alias " FindWindowA " _ ( ByVal lpClassName As String , _ByVal lpWindowName As String ) As Long
Private Erklær Funktion GetClassName Lib " User32 " _Alias " GetClassNameA " _ ( ByVal hWnd As Long , _ByVal lpClassName Som String , _ByVal nMaxCount As Long ) As Long
3
Kopier og indsæt følgende kode i procedurerne sektion: Public Sub GetClassNameFromTitle ( ) Dim sInput Som StringDim hWnd Som LongDim lpClassName Som StringDim nMaxCount Som LongDim LRESULT As Long ' pad afkastet buffer for GetClassNamenMaxCount = 256lpClassName = Space ( nMaxCount ) »Note : skal være en nøjagtig matchsInput = InputBox (" Indtast den nøjagtige vinduets titel : ") ' Ingen validering sker , da dette er en debug vinduet utilityhWnd = FindWindow ( vbNullString , sInput ) » Få klassen navnet på vinduet , igen, ingen validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print " Window : "& sInputDebug.Print " Class name: "& Venstre $ ( lpClassName , LRESULT ) End Sub
4
Klik på" GetClassNameFromTitle "i debug vindue og klik på " Kør ". Det skulle vise klassen navnet på vinduet . Dette giver den grundlæggende struktur for processen
5
Tilføj følgende script , hvis du ønsker at medtage den proces i en indpakning : . Public Function fActivateWindowClass ( psClassname As String ) Som BooleanDim hWnd Som LonghWnd = FindWindow ( psClassname , vbNullString ) Hvis hWnd > 0 Then ' ShowWindow returnerer SAND , hvis vinduet tidligere blev skjult. " Jeg er ligeglad , så jeg bruger sub stil ' ShowWindow og SW_SHOW erklæret andetsteds « SW_SHOW vil vise vinduet i sin nuværende størrelse og positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = TrueElse ' FindWindow mislykkedes , afkast FalsefActivateWindowClass = FalseEnd IfEnd Function
< br >