Script VB para caixa de diálogo

Killer XD · 8 de abril de 2009

E aí, pessoal, beleza?

Então, quero montar um programa, e precisso de um script VB para mostrar uma caixa de diálogo, com os botões Sim e Não, que ofereça uma escolha para abrir um aplicativo.

Já tenho instalado o VB Express, e tentei fazer mas não consegui, só entendo batch

Se tiver um script para caixa de diálogo em batch, pode postar aí também, é até melhor, mas de preferência em VB, ou VBS.

HwapX · 9 de abril de 2009

não entendi muito bem mais voce quer o codigo para mostrar uma caixa de dialogo com as opções sim e não e se a pessoa clicar em sim abre um programa correto se esse for o caso veja se isso serve

If MsgBox("mensagem", MsgBoxStyle.YesNo, "titulo") = MsgBoxResult.Yes Then
Shell("programa.exe")

End If

obs: 1º se o programa que voce quer abrir não estiver na mesma pasta deste voce tera que colocar o caminho completo 2ºno computador da pessoa se ela tiver instalado o net.framework em portugues ira aparecer sim e não

agora se voce quer um codigo para exibir uma caixa de dialogo com as opções sim e não mais a opção de abrir um programa creio que a unica maneira de fazer isso seja criando um form com os botões desejados

me corrijam se eu estiver errado em alguma coisa.

Killer XD · 9 de abril de 2009

Tentei desse modo aí e não deu certo. Tentei até assim:

Function Launcher()
    MsgBox "Deseja iniciar o programa?", MsgBoxStyle.YesNo, "programa Launcher"
	 If MsgBox("Deseja iniciar o programa?", MsgBoxStyle.YesNo, "programa Launcher") = MsgBoxResult.Yes Then
        Shell("programa.exe")
     If MsgBox("Deseja iniciar o programa?", MsgBoxStyle.YesNo, "programa Launcher") = MsgBoxResult.No Then
	    End If
	End If
End Function

Desse jeito, o script não estava errado (não deu erro), mas nenhuma caixa de diálogo apareceu.

Vou tentar criar um Form para ver.