none
Criar mais um botão e mudar o nome do botão RRS feed

  • Pergunta

  • Ba galera.

    Estou usando o codigo abaixo como parte de um outro script tche, e estou com duas questões.

    A primeira, é possivel mudar o nome dos botões, pois da forma que esta o mesmo apresenta um botão Sim e outro Não.

    A segunda questão tche, é possivel criar mais um botão neste box para cancelar a execução do script.

    obrigado galera.

    codigo.

    Dim WshShell, BtnCode
    Set WshShell = WScript.CreateObject("WScript.Shell")

    BtnCode = WshShell.Popup("Clique no 1 / Clique no 2",30,"Tipo da Solicitação:", 4 + 32)

    Select Case BtnCode
       case 6      WScript.Echo "Você escolheu o 1"
       case 7      WScript.Echo "Você escolheu o 2"
    End Select

    sábado, 16 de junho de 2012 19:09

Respostas

  • Marcelo,

    Por partes

    é possivel mudar o nome dos botões, pois da forma que esta o mesmo apresenta um botão Sim e outro Não.

    Não é possivel, se quiser customizar vai ter que partir para uma solução de .hta

    é possivel criar mais um botão neste box para cancelar a execução do script.

    Sim é possivel usar Yes,no,cancel, o segredo está no parametro que vc utilizou 4+32

    Siga esta tabela

    <trf></trf><trf></trf><trf></trf><trf></trf>
    Value Button
    0 OK
    1 OK, Cancel
    2 Abort, Ignore, Retry
    3 Yes, No, Cancel
    4 Yes, No
    5 Retry, Cancel
       <tr0></tr0>
    Value Icon
    16 Critical
    32 Question
    48 Exclamation
    64 Information


    Como vc utilizou 4+32 então apareceu os botões Yes e No(opção 4) e apareceu o desenho de questionamento (32)

    Se quiser 3 botões isto é vbYesNoCancel e o questionamento (32) utilize 3+32

    Agora tem a tabela de retorno da opção que o usuário escolheu, pelo jeito vc já conhece 6 e 7


    intReturnValue Button Clicked
    1 OK
    2 Cancel
    3 Abort
    4 Retry
    5 Ignore
    6 Yes
    7 No
    -1 None, message box was dismissed automatically (timeout)


    Dim WshShell, BtnCode
    Set WshShell = WScript.CreateObject("WScript.Shell")
    BtnCode = WshShell.Popup("Clique no 1 / Clique no 2",30,"Tipo da Solicitação:", 3 + 32)
    Select Case BtnCode
       case 6      WScript.Echo "Você escolheu o 1"
       case 7      WScript.Echo "Você escolheu o 2"
       case 2      Wscript.echo "Você cancelou"
    End Select


    Ref.:

    Method: WshShell.Popup 

    www.devguru.com/technologies/wsh/quickref/wshshell_popup.html



    Fábio de Paula Junior




    sábado, 16 de junho de 2012 23:10
    Moderador

Todas as Respostas

  • Marcelo,

    Por partes

    é possivel mudar o nome dos botões, pois da forma que esta o mesmo apresenta um botão Sim e outro Não.

    Não é possivel, se quiser customizar vai ter que partir para uma solução de .hta

    é possivel criar mais um botão neste box para cancelar a execução do script.

    Sim é possivel usar Yes,no,cancel, o segredo está no parametro que vc utilizou 4+32

    Siga esta tabela

    <trf></trf><trf></trf><trf></trf><trf></trf>
    Value Button
    0 OK
    1 OK, Cancel
    2 Abort, Ignore, Retry
    3 Yes, No, Cancel
    4 Yes, No
    5 Retry, Cancel
       <tr0></tr0>
    Value Icon
    16 Critical
    32 Question
    48 Exclamation
    64 Information


    Como vc utilizou 4+32 então apareceu os botões Yes e No(opção 4) e apareceu o desenho de questionamento (32)

    Se quiser 3 botões isto é vbYesNoCancel e o questionamento (32) utilize 3+32

    Agora tem a tabela de retorno da opção que o usuário escolheu, pelo jeito vc já conhece 6 e 7


    intReturnValue Button Clicked
    1 OK
    2 Cancel
    3 Abort
    4 Retry
    5 Ignore
    6 Yes
    7 No
    -1 None, message box was dismissed automatically (timeout)


    Dim WshShell, BtnCode
    Set WshShell = WScript.CreateObject("WScript.Shell")
    BtnCode = WshShell.Popup("Clique no 1 / Clique no 2",30,"Tipo da Solicitação:", 3 + 32)
    Select Case BtnCode
       case 6      WScript.Echo "Você escolheu o 1"
       case 7      WScript.Echo "Você escolheu o 2"
       case 2      Wscript.echo "Você cancelou"
    End Select


    Ref.:

    Method: WshShell.Popup 

    www.devguru.com/technologies/wsh/quickref/wshshell_popup.html



    Fábio de Paula Junior




    sábado, 16 de junho de 2012 23:10
    Moderador
  • Ba Fabio

    tu não descansa não tche...

    obrigado compreendi.

    sábado, 16 de junho de 2012 23:20