Ved utvikling av et program i Visual Basic 6 , hvis du ønsker å aktivere et annet Windows-program eller et vindu , kan du gjøre det enkelt. Hvis, derimot , vil du sørge for at vinduet ser ut til fronten og bli vist , det krever mye mer kode som du kan i utgangspunktet realisere. Denne prosessen er svært nyttig som det lar deg kommunisere med andre programmer på datamaskinen . Merk at du ikke kan bruke denne prosessen til å starte et annet program som har blitt opprettet i VB6. Instruksjoner
en

Åpne VB6 skript i din foretrukne VB redaktør
2

Kopier og lim inn følgende kode inn i erklæringer koden : . 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 Som Long , _ByVal lpClassName As String, _ByVal nMaxCount As Long) As Long
3

Kopier og lim inn følgende kode i prosedyrer seksjon: Public Sub GetClassNameFromTitle ( ) Dim sInput Som StringDim hWnd Som LongDim lpClassName Som StringDim nMaxCount As LongDim LRESULT As Long ' pad avkastningen buffer for GetClassNamenMaxCount = 256lpClassName = Space ( nMaxCount ) ' Merk : må være en eksakt matchsInput = InputBox ("Skriv inn den eksakte vinduet tittelen :") 'No validering gjøres, da dette er en debug vindu utilityhWnd = FindWindow ( vbNullString , sInput ) 'Get klassen navnet på vinduet , igjen, ingen validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print "Window :" & sInputDebug.Print " klasse navn : "& Venstre $ ( lpClassName , LRESULT ) End Sub
4

Klikk " GetClassNameFromTitle "i debug -vinduet og klikk" Kjør " . Dette skal vise klasse navnet på vinduet . Dette gir den grunnleggende struktur for prosessen
5

Legg til følgende script hvis du ønsker å inkludere prosessen i en wrapper : . Public Function fActivateWindowClass ( psClassname As String ) As BooleanDim hWnd Som LonghWnd = FindWindow ( psClassname , vbNullString ) Hvis hWnd > 0 Then ' ShowWindow returnerer Sann hvis vinduet ble tidligere skjult. ' Jeg bryr meg ikke så jeg bruker sub stil " ShowWindow og SW_SHOW erklærte andre steder ' SW_SHOW vises vinduet i sin nåværende størrelse og positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = TrueElse ' FindWindow mislyktes , retur FalsefActivateWindowClass = FalseEnd IfEnd Funksjon