Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 6, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Prevent Errors When Using GetSetting

Using Visual Basic's GetSetting function might cause an error, particularly in certain situations when using it under 16-bit operating systems with INI files. If there's no specific entry in the INI file, you might get an error message such as "Invalid procedure call." You can use this routine, which wraps an error handler around the built-in function:
Public Function GetRegSetting(AppName _
        As Variant, Section As Variant, _
        Key As Variant, Optional Default _
        As Variant) As Variant

' the default value is not assumed to be 
' an Object type otherwise you should 
' use Set statement
Dim tmpValue As Variant

' set default value
' if no value was passed, this gives an 
' empty variant
If Not IsMissing(Default) Then _
        tmpValue = Default

' this is for trapping possible errors
On Error Resume Next

' let's use VB's function
tmpValue = GetSetting(AppName, _
        Section, Key, tmpValue)

' after possible errors the call 
' continues here with the preset default 
' value
GetRegSetting = tmpValue

End Function
Jussi Mattila
Comment and Contribute






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



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