10 messaggi dal 01 settembre 2010
Salve, ho ideato un semplice winform con un controllo webbrowser, una textbox, e un button.
Il winform apre un sito in cui un file in .pdf viene aggiornato ogni giorno.
Nella textbox all'apertura del webbrowser viene visualizzata la data corrente in forma di stringa che indico con j.
Il button all'interno contiene questo codice :

Dim j As String
j = (TextBox1.Text)
WebBrowser1.ShowSaveAsDialog()

Quando clicco su button, la casella nome file della finestra "salva una copia.." viene evidenziata in colore blu, non riesco a fare in modo che la stringa j si sostituisca nella casella e mi permetta di salvare il file evitando di digitare il nome.
il sistema che uso è visual studio 2008
Mi sapreste aiutare ?
Modificato da ale il 08 dicembre 2010 20.55 -
710 messaggi dal 13 novembre 2008
Contributi
non credo che con il metodo ShowSaveAsDialog() puoi ottenere il comportamento che desideri

http://msdn.microsoft.com/it-it/library/system.windows.forms.webbrowser.showsaveasdialog.aspx

prova ad usare il metodo SaveFileDialog()

http://msdn.microsoft.com/it-it/library/system.windows.forms.savefiledialog.aspx

che deriva da FileDialog()


http://msdn.microsoft.com/it-it/library/system.windows.forms.filedialog.aspx
10 messaggi dal 01 settembre 2010
grazie del suggerimento.
ho riprovato ancora il codice che avevo scritto. non va bene.

ho provato con SaveFileDilog e tutto il "meccanismo" funziona.
Purtroppo quando vado ad aprire con Adobe il file in pdf salvato, compare il messaggio di errore :
"Adobe Reader......il file non è supportato oppure il file è danneggiato....."
lo stesso file salvato normalmente si apre senza problemi.

questo il codice all'interno del (solito) button

Dim j As String
j = (TextBox1.Text)
SaveFileDialog1.InitialDirectory = "c:\"
With SaveFileDialog1
.DefaultExt = ".pdf"
.FileName = j
.Filter = "file documents (*.pdf)|*.pdf|all files(*.*)|*.*"
.FilterIndex = 1
.OverwritePrompt = True
.Title = "demo save"
End With

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
j = SaveFileDialog1.FileName
My.Computer.FileSystem.WriteAllText(j, vbCrLf, False)
Catch ex As Exception
MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If

il problema è .WriteAllText ?
Modificato da ale il 13 dicembre 2010 18.06 -
Modificato da ale il 13 dicembre 2010 18.06 -

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.