Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB NET] msgboxresult non funziona
Forum - C# / VB.NET - [VB NET] msgboxresult non funziona

Avatar
gnapolitano@teletu.it (Normal User)
Newbie


Messaggi: 11
Iscritto: 20/06/2020

Segnala al moderatore
Postato alle 17:30
Venerdì, 26/06/2020
Ho il seguente codice:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub stampa_Click(sender As Object, e As EventArgs) Handles stampa.Click
  2.         WebBrowser1.ShowPageSetupDialog()
  3.         If MsgBoxResult.Ok Then
  4.             For NumPag = 1 To pagine
  5.                 fileName = Application.StartupPath & "\tabulati\registroChiusuraNF" & Format(NumPag, "00") + ".html"
  6.                 WebBrowser1.Navigate(fileName)
  7.                 Application.DoEvents()
  8.                 Threading.Thread.Sleep(20)
  9.                 Do While WebBrowser1.IsBusy
  10.                     Application.DoEvents()
  11.                 Loop
  12.                 WebBrowser1.Print()
  13.             Next
  14.         Else
  15.             Me.annostat.Text = ""
  16.             Me.Close()
  17.             Exit Sub
  18.         End If
  19.     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.

PM Quote
Avatar
Carlo (Member)
Guru


Messaggi: 694
Iscritto: 29/01/2018

Segnala al moderatore
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

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


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


in programmazione tutto è permesso
PM Quote
Avatar
gnapolitano@teletu.it (Normal User)
Newbie


Messaggi: 11
Iscritto: 20/06/2020

Segnala al moderatore
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ù.

PM Quote
Avatar
Carlo (Member)
Guru


Messaggi: 694
Iscritto: 29/01/2018

Segnala al moderatore
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
PM Quote
Avatar
gnapolitano@teletu.it (Normal User)
Newbie


Messaggi: 11
Iscritto: 20/06/2020

Segnala al moderatore
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.

PM Quote