USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  maximiza, minimiza e normaliza Janela Internet Explore
Postada em 16/2/2006 por Geronimo            
Não esqueça de fazer referência a Microsoft Internet Controls

' =============================================
' Faça referência a Microsoft Internet Controls
' =============================================
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWND As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal HWND As Long, ByVal nCmdShow As Long) As Long

' Enumerador para as funções da rotina MostraJanela
Private Enum Operacao
    Fecha = 16
    Mostra = 5
    Esconde = 0
    Maximiza = 3
    Minimiza = 6
    Normaliza = 1
End Enum

' Altera a visualização de uma janela qualquer dado o seu handle
Private Sub MostraJanela(Handle As Long, OP As Operacao)

    Dim Resp As Long
    
    If OP = Fecha Then
        Resp = SendMessage(Handle, OP, 0, 0)
    Else
        Resp = ShowWindow(Handle, OP)
    End If

End Sub

' Lista as janelas do Internet Explorer
Sub ListaJanelas()

    Dim SHL As New SHDocVw.ShellWindows
    Dim IE As InternetExplorer
    
    ' Aqui pode ocorrer um erro se o handle das janelas for maior
    ' que 32767. Isso pode ser resolvido criando um array de Longs
    ' para armazenar os handles, o itemdata do combobox infelizmente
    ' é integer
    For Each IE In SHL
        Combo1.AddItem IE.LocationName
        Combo1.ItemData(Combo1.NewIndex) = IE.HWND
    Next
    
End Sub

' Maximiza
Private Sub Command1_Click()

    Dim HWND As Long
    
    If Combo1.ListIndex > -1 Then
        HWND = Combo1.ItemData(Combo1.ListIndex)
        MostraJanela HWND, Maximiza
    End If
    
End Sub

' Minimiza
Private Sub Command2_Click()

    Dim HWND As Long
    
    If Combo1.ListIndex > -1 Then
        HWND = Combo1.ItemData(Combo1.ListIndex)
        MostraJanela HWND, Minimiza
    End If
    
End Sub

' Normaliza
Private Sub Command3_Click()

    Dim HWND As Long
    
    If Combo1.ListIndex > -1 Then
        HWND = Combo1.ItemData(Combo1.ListIndex)
        MostraJanela HWND, Normaliza
    End If
    
End Sub


Private Sub Form_Load()

    ' Lista as janelas do IE
    ListaJanelas
    
    Command1.Caption = "Maximiza"
    Command2.Caption = "Minimiza"
    Command3.Caption = "Normaliza"
    
End Sub

Fonte :www.codex.com.br
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página