Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Gnrtuga

Conversão para Visual Basic Express 2010

Recommended Posts

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.. :)

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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.. :)

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites
Caça

Não, é assim

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


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.