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: VB6
Expertise: Intermediate
Feb 17, 2001

GetVBASetting - Retrieve a setting for the Visual Basic VBA code editor

Const HKEY_LOCAL_MACHINE = &H80000002

' read the value of a setting for the VBA editor from the Registry
'
' Possible values for SettingName are:
'   AutoQuickTips2      (0/1)
'   AutoStatement2      (0/1)
'   AutoValueTips2      (0/1)
'   BackGroundCompile   (0/1)
'   CompileOnDemand     (0/1)
'   DragDropInEditor    (0/1)
'   EndProcLine         (0/1)
'   FontFace            (a string, eg "Courier New")
'   FontHeight          (an integer number)
'   OBGroupMembers      (0/1)   (OB=Object Browser=
'   OBSearchHeight      (an integer number)
'   RequireDeclaration  (0/1)
'
' If you pass an unrecognized setting name, it raises error 5
'
' Requires the GetRegistryValue function

Function GetVBASetting(ByVal SettingName As String) As Variant
    GetVBASetting = GetRegistryValue(HKEY_CURRENT_USER, _
        "Software\Microsoft\VBA\Microsoft Visual Basic", SettingName, "***")
    If GetVBASetting = "***" Then Err.Raise 5
End Function
Francesco Balena
 
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