No sabes como podria usar una combinacion de letras para volver a hacer visible el form?? osea por ejemplo "Shif + F6" le da verdadero a visible? o algo similar?
algo asi:
Modulo:Option Explicit
Public WinProc As Long
Public Const GWL_WNDPROC = (-4)
Public Const MOD_SHIFT As Long = &H4
Public Const VK_F6 As Long = &H75
Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Function NewWindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = &H82 Then
Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc)
Call UnregisterHotKey(hWnd, 1)
End If
If Msg = &H312 Then
MsgBox "Apretaste SHIFT+F6", vbInformation
End If
NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam)
End Function
Formulario:Option Explicit
Private Sub Form_Load()
If RegisterHotKey(hWnd, 1, MOD_SHIFT, VK_F6) = 0 Then
MsgBox " Error ", vbCritical
Exit Sub
End If
WinProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)
End Sub
aparte se puede hacer sin FSO , directamente con las funciones de visual basic..asi no creas objetos.
saludos.
Mostrar Mensajes
, lo unico es tratar de que no se creen obstaculos alrededor del target rojo..porque seria imposible alcanzarlo...
