Bij het ontwikkelen van een applicatie in Visual Basic 6 , als je wilt naar een andere Windows- toepassing of venster te activeren , kunt u dat eenvoudig doen . Als u echter wilt u ervoor dat venster aan de voorzijde en worden getoond , het vergt veel meer code die je in eerste instantie te realiseren . Dit proces is zeer bruikbaar, omdat het stelt u in staat om te communiceren met andere programma's op uw computer . Merk op dat u deze procedure niet kunt gebruiken om een andere applicatie die is gemaakt in VB6 te lanceren . Instructies
1 Open uw VB6 script in de gewenste VB editor
Copy 2 en plak de volgende code in de verklaringen code : . Private Declare Function FindWindow Lib " user32 " ; _Alias " FindWindowA " _ ( ByVal lpClassName als Koord , _ByVal lpWindowName As String ) As Long
Private Declare Function GetClassName Lib " user32 " _Alias " GetClassNameA " _ ( ByVal hWnd zoals lang, _ByVal lpClassName Zoals String , _ByVal nMaxCount als lang) als Long
Kopieer 3 en plak de volgende code in de sectie procedures : Public Sub GetClassNameFromTitle ( ) Dim sInput Zoals StringDim hWnd Zoals LongDim lpClassName Zoals StringDim nMaxCount als LongDim LRESULT As Long ' pad van de terugkeer buffer voor GetClassNamenMaxCount = 256lpClassName = Space ( nMaxCount ) ' Opmerking : moet een exacte matchsInput = InputBox ( " Geef de exacte titel van het venster : ' ) ' No validatie gebeurt als dit is een debug venster utilityhWnd = FindWindow ( vbNullString , sInput ) 'Haal de klassenaam van het venster , nogmaals, geen validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print " window : " & sInputDebug.Print " Class name : " & Left $ ( lpClassName , LRESULT ) End Sub
4 Klik op " GetClassNameFromTitle " in het debug -venster en klik op ' Uitvoeren ' . Dit moet de klassenaam van het venster weer te geven . Dit geeft de basisstructuur voor het proces
5 Voeg het volgende script als je wilt om het proces in een omhulsel zijn: . Overheidsfunctie fActivateWindowClass ( psClassname als Koord) als BooleanDim hWnd Zoals LonghWnd = FindWindow ( psClassname , vbNullString ) Als hWnd > 0 Then ' ShowWindow geeft Waar als het venster eerder verborgen was . ' Kan me niet schelen , dus ik gebruik de sub- stijl ' ShowWindow en SW_SHOW verklaard elders ' SW_SHOW zal het venster weer in zijn huidige omvang en positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = TrueElse ' FindWindow mislukte , ruil FalsefActivateWindowClass = FalseEnd IfEnd Functie
< br >
|
