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

programadorvb6

[Resolvido] Como maximizar pagina do Browser IE

6 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora