ABRIR PROGRAMA CALCULADORA DO WINDOWS PELO VB
Dae galera
Alguém poderia me dar uma força?
Eu queria fazer com que um clique num command button abra a calculadora do Windows.
Eu achei aqui no site um comando assim:
Quando fui rodar no VB não deu certo. O que tenho que fazer para que esse comando rode?
Também achei no site uma rotina que continua o código do aplicativo somente quando o programa chamado abrir totalmente, mas, aquilo lá está um pouco além do meu entendimento.
Eu imagino que não deva ser muito difÃcil...
Agradeço as ajudas
Obrigado
Alguém poderia me dar uma força?
Eu queria fazer com que um clique num command button abra a calculadora do Windows.
Eu achei aqui no site um comando assim:
Resultado = Shell(CaminhodoPrograma),TipodeExecução
Quando fui rodar no VB não deu certo. O que tenho que fazer para que esse comando rode?
Também achei no site uma rotina que continua o código do aplicativo somente quando o programa chamado abrir totalmente, mas, aquilo lá está um pouco além do meu entendimento.
Eu imagino que não deva ser muito difÃcil...
Agradeço as ajudas
Obrigado
tente assim
coloque isso no codigo do command button
coloque isso no codigo do command button
shell ("c:\windows\calc.exe")
Para abrir tanto no 98/ME quanto no 2000/XP vc pode fazer assim
Espero ter ajudado
if $dir("c:\windows\calc.exe")<>empty then '= se existir arquivo
shell ("c:\windows\calc.exe") 'abrir no 98/me
elseif $dir("c:\windows\system\calc.exe")<>empty then 'se existir no xp/2000
shell ("c:\windows\system\calc.exe") 'abre por xp/200
else
msgbox "Calculadora não encontrada"
end if
Espero ter ajudado
Blza Germanir
Obrigado pelo aprimoramento do comando.
Nem me havia passado essa idéia pela minha cabeça.
Valeu!!!
Obrigado pelo aprimoramento do comando.
Nem me havia passado essa idéia pela minha cabeça.
Valeu!!!
Tópico encerrado , respostas não são mais permitidas