C# / VB.NET - [VB NET] msgboxresult non funziona

Forum - C# / VB.NET - [VB NET] msgboxresult non funziona

gnapolitano@teletu.it (Normal User)
Newbie

Messaggi: 14
Iscritto: 20/06/2020

Postato alle 17:30
Venerdì, 26/06/2020

Ho il seguente codice:

Codice sorgente - presumibilmente VB.NET

Private Sub stampa_Click(sender As Object, e As EventArgs) Handles stampa.Click
        WebBrowser1.ShowPageSetupDialog()
        If MsgBoxResult.Ok Then
            For NumPag = 1 To pagine
                fileName = Application.StartupPath & "\tabulati\registroChiusuraNF" & Format(NumPag, "00") + ".html"
                WebBrowser1.Navigate(fileName)
                Application.DoEvents()
                Threading.Thread.Sleep(20)
                Do While WebBrowser1.IsBusy
                    Application.DoEvents()
                Loop
                WebBrowser1.Print()
            Next
        Else
            Me.annostat.Text = ""
            Me.Close()
            Exit Sub
        End If
    End Sub

Perché mai msgboxresult non esegue il condizionamento e quindi manda ttto il stampa come se cliccassi sempre su OK?
Grazie per il vostro aiauto.

Carlo (Member)
Guru

Messaggi: 1231
Iscritto: 29/01/2018

Postato alle 17:50
Venerdì, 26/06/2020

WebBrowser1.ShowPageSetupDialog() ti fa impostare i parametri di stampa, se clicchi ok i parametri vengono memorizzati, se clicchi annulla i parametri non vengono memorizzati.
WebBrowser1.ShowPageSetupDialog() lo devi richiamare con un button a parte, [SETTAGGIO PARAMETRI DI STAMPA]
Quando clicchi [STAMPA], la stampa avviene con i settaggi memorizzati.

Codice sorgente - presumibilmente VB.NET

Private Sub stampa_Click(sender As Object, e As EventArgs) Handles stampa.Click
    ' WebBrowser1.ShowPageSetupDialog() ' cosa vorresti ottenere con questa istruzione?
    Dim res As MsgBoxResult = MsgBox("stampo?", MsgBoxStyle.OkCancel) ' la conferma di stampare?
    If res = MsgBoxResult.Ok Then
        For NumPag = 1 To pagine
            filename = Application.StartupPath & "\tabulati\registroChiusuraNF" & Format(NumPag, "00") + ".html"
            WebBrowser1.Navigate(filename)
            Application.DoEvents()
            Threading.Thread.Sleep(20)
            Do While WebBrowser1.IsBusy
                Application.DoEvents()
            Loop
            WebBrowser1.Print()
        Next
    Else
        Me.annostat.Text = ""
        Me.Close()
        Exit Sub
    End If
End Sub

Ultima modifica effettuata da Carlo il 26/06/2020 alle 18:34

in programmazione tutto è permesso

gnapolitano@teletu.it (Normal User)
Newbie

Messaggi: 14
Iscritto: 20/06/2020

Postato alle 19:07
Venerdì, 26/06/2020

Buonasera,Carlo.Grazie.Le sue argomentazioni sono logiche ,come funzionante è la soluzione indicata!
In effetti,grazie alla mie scarse conoscenze,era convinto che ShowPageSetupDialog includesse anche la fase di stampa del documento e non solo il settaggio!
Grazie ancora. Sbagliando … ho imparato una cosa in più.

Carlo (Member)
Guru

Messaggi: 1231
Iscritto: 29/01/2018

Postato alle 19:25
Venerdì, 26/06/2020

Gli ShowDialog, non si comportano tutti allo stesso modo, e la logica d'uso non è sempre la stessa, però una volta che ci si è scontrati non si dimentica più.

in programmazione tutto è permesso

gnapolitano@teletu.it (Normal User)
Newbie

Messaggi: 14
Iscritto: 20/06/2020

Postato alle 17:36
Sabato, 27/06/2020

Sì, è vero.
Infatti, da ieri sera, proprio a seguito del suo assunto ("Gli ShowDialog, non si comportano tutti allo stesso modo…") sto provando ancora una volta l'ebrezza dell'insuccesso con ShowPrintPreviewDialog!!!
Buona serata.