Problema con IsAppOpen
Publicado por Alejandro (110 intervenciones) el 29/03/2014 00:06:18
Un amigo me dio este codigo para maximizar la calculadora y si esta cerrada abrirla pero dme da un error alguien me puede decir que estoy poniendo mal o si le falta algo?
me da este error al presionar la tecla
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
IsAppOpen
End Function
If KeyCode = vbKeyF8 Then
If IsAppOpen("SciCalc") Then
Exit Sub
End If
Shell "c:\windows\system32\calc.exe"
End If
End Sub
ME DA ESTE ERROR
![](/usr/165000/165046/5336002da6bd9-error88.jpg)
me da este error al presionar la tecla
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
IsAppOpen
End Function
If KeyCode = vbKeyF8 Then
If IsAppOpen("SciCalc") Then
Exit Sub
End If
Shell "c:\windows\system32\calc.exe"
End If
End Sub
ME DA ESTE ERROR
![](/usr/165000/165046/5336002da6bd9-error88.jpg)
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0