Re: avvertire un utente che sta salvando un file gia esistente

Article View: free.it.visual-basic

Article #2381

Back to free.it.visual-basic Previous Next

#2381

From: Genesio Conti
Date: Thu, 12 Jun 2003 11:37

37 lines
2402 bytes

"Alessio" <@ .it> ha scritto nel messaggio
news:CZNFa.77365$pR3.1620202@news1.tin.it...

> uso questo codice si ti puo esere di aiuto per risorvermi il problema
> Private Sub mnuSaveAs_Click()
>   On Error GoTo SaveCancelled
>
> MDIForm1.CommonDialog1.Filter = "File edit document text(*.edt)|*edt| File
> RTF (*.rtf)|*.rtf|File word (*.doc)|*.doc|Tutti i file (*.*)|*.*"

    CommonDialog1.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist +
cdlOFNNoReadOnlyReturn

>   CommonDialog1.ShowSave
>
>   If CommonDialog1.FileName = "" Then Exit Sub
>   Open CommonDialog1.FileName For Output As #1
>   Print #1, ChildForms(frm).text1.TextRTF
>   Close #1
>   If NeedSaved(frm) = True Then
>     NeedSaved(frm) = False
>     ChildForms(frm).Caption = Right$(ChildForms(frm).Caption,
> Len(ChildForms(frm).Caption) - 1)
>   End If
>   ChildForms(frm).Caption = CommonDialog1.FileTitle
>   file(frm) = CommonDialog1.FileTitle
>   PFile(frm) = CommonDialog1.FileName
>
> SaveCancelled:

on error goto 0  ' io ce lo metterei....

> End Sub

Ciao
Genesio

Technical Details

Message-ID: <kCZFa.79532$pR3.1658903@news1.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!nntp.infostrada.it!newsfeeder.edisontel.com!news-out.tin.it!news-in.tin.it!news1.tin.it.POSTED!not-for-mail

References:

<hbOEa.99319$g92.2366727@news2.tin.it> <TY2Fa.64566$pR3.1385021@news1.tin.it> <ABoFa.70335$pR3.1485144@news1.tin.it> <gTzFa.118422$g92.2759849@news2.tin.it> <CZNFa.77365$pR3.1620202@news1.tin.it>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f94ee,ff90c2e0f5ee5253
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2003-06-12 04:40:07 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!nntp.infostrada.it!newsfeeder.edisontel.com!news-out.tin.it!news-in.tin.it!news1.tin.it.POSTED!not-for-mail
From: "Genesio Conti" <genesio.conti@virgilio.it>
Newsgroups: free.it.visual-basic
References: <hbOEa.99319$g92.2366727@news2.tin.it> <TY2Fa.64566$pR3.1385021@news1.tin.it> <ABoFa.70335$pR3.1485144@news1.tin.it> <gTzFa.118422$g92.2759849@news2.tin.it> <CZNFa.77365$pR3.1620202@news1.tin.it>
Subject: Re: avvertire un utente che sta salvando un file gia esistente
Lines: 39
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <kCZFa.79532$pR3.1658903@news1.tin.it>
Date: Thu, 12 Jun 2003 11:37:52 GMT
NNTP-Posting-Host: 62.211.229.210
X-Complaints-To: newsmaster@tin.it
X-Trace: news1.tin.it 1055417872 62.211.229.210 (Thu, 12 Jun 2003 13:37:52 MET DST)
NNTP-Posting-Date: Thu, 12 Jun 2003 13:37:52 MET DST
Organization: TIN

Reply to Parent Message