Programación General > Visual Basic 6.0 e inferiores

 Previnstance

<< < (2/3) > >>

DiabloRojo:
http://www.elguille.info/vb/VB_TIP3.HTM#vb3_09

y revisa el punto nueve.

Especimen:
Gracias por las respuestas.

Ya habia probado lo que decia Jose Arraigada y no funciona.

Y sobre lo que dice en la web de "el guille" (DiabloRojo) si no cambio el caption del form no deberia tener problemas y no lo cambio en ningun momento.

Por ahora lo he solucionado iniciando con un Sub Main desde donde cargo el formulario de inicio y me funciona asi, pero me jode.

Sub Main()
If App.PrevInstance = True Then
    MsgBox "Ya hay una instacia abierta.", vbInformation
    End
End If
Principal.Show
End Sub


Si alguien encuentra alguna explicación que me la diga.

Saludos

cpmario:
Yo uso este código


--- Código: Text --- Private Sub Form_Activate()    Dim strText  As String    Dim strSaveTitle As String    If App.PrevInstance = True Then        strSaveTitle = App.Title        App.Title = &#34;... programa duplicado.&#34;        frmMain.Caption = &#34;... programa duplicado.&#34;        strText = &#34;Actualmente está abierta -Título-.&#34;        strText = strText + vbCrLf + &#34;Sólo es necesario abrir una a la vez.&#34;        MsgBox strText, vbExclamation, &#34;Advertencia...&#34;        AppActivate strSaveTitle        SendKeys &#34;% R&#34;, True        End    End IfEnd Sub   :whistling:

Jose Arriagada:
********   O J O *************

Me extraña que mi codigo no te halla funcionado. A mi me funciona OK.

RECUERDA:

Prueba mi codigo.
Generar el ejecutable.
Y Prueba la ejecucion dos veces.
Y Funciona.

NO FUNCIONA SI USAS DOS VECES VB, y lo EJECUTAS DESDE AHI.

Blag:
Yo lo hago igual que Jose Arriagada, para mi screensaver y no tengo problemas.  :comp:

Saludos,

Blag  :devil:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior