|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Verificar se o sistema já esta aberto
|
 |
|
|
|
Postada em 23/3/2002 por Darlan Oliveira
Dim SaveTitle As String
If App.PrevInstance Then
SaveTitle = App.Title
App.Title = "... segunda chamada ao mesmo programa."
Me.Caption = "... segunda chamada ao mesmo programa, serei fechado"
'se for a Sub Main, a linha acima, obviamente, não existe
'as linhas abaixo fecham a segunda chamada e alternam para
'a primeira
AppActivate SaveTitle
'SendKeys "% R", True
End
End If
|
|
|
|
|
