dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Feb 24, 2000

WEBINAR:

On-Demand

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


Query Objects for Initialization State

In a large app, or even a small one, you can use Property Let and Property Get to make sure necessary variables and subsystems are initialized. This code is from a large ADSI-based program in production:
 
Public Property Get ADSIInitialized() As Boolean
	If dso Is Nothing Then
		ADSIInitialized = False
	Else
		ADSIInitialized = True
	End If
End Property
Public Property Let ADSIInitialized(aValue As Boolean)
	If aValue = False Then ' Shut everything off
		Set cont = Nothing
		Set dso = Nothing
	Else
		' Make sure we aren't already initialized
		If dso Is Nothing Then 
		' Turn everything back on
			Set dso = GetObject("WinNT:")
			Set cont = dso.OpenDSObject("WinNT://" _
				& Server, "", "", ADS_SECURE_AUTHENTICATION)
		End If
	End If
End Property
Now it's trivial to verify this component has been initialized and initialize it if necessary:
 
If Not ADSIInitialized Then ADSIInitialized = True
Gregory Gadow
 
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