ShowExplorerFileMenu - Hide or show Windows Explorer File menu
' Hide/Show the Explorer's (Windows Explorer and IE) File menu
' NOTE: this routine requires the SetRegistryValue,
' DeleteRegistryValue and CheckRegistryValue routines,
' that you can find in the CodeBank under the Windows section.
'
' Example:
' ' hide the File menu (at the next execution of IE or Windows Explorer)
' ShowExplorerFileMenu False
' ' show it again
' ShowExplorerFileMenu
Public Sub ShowExplorerFileMenu(Optional ByVal bShow As Boolean = True)
Dim sKey As String
Const HKEY_CURRENT_USER = &H80000001
sKey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
If bShow Then
' delete the value whose setting hides the File menu
DeleteRegistryValue HKEY_CURRENT_USER, sKey, "NoFileMenu"
Else
' if the Key doesn not exist
If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
' create the key
CreateRegistryKey HKEY_CURRENT_USER, sKey
End If
' create and set the value to hide the File menu
SetRegistryValue HKEY_CURRENT_USER, sKey, "NoFileMenu", "1"
End If
End Sub
It's quick, easy and you get access to all the articles on DevX.
This registration/login is to allow you to read articles on devx.com. Already a member?
To become a member of DevX.com create your Member Profile by completing the form below. Membership is free!
If you have a hot tip and we publish it, we'll pay you. However, due to accounting overhead we no longer pay $10 for a single tip submission. You must accumulate 10 acceptable tips to receive payment. Be sure to include a clear explanation of what the technique does and why it's useful. If it includes code, limit it to 20 lines if possible. Submit your tip here.