Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Sep 29, 2001

SetExplorerToolbarPicture - Change Explorer toolbar image

' Set the path of the picture used as background of the Windows Explorer toolbar
' Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey 
' routines, you can find them in the CodeBank
' Example:
'   SetExplorerToolbarPicture "E:\WinNT\Greenstone.bmp"
' To remove the bitmap just pass an empty string

Public Sub SetExplorerToolbarPicture(ByVal sPict As String)
    Const HKEY_CURRENT_USER = &H80000001
    Dim sKey As String
    
    sKey = "Software\Microsoft\Internet Explorer\Toolbar"
    
    ' if the Key does not exist
    If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
        ' create the key
        CreateRegistryKey HKEY_CURRENT_USER, sKey
    End If
    
    ' set the value
    SetRegistryValue HKEY_CURRENT_USER, sKey, "BackBitmapShell", sPict
    
End Sub
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date