När du utvecklar ett program i Visual Basic 6 , om du vill aktivera en annan Windows-program eller fönster , kan du göra det enkelt . Men om du vill göra det fönstret verkar fram och visas , det kräver mycket mer kod som du inledningsvis kan inse . Denna process är mycket användbart eftersom det tillåter dig att interagera med andra program på datorn . Observera att du inte kan använda den här processen för att starta ett annat program som har skapats i VB6 . Instruktioner
1
Öppna din VB6 skript i önskad VB editor
2
Kopiera och klistra in följande kod i deklarationer koden : . Private Declare Function FindWindow Lib " User32 " ; _Alias " FindWindowA " _ ( ByVal lpClassName As String , _ByVal lpWindowName As String ) As Long
Private Declare Lib Funktion GetClassName " User32 " _Alias " GetClassNameA " _ ( ByVal hWnd As Long , _ByVal lpClassName Som String , _ByVal nMaxCount As Long ) As Long Addera 3
Kopiera och klistra in följande kod i förfaranden avsnittet : Public Sub GetClassNameFromTitle ( ) Dim sInput Som StringDim hWnd Som LongDim lpClassName Som StringDim nMaxCount Som LongDim lresult As Long ' pad avkastningen buffert för GetClassNamenMaxCount = 256lpClassName = Space ( nMaxCount ) ' Obs : måste vara en exakt matchsInput = InputBox ( " Ange exakt fönstret titeln : " ) " Ingen validering görs eftersom detta är en debug fönster utilityhWnd = FindWindow ( vbNullString , sInput ) " Få klassnamnet i fönstret , återigen , inget validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print " window : " & sInputDebug.Print " klass namn : " & Vänster $ ( lpClassName , lresult ) End Sub
4
Klicka " GetClassNameFromTitle " i felsökningsfönstret och klicka på " Kör " . Detta ska visa klassen namnet på fönstret . Detta ger den grundläggande strukturen för processen
5
Lägg följande skript om du vill inkludera processen i ett omslag : . Public Function fActivateWindowClass ( psClassname As String ) Som BooleanDim hWnd Som LonghWnd = FindWindow ( psClassname , vbNullString ) Om hWnd > 0 Then ' ShowWindow returnerar True om fönstret var tidigare dolt . " Jag bryr mig inte så jag använder sub stil " ShowWindow och SW_SHOW förklarade håll ' SW_SHOW visas fönstret i sin nuvarande storlek och positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = TrueElse ' FindWindow misslyckades , retur FalsefActivateWindowClass = FalseEnd IfEnd Funktion
Addera
