Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

programadorvb6

[Resolvido] Como maximizar pagina do Browser IE

Recommended Posts

programadorvb6

Olá boa tarde.

Estou com o problema em maximizar páginas do browser  IE 7 pois quando as abro ficam sempre em default , alguem sabe como o fazer ?

Uso este código para as abrir mas ele lê como default.

Codigo.

Event closing()
Dim PIE7 As InternetExplorer

    Set PIE7 = New InternetExplorer
    PIE7.Navigate "http://www.portugal-a-programar.org" 


Cump.

Até+

Programadorvb6

Share this post


Link to post
Share on other sites
Guest

Programadorvb6, penso mas atenção não tenho a certeza mas acho que o evento não está correcto porque o event closing assume quando é minimizado e abre te a página que tens em default

Abraço

Share this post


Link to post
Share on other sites
jpaulino

Olá,

Esta foi uma solução que arranjei para um trabalho em VBA. Vê lá se funciona em VB6 e se é isto que queres:

Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const GW_HWNDNEXT = 2
Public Const SW_MAXIMIZE = 3


Public Function FindWindowPartial(TitleStart As String) As Long
    Dim hWndTmp
    Dim nRet
    Dim TitleTmp As String
    hWndTmp = FindWindow(vbNullString, vbNullString)
    Do Until hWndTmp = 0
        If GetParent(hWndTmp) = 0 Then
            TitleTmp = Space(256)
            nRet = GetWindowText(hWndTmp, TitleTmp, Len(TitleTmp))
            If nRet Then
                TitleTmp = UCase(Left(TitleTmp, nRet))
                If InStr(TitleTmp, UCase(TitleStart)) Then
                    FindWindowPartial = hWndTmp
                    Exit Do
                End If
            End If
        End If
    hWndTmp = GetWindow(hWndTmp, GW_HWNDNEXT)
    Loop
End Function



Sub About_Click()
    
    On Error Resume Next
    
    ' Cria um novo objecto e lança a página
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate2 "http://www.portugal-a-programar.org"
    ie.Visible = True
    
    ' Procura o handle da janela cujo titulo tem a palavra "Portugal"
    Dim ieHwnd As Long
    ieHwnd = FindWindowPartial("Portugal")
    
    ' Maximiza a janela
    ShowWindow ieHwnd, SW_MAXIMIZE

End Sub

Share this post


Link to post
Share on other sites
programadorvb6

Olá já fiz , deu certo mas tive de mudar um parametro para poder agarrar sempre o handle da janela do IE

Substituir este :

ieHwnd = FindWindowPartial("Portugal")

Por :

ieHwnd = FindWindowPartial("Windows Internet Explorer")

Obrigado

JP

Share this post


Link to post
Share on other sites
jpaulino

Olá já fiz , deu certo mas tive de mudar um parametro para poder agarrar sempre o handle da janela do IE

Substituir este :

ieHwnd = FindWindowPartial("Portugal")

Por :

ieHwnd = FindWindowPartial("Windows Internet Explorer")

Obrigado

JP

Não pode funcionar sempre bem se não a malta não puxa pela cabeça :confused:

Ainda bem que pude ajudar!

Share this post


Link to post
Share on other sites
programadorvb6

Tens razão , eu sabia que era através do Handle e até tenho alguns exemplos .. , mas tive um bocado de tempo a procurar nos livros e não encontrei como agarra o hande desta forma sem que tivesse-mos que indicar o Objecto com o cursor.

Obrigado + 1 vez

Programadorvb6

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.