Showing posts with label Start Menu. Show all posts
Showing posts with label Start Menu. Show all posts

Tuesday, March 19, 2013

Start Button Change, Start Button Renamer

XP Start Button Changer

The Start menu is a user interface element used in Microsoft Windows operating systems since Windows 95 and in some X window managers. It provides a central launching point for application and tasks. Depending on the operating system or window manager, the menu might have different names, such as Kickoff Application Launcher in KDE, Start screen in Windows 8 or LX Panel in LXDE.

Traditionally, the Start menu provided a customizable nested list of programs for the user to launch, as well as a list of most recently opened documents, a way to find files and get help, and access to the system settings. Later enhancements via Windows Desktop Update included access to special folders like "My Documents" and "Favorites" (browser bookmarks). Windows XP's Start menu was expanded to encompass various My Documents folders (including My Music and My Pictures), and transplanted other items like My Computer and My Network Places from the Windows desktop. Until Windows Vista, the Start menu was constantly expanded across the screen as the user navigated through its cascading sub-menus. As of Windows Vista, the Start menu covers a fixed portion of the screen. As of Windows Server 2012, the Start menu (known as "Start screen") covers the entire screen.

Download

Sunday, February 24, 2013

VB6 Start Button Control, Customize Start Menu




Copy and paste the following code
---------------------------------------
Option Explicit

'The FindWindow function retrieves a handle to the top-level window whose class name and window name match the specified strings
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'The FindWindowEx function retrieves a handle to a window whose class name and window name match the specified strings
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'The ShowWindow function sets the specified window's show state
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_SHOW = 5 'Shows A Window
Private Const SW_HIDE = 0 'Hides A Window



Private Sub Command1_Click()
    Dim TaskBarWin As Long 'TaskBar Window
    Dim StartButton As Long 'Start Button Window
    TaskBarWin = FindWindow("shell_traywnd", vbNullString) 'Get Taskbar Window
    StartButton = FindWindowEx(TaskBarWin, 0&, "button", vbNullString) 'Get StartButton Window
    Call ShowWindow(StartButton, SW_HIDE)
End Sub

To Get Getback the Button
    Dim TaskBarWin As Long 'TaskBar Window
    Dim StartButton As Long 'Start Button Window
    TaskBarWin = FindWindow("shell_traywnd", vbNullString) 'Get Taskbar Window
    StartButton = FindWindowEx(TaskBarWin, 0&, "button", vbNullString) 'Get StartButton Window
    Call ShowWindow(StartButton, SW_SHOW)