Visual Basic 6 - Bloccare menu start

Forum - Visual Basic 6 - Bloccare menu start

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 21:30
Martedì, 06/11/2007

Volevo chiedervi se si può bloccare il menu start richiamando qualche api o altro.

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 7:22
Mercoledì, 07/11/2007

Bloccando il cursore del mouse non é la stessa cosa:

in un modulo

Codice sorgente - presumibilmente VB.NET

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long 
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Sub BloccaMouse()
Dim Perimetro As RECT     
GetWindowRect Form1.hwnd, Perimetro
ClipCursor Perimetro
End Sub
Private Sub SbloccaMouse()
   Dim Perimetro As RECT
       GetWindowRect GetDesktopWindow(), Perimetro
       ClipCursor Perimetro
End Sub

crea 2 command button e scrivi nel 1

Codice sorgente - presumibilmente Visual Basic 6

Call BloccaMouse

e nel secondo

Codice sorgente - presumibilmente Visual Basic 6

Call SbloccaMouse

Ultima modifica effettuata da gius il 07/11/2007 alle 7:23

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:06
Mercoledì, 07/11/2007

Non è proprio la stessa cosa...

a questo punto perchè non chiudere explorer...

Ultima modifica effettuata da P4p3r0g4 il 07/11/2007 alle 14:07

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 17:42
Mercoledì, 07/11/2007

Forse nn mi sn spiegato bene, cmq io intendo di far muovere il mouse ma di non far accedere al menù start, magari si potrebbe nascondere la Start Bar, però il menù start si può far apparire lo stesso.
Spero di essere stato più chiaro.

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 21:22
Mercoledì, 07/11/2007

P4p3r0g4 ,comunque,se chiudi explorer.exe si riapre automaticamente :rotfl:

Opera del buon vecchio Bill :ot:

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 21:36
Mercoledì, 07/11/2007

ho trovato...
metti questo in un modulo:
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Public Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "User32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

poi dove vuoi(in un modulo o nella form):
Private Sub ShowTaskBar(Visible As Boolean)
ShowWindow FindWindow("Shell_TrayWnd", ""), (IIf(Visible, SW_SHOW, SW_HIDE))
End Sub

poi con showtaskbar(false) la nasconde xo premendo il tasto windows si apre start
se metti showtaskbar(true) dovrebbe apparie ma a me è rimasta nascosta...
cmq se nn va al riavvio va di nuovo... spero :asd:

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 21:38
Mercoledì, 07/11/2007