Jump to content
Sign in to follow this  
NameException

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

Recommended Posts

NameException

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

Share this post


Link to post
Share on other sites
vbmaster

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

Share this post


Link to post
Share on other sites
NameException

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

Share this post


Link to post
Share on other sites
Tiago Salgado

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

Share this post


Link to post
Share on other sites
psiico

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?

Share this post


Link to post
Share on other sites
Tiago Salgado

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

Share this post


Link to post
Share on other sites
NameException

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

Share this post


Link to post
Share on other sites
Tiago Salgado

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

Share this post


Link to post
Share on other sites
NameException

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!

Share this post


Link to post
Share on other sites
Tiago Salgado

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

Share this post


Link to post
Share on other sites
NameException

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

Share this post


Link to post
Share on other sites
UnKnowN

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

Share this post


Link to post
Share on other sites
Tiago Salgado

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

Share this post


Link to post
Share on other sites
NameException

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

Share this post


Link to post
Share on other sites
Tiago Salgado

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.

Share this post


Link to post
Share on other sites
NameException

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

Share this post


Link to post
Share on other sites
vbmaster

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

CommondDialog1.ShowOpen
PictureBox1.Picture = CommonDialog1.Filename

Share this post


Link to post
Share on other sites
Tiago_22

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

cumps[]

Share this post


Link to post
Share on other sites
Tiago Salgado

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

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

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
Sign in to follow this  

×
×
  • Create New...

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.