asa
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/10/2004 12:02 hs
Alguém pode me ajudar !!!! Como faço para não permitir que minha aplicação rode mais de uma vez na mesma máquina e sem usar qualquer componente novo. Estou com um tremendo problema por causa disso. Obrigado. Emerson Hebert. |
|
|
|
|
|
HadesLgc
|
PINDORAMA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/10/2004 12:07 hs
crie um modulo, e inicie o seu projeto no sub_main() e cole o codigo abaixo no modulo. Sub Main()
If App.PrevInstance = True Then
MsgBox "sistema já esta em uso", vbExclamation
End
Else
frmMenu.Show
End If
End Sub
Um trabalho se justifica na medida em que ganha experiências e esforços permitindo que outros comecem por onde terminamos, pois a vida é curta demais para que possamos pesquisar e analizar a grande quantidade de informações dispersas em muitas fontes que não podemos consultar 
|
|
|
|
|
|
Postada em 29/10/2004 15:56 hs
Emerson, Faz Assim: Dim SaveTitle as String If App.PrevInstance Then
SaveTitle = App.Title
App.Title = "aqui vc poe qq coisa..., menos o titulo da sua aplicação..."
AppActivate SaveTitle
SendKeys "% R", True
End
End If
Assim, não abre outra instancia, e dá focus na que já está em execução... fica melhor que dar a mensagem que não pode abrir duas... Abraços...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 31/10/2004 11:16 hs
Não funcionou ! Não permite que outra instância seja aberta, mas não maximiza a instância aberta! |
|
|
|
|
|
Postada em 31/10/2004 11:21 hs
Ocorreu um erro, esta resposta refere-se a minha pergunta não ao questionamento do amigo ASA DESCULPE-ME |
|
|
|
