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

NameException

[VB 6.0] Menus - Abrir, Guardar Como..., Imprimir

27 mensagens neste tópico

Boas!!!

Tou a fazer uma aplicação em VB, mas n tou a conseguir programar os itens do menu Ficheiro, Abrir, Guardar Como..., e Imprimir....

Neste momento, o erro k me surge refere-se a "FileName".... quando se clica no botão "OK", em Abrir e Guardar Como... O código k experimentei foi....

Private Sub cmdOK_Click()

    If (Right$(Dir1.Path, 1) = "\") Then  FileName$ = Dir1.Path + File1.FileName

    Else
        FileName$ = Dir1.Path + "\" + File1.FileName

    End If
    
    Open FileName$ For Input As #1
    frmEditor.txtPad.Text = Input$(LOF(1), #1)
    Close #1
    Unload frmLoad
End Sub

Quanto ao Imprimir, não faço a minima ideia como o programar..... :(!

Se alguém me puder ajudar.... Agradecia....

Obrigado!!!!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Usa o controlo commondialog rapaz...

tens lá janelinhas predefinidadas de guardar, abrir, imprimir, escolher font... :(

depois só tens de lá por o código dentro...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim, eu usei ixo.... mas o código que tou a utilizar no botao "ok" ta a dar erro.....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se estas a usar a CommonDialog, o que é o Dir1 e o File1 ? Isso parece-me mais um DirListBox e um FileListBox

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas!!!

Tou a fazer uma aplicação em VB, mas n tou a conseguir programar os itens do menu Ficheiro, Abrir, Guardar Como..., e Imprimir....

Neste momento, o erro k me surge refere-se a "FileName".... quando se clica no botão "OK", em Abrir e Guardar Como... O código k experimentei foi....

Private Sub cmdOK_Click()

    If (Right$(Dir1.Path, 1) = "\") Then  FileName$ = Dir1.Path + File1.FileName

    Else

        FileName$ = Dir1.Path + "\" + File1.FileName

    End If

   

    Open FileName$ For Input As #1

    frmEditor.txtPad.Text = Input$(LOF(1), #1)

    Close #1

    Unload frmLoad

End Sub

Quanto ao Imprimir, não faço a minima ideia como o programar..... :)!

Se alguém me puder ajudar.... Agradecia....

Obrigado!!!!

essa parte no codigo de: " Unload frmLoad "

ta correcta?? nao sera: load.hide ? ou assim kk coisa?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas!!!

Tou a fazer uma aplicação em VB, mas n tou a conseguir programar os itens do menu Ficheiro, Abrir, Guardar Como..., e Imprimir....

Neste momento, o erro k me surge refere-se a "FileName".... quando se clica no botão "OK", em Abrir e Guardar Como... O código k experimentei foi....

Private Sub cmdOK_Click()

    If (Right$(Dir1.Path, 1) = "\") Then  FileName$ = Dir1.Path + File1.FileName

    Else

        FileName$ = Dir1.Path + "\" + File1.FileName

    End If

   

    Open FileName$ For Input As #1

    frmEditor.txtPad.Text = Input$(LOF(1), #1)

    Close #1

    Unload frmLoad

End Sub

Quanto ao Imprimir, não faço a minima ideia como o programar..... :)!

Se alguém me puder ajudar.... Agradecia....

Obrigado!!!!

essa parte no codigo de: " Unload frmLoad "

ta correcta?? nao sera: load.hide ? ou assim kk coisa?

O diferença entre o Unload e o .Hide é que com o Unload nome_do_formulário tu libertas o form da memória, enquanto que o .Hide apenas o escondes mantendo em memória. Dependendo dos casos é vantajoso usar um ou outro.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu tenho axim.... Para tentar programar o menu "Guardar como..." 

Public Sub FileName()
    If (Right$(frmSalvar.Dir1.Path, 1) = "\") Then
        frmSalvar.txtFileName.Text = frmSalvar.Dir1.Path + frmSalvar.File1.FileName
    Else
        frmSalvar.txtFileName.Text = frmSalvar.Dir1.Path + "\" + frmSalvar.File1.FileName
    End If
End Sub

Private Sub cmdCancelar_Click()
    Unload frmSalvar
End Sub

Private Sub cmdOK_Click()
    If (Right$(Dir1.Path, 1) = "\") Then
        FileName$ = Dir1.Path + File1.FileName
    Else
        FileName$ = Dir1.Path + "\" + File1.FileName
    End If
    
    Open FileName$ For Input As #1
        frmEditor.txtPad.Text = Input$(LOF(1), #1)
    Close #1
        Unload frmLoad
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    Call FileName
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
    Call FileName
End Sub

Private Sub File1_Click()
    Call FileName
End Sub

'Private Sub mnuArquivoItem_Click(Index As Integer)
'Select Case Index
'    Case 0  'Abrir
'        frmAbrir.Show
'    Case 1  'Salvar
'        frmSalvar.Show
'    Case 2  'Separador
'    Case 3  'Sair
'        End
'End Select
'End Sub

mas dá erro ao cliclar em "ok"....

"Compile error:

Type-declaration character does not match declared data type"

Private Sub cmdOK_Click()    ' <- !!!!!!!!!!!!!!!!!!!!AQUI É QUE DÁ O ERRO!!!!!!!!!!!!!!
    If (Right$(Dir1.Path, 1) = "\") Then
        FileName$ = Dir1.Path + File1.FileName
    Else
        FileName$ = Dir1.Path + "\" + File1.FileName
    End If
    
    Open FileName$ For Input As #1
        frmEditor.txtPad.Text = Input$(LOF(1), #1)
    Close #1
        Unload frmLoad
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

gaspar, torno a perguntar, se tu tas a usar a CommonDialog, o que são o Dir1 e o File1?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tiago Salgado, Sim estou a usar CommonDialog.... ja tenho a form com caixas para escolher onde guardar, a drive... e um botao cancel e um botão "Ok", mas kndo clico em "ok" dá o erro, escrito nesta página, mais em cima....

Se me puderes ajudar.....

obrigadão, pah!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isto vai aqui uma grande confusão. Ou não me tou a explicar bem ou então tu não tas a perceber o que realmente é uma CommonDialog.

Faz-me um favorzinho, poe aqui um printscreen do teu form que tem as tais caixas para escolher onde guardar como tu dizes ...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Deslculpa, Tiago Salgado... Tens toda a razão eu não tava bem a ver o que era a commond Dialog... mas ja a estou a usar... Mas não estou a conseguir abrir nem guardar ficheiro na minha aplicação... pois quando clico "ok" simplesmente sai da commond Dialog respectiva...

Como é que posso pôr aki imgens no forum para ilustar melhor a minha duvida??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Deslculpa, Tiago Salgado... Tens toda a razão eu não tava bem a ver o que era a commond Dialog... mas ja a estou a usar... Mas não estou a conseguir abrir nem guardar ficheiro na minha aplicação... pois quando clico "ok" simplesmente sai da commond Dialog respectiva...

Como é que posso pôr aki imgens no forum para ilustar melhor a minha duvida??

Fazes um printScreen, carregando na tecla PrintScreen o lado do Scroll Lock , abres o paint e fazes colar. Guardas a Imagem como NOME.jpg e dps abres o site http://imageshack.us e fazes Procurar... dps Upload e copias o Link que diz : Hotlink for Forums(1) :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

CommonDialog1.CancelError = False
CommonDialog1.DialogTitle = "Insira Imagem..."
CommonDialog1.Filter = "Todas as Imagens |*.jpg;*.jpeg;*.gif;*.bmp"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

Ve se isto te ajuda...senao eu tento fazer um project com a utilizaçao da CommonDialog e forneço-te

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Agora tenho axim:

Private Sub mnuAbrir_Click()
    CommonDialog2.ShowOpen
End Sub

Private Sub mnuGuardar_Como_Click()
    CommonDialog2.ShowSave
End Sub

Depois de abrir a common Dialog "Abrir" e quando clico "ok" não faz nada.... Será por não ter especificado "Tipos de Ficheiro" ???? Como posso fazer?????

O memmo acontece para a common Dialog "Guardar como..."

http://img109.imageshack.us/img109/3264/abrir0gu.png

EDIT: GMRB, usa a ferramenta GeSHI quando postares código! Assim o código fica mais legível (como poderás verificar).

Cumprimentos brinkaero

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Agora tenho axim:

Private Sub mnuAbrir_Click()

    CommonDialog2.ShowOpen

End Sub

Private Sub mnuGuardar_Como_Click()

    CommonDialog2.ShowSave

End Sub

Depois de abrir a common Dialog "Abrir" e quando clico "ok" não faz nada.... Será por não ter especificado "Tipos de Ficheiro" ???? Como posso fazer?????

O memmo acontece para a common Dialog "Guardar como..."

http://img109.imageshack.us/img109/3264/abrir0gu.png

Não faz nada porque tu não estás a dizer que tem que fazer. Tu apenas tas a fazer o Open da Dialog mas não tas a dizer que qd carregares em OK tenha q fazer algo mais... A seguir ao CommonDialog2.ShowOpen tens q por o código que te poe o conteudo do ficheiro onde tu queiras.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim é isso mesmo... mas a minha duvida ta mm ai... mas kal é o código para que o botão "ok" funcione de forma correcta? Não faço a minima ideia...  :P

Se me conseguires ajudar.....

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Por exemplo, procurar uma imagem e pô-la numa picturebox:

CommondDialog1.ShowOpen
PictureBox1.Picture = CommonDialog1.Filename

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas!

Estou a fazer um editor de texto e fiz um código para uma commonDialog para abrir e escolher um ficheiro...

codigo:

Private Sub mnuopen_Click(Index As Integer)
Dim numficheiro
CommonDialog1.ShowOpen
numficheiro = FreeFile
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Input As numficheiro
    Text1.Text = Input(LOF(numficheiro), numficheiro)
    Close #numficheiro
End If
End Sub

mas agr keria defenir que essa commonDialog só abri-se ficheiros *.txt ... que código devo por?  :hmm:

cumps[]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens que usar a propriedade Pattern (penso que é este o nome)

CommonDialog1.Pattern= "Ficheiros Texto |*.txt"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pois... o problema é mesmo esse... a propriedade Pattern não existe no CommonDialog...

existe outra soluçao?

cumps  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pois... o problema é mesmo esse... a propriedade Pattern não existe no CommonDialog...

existe outra soluçao?

cumps  :)

A propriedade correcta no VB6 é o Filter e não Pattern como é no VB.NET . Desculpa a confusão :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Brigadão Tiago Salgado  :D

agr o prob ja está resolvido, mas como tamos em programaçao... entretanto surgiu outro  :hmm:

numa CommonDialog1.ShowSave como é k eu faço pa predefinir para ele gravar todos os ficheiros *.txt?

eu apliquei os filters e na parte de baixo ate ja aparece a extensao... mas dps quando gravo, ele grava tudo bem mas o ficheiro n fica com extensão *.txt

cumps :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Brigadão Tiago Salgado  :D

agr o prob ja está resolvido, mas como tamos em programaçao... entretanto surgiu outro  :hmm:

numa CommonDialog1.ShowSave como é k eu faço pa predefinir para ele gravar todos os ficheiros *.txt?

eu apliquei os filters e na parte de baixo ate ja aparece a extensao... mas dps quando gravo, ele grava tudo bem mas o ficheiro n fica com extensão *.txt

cumps :)

CommonDialog1.DefaultExt = "txt"

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