Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Otwieranie
anonim




Typ: Nie zarejestrowany
Otwieranie

Przypuśćmy, że napisze program, który zapisuje pliki jako typ *.vir*. Zapisze swój dokument w takim formacie i otworze ten plik. Teraz: co musi zrobić mój program, aby po instalacji programu Windows otwierał mój program i w oknie textowym wyświetlał automatycznie zawartość doqmentu. Pomocy! Ważne!

24-03-2003 22:52
  
err404



Typ: neutral
Postów: 14
Zarejestrowany: Nov 2002
Po pierwsze

Musisz mieć jakiś jakiś cfg w którym będziesz miał zapisaną liste ostatnio otwartych dokumentów
(niektórzy co sprytniejsi uzywają do tego rejestru, ale jak nie wiesz jak lepiej zrób sobie cfg-configa)powiedzmy że masz plik cfg który najduje się w tej samej lokalizacji co plik exe
po uruchomieniu otwierasz ten plik wczytujesz linie a tam np jest ścieżka do twojego ostatniego dokumentu
pobierasz ją
warto sprawdzić czy plik istnieje i oprogramować zdarzenia na to czy jest czy nie
jak jest no to go otwierasz!!!!!
Ok a teraz czas na kod
Sub Main()'Funkja głowna(może też być frmload nie ma znaczenia)
Dim DocPath as string'Deklaracja sciezki dokumentu
Dim CFGFile as string'Sciezka Konfigu
Dim FreeFileN as integer
FreeFileN = FreeFile'Przypisanie wolnego numeru pliku
if len(app.path)>3 then 'stworzenie porpawnej sciezki do cfg w zależnosci od tego czy program znajduje sie na głownym dysku czy gdzie indziej
CFGFile=App.path & "\my.cfg"
else
CFGFile=App.path & "my.cfg"
endif
On Local Error Goto FileCFGNOTExist'Akcja na lokalny bład(kiedy np pliku cfg nie będzie albo będzie uszkodzony)
open CFGFile for input as #FreeFileN'owtieram cfg
Line Input #FreeFileN, DocPath'pobieram linie
close #FreeFileN'zamykam cfg
Call OpenDoc(DocPath)'wywołuje otwarcie z parametrem
exit sub'wychodze z procedury
FileCFGNOTExist:'a tu trafiam jak wystapi lokalny bład
msgbox "Nie odnaleziono pliku cfg",vbCritical,"Błąd CFG"'wyświetli się msgbox
End Sub
sub OpenDoc(mPath as string)'parametr i procedura
On Local Error Goto FileNOTExist'znowy deklaracja lokalnego błedu
Dim FreeFileN as integer
FreeFileN = FreeFile
Open mPath for input as #FreeFileN
'tu jakieś tam twoje funkcje otwierające(albo bajt po bajcie albo inaczej)
close #FreeFileN
exit sub
FileNOTExist:
msgbox "Ostatnio Edytowany dokument nie istnieje, został skasowany lub przeniesiony w inną lokalizacje",vbExclamation,"Nie odnaleziono ostatnio otwieranego dokumentu"
end sub

25-03-2003 08:19
Pokaż profil err404  Wyślij email do err404        1306176
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

Rozumiem ze ma otwierac ostatnio edytowant plik tak? jesli tak to mozna to zrobic bardzo prosto

W general utworz zmienna

Private StrLastFile as String

w from_Unload:

zapisz plik
StrLasFile = sciezka_zapisanego_pliku


i w form_load

(np w RichTextBox)

Text1.FileName = StrLastFile

(mozna by sie jeszcze bawic w sprawdzanie czy pik istieje .. gdzies juz o tym pisalem..)


_____________________________________________
www.KURDE.pl

27-03-2003 14:58
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1