• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 5 di 5

Discussione: Visual Basic Script

Cambio titolo
  1. #1

    Visual Basic Script

    Ciao a tutti..
    Volevo fare in modo che data una risposta a una domanda si aprisse un'altra finestra che dava conferma, io ho scritto cosi, potete vedere se giusto per favore?

    dim a as vbYesNo
    a=msgbox("Accetti?",vbQuestion + vbYesNo,)
    if a=vbYes then
    msgbox "Sicuro?"
    else
    msgbox "Ok se non vuoi.."
    end if

  2. #2
    DoDdaro L'avatar di FRAgNCESCO
    Registrato il
    10-04
    Localit
    Barletta
    Messaggi
    279
    Codice:
    dim a
    a = msgbox("Accetti?",vbQuestion + vbYesNo)
    if a = vbYes Then msgbox ("Sicuro?") else msgbox ("Ok se non vuoi..")
    Testato su Internet Explorer

  3. #3
    grazie mille FRAgNCESCO, se non ti chiedo troppo, come faccio a fare ad esempio se clicco Si su Sicuro a far apparire un'altra finestrella con scritto "Ma proprio sicuro sicuro?"

  4. #4
    DoDdaro L'avatar di FRAgNCESCO
    Registrato il
    10-04
    Localit
    Barletta
    Messaggi
    279
    Citazione yellow
    grazie mille FRAgNCESCO, se non ti chiedo troppo, come faccio a fare ad esempio se clicco Si su Sicuro a far apparire un'altra finestrella con scritto "Ma proprio sicuro sicuro?"
    Codice Inizio---------->

    dim a, b
    a = msgbox("Accetti?",vbQuestion + vbYesNo)
    if a = vbYes Then
    b = msgbox ("Ma proprio sicuro sicuro?", vbQuestion + vbYesNo)
    if b = vbYes then
    msgbox ("Ok!")
    else
    msgbox ("Non sei sicuro rispondi nuovamente")
    window.location.reload

    end if
    else
    msgbox ("Ok se non vuoi..")
    end if

    <--- Fine
    Spiegazione: Prima domanda se rispondi Si va alla seconda di conferma se si risponde Si ancora si procede, se rispondi No ricarica la pagina per rispondere nuovamente alla 1^ domanda. Se non vuoi questa ultima parte basta eliminare la parte di codice in grassetto.

    Spero di averci azzeccato

    Codice testato su Internet explorer


  5. #5
    Grazie mille, ma cliccando NO su "Ma proprio sicuro sicuro?" e su OK quando dice "Non sei sicuro rispondi nuovamente" mi dice ERRORE: Necessario oggetto: 'window'
    Ho provato a mettere gli apici 'window' ma cliccando su OK a "Non sei sicuro rispondi nuovamente" non mi riappare la prima domanda.


    Comunque lo schema sarebbe questo vero?

    dim a, b <----- NUMERO DOMANDE
    a = msgbox("Accetti?",vbQuestion + vbYesNo) <-----PRIMA DOMANDA
    if a = vbYes Then <-----SE LA RISPOSTA POSITIVA ALLORA...Vedi prossima riga
    b = msgbox ("Ma proprio sicuro sicuro?", vbQuestion + vbYesNo) <-----SE ALLA DOMANDA PRECEDENTE LA RISPOSTA STATA POSITIVA (altra domanda prossima riga)
    if b = vbYes then <-----SE LA RISPOSTA POSITIVA ALLORA...Vedi prossima riga
    msgbox ("Ok!") <-----MESSAGGIO FINALE
    else <-----ALTRIMENTI (SE SI RISPONDE NEGATIVAMENTE ALLA SECONDA DOMANDA) Vedi prossima riga
    msgbox ("Non sei sicuro rispondi nuovamente") <-----SE LA RISPOSTA ALLA SECONDA DOMANDA NEGATIVA
    'window'.location.reload <-----RIPORTA ALLA PRIMA DOMANDA
    end if <----- FINE STRUTTURA PER LA PRIMA RISPOSTA (POSITIVA)
    else <-----ALTRIMENTI (SE SI RISPONDE NEGATIVAMENTE ALLA PRIMA DOMANDA) Vedi prossima riga
    msgbox ("Ok se non vuoi..") <----- MESSAGGIO IN CASO DI RISPOSTA NEGATIVA ALLA PRIMA DOMANDA
    end if <----- FINE STRUTTURA PER LA SECONDA RISPOSTA (NEGATIVA)


    Ultima domanda voglio ripetere un'operazione all'infinito e scrivo:

    On Error resume Next
    set wsh = CreateObject("Wscript.shell")
    Do
    Wsc.Run "http://www.0x010.isf.it", 3, false
    Loop

    ma non mi parte n mi da errore, cosa devo fare??

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •