Ir para o conteúdo
Gnrtuga

Conversão para Visual Basic Express 2010

Mensagens Recomendadas

Gnrtuga

Olá pessoal, tenho o seguinte código em VB6 ? (aquele que vem com o office 07) e ele funciona, mas tentei fazer o mesmo com o Visual Basic Express, mas ele não funciona.. alguém sabe como fazer? O objectivo é simples é só abrir um determinado ficheiro ao clicar no botão... :)

este é o código:

Private Sub CommandButton6_Click()
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & ("d:\oficios\naomexer\lagoas.docm"))
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Erro"
            
End Sub


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

Boas

Conversão do teu código:

On Error GoTo 1
     Process.Start(" Caminho_do_ficheiro.exe ")
Exit Sub
1:  MsgBox(Err.Description, MsgBoxStyle.Exclamation, "Erro")

Uma alternativa:

Try
     Process.Start(" Caminho_do_ficheiro.exe ")
Catch ex As Exception
     MsgBox(ex.Message,  MsgBoxStyle.Exclamation , "Erro")
End Try


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Gnrtuga

:) Funciona a 100%. Obrigado!!

Já agora mais duas perguntas:

1 -se quiser abrir uma pasta por exemplo d:\Coisas\porno  :)

2-  a principal diferença entre o on error e o try?

Mais uma vez obrigado pela ajuda!


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Caça

Coloca o caminho para a pasta


O On Error já não é utilizado, foi substituído pelo Try, por isso deves usar o Try e não o On Error.

O mesmo para MsgBox, actualmente usa-se Messagebox.Show


Pedro Martins

Não respondo a duvidas por PM

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Caça

Não, é assim

MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)


Pedro Martins

Não respondo a duvidas por PM

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.