|
|
|
|
|
|
|
|
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
|
|
|
|
|
