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

SetVBASetting - Modify one of the VBA code editor settings

Const HKEY_LOCAL_MACHINE = &H80000002

' modify 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 SetRegistryValue function

Sub SetVBASetting(ByVal SettingName As String, NewValue As Variant)
    Dim value As Variant
    
    ' ensure that the right data type will be used
    ' all settings are DWORD, except FontFace
    If LCase$(SettingName) = "fontface" Then
        value = CStr(NewValue)
    Else
        value = CLng(NewValue)
    End If
        
    SetRegistryValue HKEY_CURRENT_USER, _
        "Software\Microsoft\VBA\Microsoft Visual Basic", SettingName, value
End Sub
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