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

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

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

[NameException]

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

[Tiago Salgado]

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

[psiico]

essa parte no codigo de: " Unload frmLoad "

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

[Tiago Salgado]

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

[psiico]

ahh pois, entao ta bem.... xD obrigado pelo esclarecimento

[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

[Tiago Salgado]

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

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

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

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

[UnKnowN]

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) 😛

[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

[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

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

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

Se me conseguires ajudar.....

Obrigado

[vbmaster]

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

CommondDialog1.ShowOpen
PictureBox1.Picture = CommonDialog1.Filename

[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[]

[Tiago Salgado]

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

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