Results 1 to 4 of 4

Thread: windows functions help _ urgently plz

  1. #1

    Thread Starter
    Junior Member
    Join Date
    Sep 2000
    Location
    South Africa
    Posts
    25
    does anybody know how to disable the auto hide property of the task bar on the desk top
    my app has a full screen form that is supposed to prevent access to the desktop but if autohide is enabled , then the form does not do its job , because the (hidden) taskbar comes up when the mouse is moved to the bottom of the desktop.
    plz help , i must submit this app to a magazine and i dont want a bug to ruin my reputation.

    thanks
    Go Luke , and may the source be with you.

  2. #2
    Guest
    Why not just hide the taskbar all together?

    Code:
    Declare Function FindWindow Lib "user32" _
     Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
    lpWindowName As String) As Long
    
    Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
     (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    
    Public Const SW_HIDE = 0
    Public Const SW_SHOW = 5
    
    Dim tray
    Dim trayShow
    
    Usage
    
    Private Sub Command1_Click()
    'Hide
    tray = FindWindow("Shell_TrayWnd", vbNullString)
    trayShow = ShowWindow(tray, SW_HIDE)
    End Sub
    
    Private Sub Command2_Click()
    'Show
    tray = FindWindow("Shell_TrayWnd", vbNullString)
    trayShow = ShowWindow(tray, SW_SHOW)
    End Sub

  3. #3

    Thread Starter
    Junior Member
    Join Date
    Sep 2000
    Location
    South Africa
    Posts
    25
    thanx man ,it works like a dream.
    Go Luke , and may the source be with you.

  4. #4
    Guest
    Change:

    Dim tray
    Dim trayShow

    Private Sub Command1_Click()
    'Hide
    tray = FindWindow("Shell_TrayWnd", vbNullString)
    trayShow = ShowWindow(tray, SW_HIDE)
    End Sub

    Private Sub Command2_Click()
    'Show
    tray = FindWindow("Shell_TrayWnd", vbNullString)
    trayShow = ShowWindow(tray, SW_SHOW)
    End Sub

    To:

    Dim tray&
    Dim trayShow&

    Private Sub Command1_Click()
    'Hide
    tray& = FindWindow("Shell_TrayWnd", vbNullString)
    trayShow& = ShowWindow(tray, SW_HIDE)
    End Sub

    Private Sub Command2_Click()
    'Show
    tray& = FindWindow("Shell_TrayWnd", vbNullString)
    trayShow& = ShowWindow(tray, SW_SHOW)
    End Sub



    Sorry bout that.

    [Edited by Matthew Gates on 11-16-2000 at 04:16 PM]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width