1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

2 Dúvidas em V.B 6

Discussão em 'Programação' iniciada por Zero_Cool_PT, 3 de Março de 2008. (Respostas: 22; Visualizações: 1282)

  1. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    Boas pessoal.Ora tenho aqui um projecto e tenho umas dúvidas um tanto rudimentares.
    A primeira está relacionada com a inserção de 1 objecto Adobe Acrobat Reader. Tenho um documento, o qual quero colocar no trabalho de maneira a que quando clico num botão de comando ele abra o respectivo ficheiro Adobe ou se Possivel (e preferível) que abra até o ficheiro dentro de 1 Form tipo o word a abrir em internet explorer.

    Em word consegui fazer e era mais ou menos isto (este aqui inclui uma pergunta de message box mas vai dar ao mesmo):

    Código:
    Dim resposta As Variant
    Dim wordApp As Word.Application
    Dim strCaminho As String
    
    resposta = MsgBox("Quer abrir o ficheiro de ajuda?", vbYesNo, "Necessidade de acção")
    If resposta = vbYes Then
    
    'caminho do documento de help'
    strCaminho = App.Path & "\Manual de instruções.docx"
    
    Dim myDoc As Word.Document
    Set wordApp = New Word.Application
    Set myDoc = wordApp.Documents.Open(strCaminho)
    wordApp.Visible = True
    
    'mensagem de despedida'
    MsgBox "Esperamos que a consulta ao manual tenha sido útil!", vbInformation, "Informação"
    
    ElseIf resposta = vbNo Then FrmMenu.Show
    A 2a questão é na criação de um Splash Screen. Eu queria criar um splash screen que "implodice" tipo um resize do tamanho original que vai ficando gradualmente mais pequeno até desaparecer.
    Acho que se deve fazer com Timer ou com a instrução While mas não faço mesmo a minima :confused: Obrigado desde já!
     
  2. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    Então? Ninguém? Vala people é um pouco urgente :(
     
  3. Armadillo

    Armadillo Folding Member

    2a questao:

    Código:
    
    Public sub Timer1_timer(.....)
    
    while me.width > 2500
       me.width=me.width-10
       me.heigth=me.heigth-10
    wend
    
    end sub
    
    
     
  4. balute

    balute Power Member

    Para abrir um ficheiro .pdf basta executar o ficheiro, que irá abrir com o programa pré-definido para PDF's:
    Código:
    Shell("C:\pasta\ficheiro.pdf")
    Embutir o ficheiro dentro do programa é mais difícil, e, no fundo, vai dar ao mesmo porque tens que depois extraí-lo para uma pasta qualquer para o poderes abrir.

    Quanto a abrir o programa dentro do form, informa-te sobre a API "SetParent" (biblioteca: user32.dll), que serve para pôr uma janela "dentro" de outra, e funciona com qualquer janela que esteja aberta no windows.

    Quanto ao splash screen que implode, vais precisar de:
    - um form (que é o splash screen)
    - um timer que, a cada x milissegundos, faz isto:
    Código:
    Sub Timer1_Timer()
      If Me.Height  <= 10 Then
        Timer1.Enabled = False
        FormPrincipal.Show()
        Me.Close()
      Else
        Me.Width = Me.Width - 10
        Me.Height = Me.Height - 10
        Me.Top = Me.Top + 5
        Me.Left = Me.Left + 5
      End If
    End Sub
    Não tenho a certeza se no VB6 existe o "Me". Se não existir, substitui pelo nome do form do splash.
     
  5. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    E ponho isso dentro da form load?
     
  6. Armadillo

    Armadillo Folding Member

    le bem o codigo:
    Código:
    Public sub Timer1_timer(.....)
    isso ta no evento do timer

    ponto 1

    Código:
    Option Explicit
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Sub Form_Load()
    
    
    Dim FileName As String
    FileName = "d:\ficheiro.pdf"
    
    
    ShellExecute 0&, "open", FileName, "", "", vbNormalFocus
    End Sub
    
     
  7. Zero_Cool_PT

    Zero_Cool_PT What is folding?


    Ok mas tipo eu pus isso no timer1_timer e ele nao me diminuiu o tamanho, ficou exactamente na mesma =/
     
  8. Armadillo

    Armadillo Folding Member

    activa o timer: nas propriedades do timer
    enabled:true
    interval:[valor>0]
     
  9. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    Tá perfeito =D Obrigadão pela ajuda :x2::009:
     
  10. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    O pdf não abriu. E já agora, ele nao pode ter uma localização especifica, tem de ser lido a partir da pasta onde ficar, tipo isto:

    Código:
    \Ficha de Trabalho nº1.pdf
     
  11. Armadillo

    Armadillo Folding Member

    tas a usar o vista? Se sim, pode ser isso. Mas dá-te algum erro?

    para ters uma localizaçao dinamica basta fazeres qualquer coisa assim
    Código:
    FileName = me.text1.text
    
     
  12. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    n0p to no XP. nao da erro, simplesmente carrego no botao e nada acontece =O
     
  13. Armadillo

    Armadillo Folding Member

    tens o ficheiro d:\ficheiro.pdf? é que se usares este codigo, ele so vai abrir este ficheiro.
     
  14. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    Não, tenho \ficheiro.pdf porque aquilo depois vai ser instalado
     
  15. Armadillo

    Armadillo Folding Member

    nesse caso deves usar
    Código:
    FileName= app.path & "\ficheiro.pdf"
    porque "\" redireciona-te pra raiz do disco :p
     
  16. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    é capaz de ser isso. entao como fica o codigo no final?é que nao percebi bem aquela parte em cima =/
     
  17. Armadillo

    Armadillo Folding Member

    Código:
    FileName= app.path & "\ficheiro.pdf"
    atraves de "app" consegues obter varias propriedades da tua aplicação, sendo uma delas o caminho onde ela esta a correr ("path").
     
  18. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    ele da me erro no Filename, diz me que a variavel nao ta declarada =O
     
  19. Armadillo

    Armadillo Folding Member

    entao declara-a
    Código:
    Dim fileName as string
    
    
     
  20. Zero_Cool_PT

    Zero_Cool_PT What is folding?

    tenho assim:

    Código:
    Private Sub cmd_enunciado_Click()
    
    Dim FileName As String
    FileName = App.Path & "\Ficha de Trabalho nº1.pdf"
    
    
    End Sub
    e quando carrego no botao simplesmente não abre =O
     

Partilhar esta Página