Ako aktivovať rozhranie API pre okná na výstave v VB6

Pri vývoji aplikácie vo Visual Basic 6 , ak chcete aktivovať iné aplikácie Windows alebo okno , môžete tak urobiť ľahko . Ak však chcete , aby sa toto okno objaví na prednej strane a musí byť preukázané , že si vyžaduje oveľa viac kódu , ktorý môže spočiatku realizovať . Tento proces je veľmi užitočná , pretože umožňuje komunikovať s ostatnými programami na vašom počítači . Všimnite si , že môžete tento proces nie je možné použiť na spustenie inej aplikácie , ktorá bola vytvorená vo VB6 . Pokyny dovolená 1

Otvorte VB6 skript v preferovanej VB editore
2

Skopírujte a vložte nasledujúci kód do kódu deklaráciou : . Private Declare Function FindWindow Lib " user32 " ; _Alias ​​" FindWindow " _ ( byVal lpClassName As String , _ByVal lpWindowName As String ) As Long

Private Declare Function GetClassName Lib " user32 " _Alias ​​" GetClassNameA " _ ( byVal hWnd As Long , _ByVal lpClassName As string , _ByVal nMaxCount As Long ) As Long
Sims 3

skopírujte a vložte nasledujúci kód do sekcie postupy : Public Sub GetClassNameFromTitle ( ) Dim sInput Ako StringDim hWnd Ako LongDim lpClassName Ako StringDim nMaxCount As LongDim LRESULT As Long ' pad návrat buffer pre GetClassNamenMaxCount = 256lpClassName = vesmír ( nMaxCount ) ' Poznámka : musí byť presné matchsInput = InputBox ( " Zadajte presný názov okna : " ) " Nie overenie je prevedené tak , ako je to ladenie okno utilityhWnd = FindWindow ( vbNullString , sInput ) " Získať názov triedy okna , opäť , nie validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print " Window " a sInputDebug.Print " názov triedy : " & Left $ ( lpClassName , LRESULT ) End Sub
4

Kliknutím na tlačidlo " GetClassNameFromTitle " v ladiacim okne a kliknite na tlačidlo " Spustiť " . To by mal zobraziť názov triedy okna . To poskytuje základnú štruktúru pre proces
5

pridajte nasledujúci skript , ak chcete zahrnúť proces v obale : . Public Function fActivateWindowClass ( psClassname As String ) Ako BooleanDim hWnd As LonghWnd = FindWindow ( psClassname , vbNullString ) Ak hwnd > 0 Then ' ShowWindow vráti TRUE , ak okno bolo predtým skryté. " Nezaujíma ma , tak ja používam štýl sub " ShowWindow a SW_SHOW deklarované inde " SW_SHOW sa zobrazí okno , vo svojej súčasnej veľkosti a positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = TrueElse ' FindWindow zlyhalo , vráti FalsefActivateWindowClass = FalseEnd IfEnd Funkcia

• Predchádzajúca strana: VB funkcie pre sláčikové Dĺžka 
• Ďalšia strana: Ako používať REFEDIT vo VBA