Visual Basic - Ajutor la OpenFile Dialog

#1
kuerten

Posted 18 August 2002 - 21:42

Junior Member

Grup: Members
Posts: 74
Înscris: 17.08.2002

Va rog foarte mult am si eu o problema!!!!
vreau sa imi apara o fereastra de Open (normala) apasand pe butonul "browse", dar la codul urmator imi a eroarea Sub or function not defined si imi selecteaza cuvantul openFile
Ce se petrece??? :help:

Private Sub browse_Click()
On Error GoTo errhandler
CommonDialog1.Filter = "All Files (*.*)|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
OpenFile (CommonDialog1.FileName)
Exit Sub
errhandler:
Exit Sub
End Sub

Back to top

#2
Sammy

Posted 18 August 2002 - 22:15

Active Member

Grup: Members
Posts: 1,403
Înscris: 26.11.2001

de ce filterindex=2?
si openfile(commondialog1.filename) ce ar trebui sa faca?
nu am mai folosit vb de muuuuult :)

Back to top

#3
kuerten

Posted 19 August 2002 - 22:48

Junior Member

Grup: Members
Posts: 74
Înscris: 17.08.2002

este cineva care ar dori sa corespondeze cu mine pe tema acestui limbaj??? Daca da sa-mi scrie pe mail la
[email protected]

Back to top

#4
Luc

Posted 26 August 2002 - 17:08

Junior Member

Grup: Members
Posts: 29
Înscris: 02.02.2002

A cam trecut ceva timp de cand ai pus intrebarea... daca te mai intereseaza inca, atunci ia in considerare urmatoarele:
In VB nu exista o functie OpenFile(...) De aceea primesti mesajul de eroare.
Daca vrei sa 'deschizi' acel fisier, trebuie intai sa precizezi ce intelegi prin asta:
1) aplicatia ta deschide propriu zis fisierul pentru a citi si/sau scrie in el; sau
2) fisierul este de un tip cunoscut si doresti sa fie deschis de aplicatia sa proprie, de ex. fisiere *.doc - Word, *.txt - Notepad, etc.

Daca vrei sa deschizi de ex un fisier text, poti scrie asa:

Private Sub Command1_Click()
Dim RetVal As Integer
RetVal = Shell("notepad.exe c:NumeFisier.txt", 1)
End Sub

Poate ca o sa iti fie util sa arunci o privire in Help la VBA.FileSystem si Shell(pathname[,windowstyle])
Succes.

Back to top

#5
AndiOliver

Posted 27 February 2003 - 15:16

Junior Member

Grup: Members
Posts: 219
Înscris: 27.02.2003

Daca folosesti un common dialog (sa presupunem ca l-ai denumit comdlg), atunci comanda de invocare a ferestrei ar fi:
comdlg.showopen

Acum mai mult ca sigur ca stii, dar dupa cum ii spune si numele, Common Dialog are forme diferite de deschidere:
1) ShowOpen - Deschide o fereastra de browsing in functie de filtrul dat
2) ShowPrinter - Deschide panoul de printare.
3) ShowSave - Fereasta de salvare a unui fisier din aplicatia ta.
4) ShowColor - Pentru culoare
5) Show Font

Sper sa fie de folos aceste rinduri.

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Visual Basic - Ajutor la OpenFile Dialog

#1 kuerten Posted 18 August 2002 - 21:42

#2 Sammy Posted 18 August 2002 - 22:15

#3 kuerten Posted 19 August 2002 - 22:48

#4 Luc Posted 26 August 2002 - 17:08

#5 AndiOliver Posted 27 February 2003 - 15:16

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
kuerten

Posted 18 August 2002 - 21:42

#2
Sammy

Posted 18 August 2002 - 22:15

#3
kuerten

Posted 19 August 2002 - 22:48

#4
Luc

Posted 26 August 2002 - 17:08

#5
AndiOliver

Posted 27 February 2003 - 15:16