Ao desenvolver um aplicativo em Visual Basic 6, se você quiser ativar outro aplicativo do Windows ou janela, você pode fazê-lo facilmente . Se, no entanto , você quiser fazer essa janela aparecer para a frente e ser mostrado, que exige muito mais de código que você pode inicialmente perceber . Este processo é muito útil, pois permite que você interaja com outros programas em seu computador. Note que você não pode usar esse processo para lançar outro aplicativo que foi criado em VB6. Instruções
1

Abra seu script VB6 no seu editor de VB preferido
2

Copie e cole o seguinte código no código declarações: . 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 As Long , _ByVal lpClassName Como string, _ByVal nMaxCount as Long ) As Long
3

Copie e cole o seguinte código na seção de procedimentos : Public Sub GetClassNameFromTitle () Dim sInput Como StringDim hWnd Como LongDim lpClassName Como StringDim nMaxCount Como LongDim LRESULT as Long ' almofada buffer de retorno para GetClassNamenMaxCount = 256lpClassName = Espaço ( nMaxCount ) ' Nota: deve ser uma exata matchsInput = InputBox ("Digite o título exacto da janela: ") ' Nenhuma validação é feito como este é um debug utilityhWnd janela = FindWindow ( vbNullString , sInput ) ' Pega o nome de classe da janela, novamente, não validationlresult = GetClassName (hWnd , lpClassName , nMaxCount ) Debug.Print "Janela :" & sInputDebug.Print " nome da classe : "& Left $ ( lpClassName , LRESULT ) End Sub
4

Clique em" GetClassNameFromTitle " na janela de depuração e clique em" Executar " . Isso deve exibir o nome da classe da janela. Isso fornece a estrutura básica para o processo
5

Adicione o script a seguir se você quiser incluir o processo em um invólucro : . Função Pública fActivateWindowClass ( psClassname As String) Como BooleanDim hWnd Como LonghWnd = FindWindow ( psClassname , vbNullString ) Se hWnd > 0 Then ' ShowWindow retorna True se a janela estava anteriormente oculto . Eu não me importo então eu uso o sub estilo ' ShowWindow e SW_SHOW declarou em outro lugar ' SW_SHOW irá exibir a janela em seu tamanho atual e positionCall ShowWindow hWnd, SW_SHOWfActivateWindowClass = TrueElse ' FindWindow falhou, retornar FalsefActivateWindowClass = FalseEnd IfEnd Função
< br >