USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Mouse/Teclado)

Título da Dica:  Mainupulando ALT + TAB
Postada em 10/2/2003 por Fábio/SP         
'Rotina para habilitar/desabilitar ALT+TAB

Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
  ByVal uParam As Long, _
  lpvParam As Any, _
  ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
  Command1.Caption = "Disabled"
  Command2.Caption = "Enabled"
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Command2_Click
End Sub

Private Sub Command1_Click()
  Dim lngRet As Long
  Dim blnOld As Boolean
  lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING,    True, blnOld, 0&)
End Sub

Private Sub Command2_Click()
  Dim lngRet As Long
  Dim blnOld As Boolean
  lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 0&)
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página