Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
135
Assunto : Visual Basic
Titulo: Determinar se o programa está compilado ou rodando na IDE do VB

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Existem 2 formas de fazer isso. Veja :

A) Se o nome do executável é diferente do nome do projeto.

A propriedade EXEName do objeto APP retorna o nome do executável quando o projeto está compilado e o nome do projeto quando não está. Então basta checar o app.exename para saber como o projeto está sendo executado.

B) Se o nome do executável e do projeto são iguais.

Nesse caso precisamos utilizar uma API chamada GetModuleFileName. Se o projeto estiver compilado essa API retorna o nome do executável. Se não estiver apontará para o executável do VB.

Veja um exemplo :


Private Declare Function GetModuleFileName Lib "kernel32" _
Alias "GetModuleFileNameA" _
(ByVal hModule As Long, _
ByVal lpFileName As String, _
ByVal nSize As Long) As Long


'O exemplo está sendo feito para VB 5. Pode ser adaptado sem muita dificuldade
Private Sub Command2_Click()
'Click this button if the project name and the compiled file
'name are the same.

Dim strFileName As String
Dim lngCount As Long

strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)

If UCase(Right(strFileName, 7)) <> "VB5.EXE" Then
MsgBox "Compiled Version"
Else
MsgBox "IDE Version"
End If
End Sub



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
Nenhum comentário foi realizado ainda. Seja o primeiro !
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br