Visualizzazione dei risultati da 1 a 5 su 5

Discussione: MsgBox con due Command

  1. #1

    MsgBox con due Command

    Helo ragazzi mi serve una mano
    Quando sia vvia la stampa mi deve comparire un MsgBox con due pulsanti di comando, il primo OK continua la procedura ed il secondo NO interrompe.
    Posso farlo con il codice MsgBox oppure mi devo creare tanti piccoli form?
    Dato che i comandi interessati sono circa 18, sarebbe una bella rottura avere 18 finestrelle in giro.

    salve a tutti
    gyonny

  2. #2
    Utente di HTML.it L'avatar di Mabi
    Registrato dal
    May 2002
    Messaggi
    1,245
    Ti basta guardare i parametri della finestra di dialogo, fra questi trovi anche il tipo di icona e di Buttons.
    Dopo gestisci la risposta restituita nella variabile corrispondente.
    codice:
    Dim Messaggio As String
    
    Messaggio = MsgBox("Continuare la stampa ?", vbCritical + vbYesNo, "Stampa")
    If Messaggio = "6" Then
      'SI
    End If
    If Messaggio = "7" Then
      'NO
    End If

  3. #3
    Utente di HTML.it L'avatar di sebamix
    Registrato dal
    Aug 2000
    Messaggi
    1,028
    Originariamente inviato da Mabi
    ...
    codice:
    Dim Messaggio As String
    
    Messaggio = MsgBox("Continuare la stampa ?", vbCritical + vbYesNo, "Stampa")
    If Messaggio = "6" Then
      'SI
    End If
    If Messaggio = "7" Then
      'NO
    End If
    MsgBox ritorna un tipo preciso di dati (vbMsgBoxResult). Perchè usare una stringa?

    codice:
        Dim Messaggio As VbMsgBoxResult
        Messaggio = MsgBox("Continuare la stampa?", vbCritical + vbYesNo, "Attenzione ...")
        Select Case Messaggio
            Case VbMsgBoxResult.vbYes
                '... SI
            Case VbMsgBoxResult.vbNo
                '... NO
        End Select
    Poi nel caso che i pulsanti siano solo 2 si può fare così (che è più compatto).

    codice:
        If MsgBox("Continuare la stampa?", vbCritical + vbYesNo, "Attenzione ...") = vbYes Then
            '... SI
        Else
            '... NO
        End If

  4. #4
    Originariamente inviato da sebamix


    MsgBox ritorna un tipo preciso di dati (vbMsgBoxResult). Perchè usare una stringa?

    codice:
        Dim Messaggio As VbMsgBoxResult
        Messaggio = MsgBox("Continuare la stampa?", vbCritical + vbYesNo, "Attenzione ...")
        Select Case Messaggio
            Case VbMsgBoxResult.vbYes
                '... SI
            Case VbMsgBoxResult.vbNo
                '... NO
        End Select
    Poi nel caso che i pulsanti siano solo 2 si può fare così (che è più compatto).

    codice:
        If MsgBox("Continuare la stampa?", vbCritical + vbYesNo, "Attenzione ...") = vbYes Then
            '... SI
        Else
            '... NO
        End If
    CHE POI RITORNA DEI LONG è UNA FORZATURA "6"
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

  5. #5
    Utente di HTML.it L'avatar di sebamix
    Registrato dal
    Aug 2000
    Messaggi
    1,028
    Originariamente inviato da xegallo

    CHE POI RITORNA DEI LONG è UNA FORZATURA "6"
    Più che altro è una conversione da numerico a stringa inutile.
    Poi se si usano i nomi delle costanti il codice è decisamente più leggibile;

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.