Login | Register   
RSS Feed
Download our iPhone app
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: Beginner
Mar 3, 2003



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

Select Case Enhancement

I have found the need to do multiple tests on dissimilar variables and objects with any failing test causing an action. Multiple embedded If...Then...ElseIf...EndIf statements are awful to look at and troubleshoot. I found that using Select Case does the trick and is easy to read. Consider testing several items before continuing (whether to check during entry or after is another subject). Try this:
Private Function okToPost() As Boolean
	' Assume it's safe to post.
	okToPost = True

	Select Case False
		' Assume you want your tests to be True
		' Any tests that evaluate to False will 
		' trigger the case code.
		Case (lvDist.ListItems.Count > 0)	
			' Any items in a listview control?
			MsgBox "No Items Selected", _
				vbInformation, "Post"
			okToPost = False
		Case IsNumeric(fvCheckNumber)	
			' Did the user enter a valid number?
			MsgBox "Invalid Check Number", _
				vbInformation, "Post"
			okToPost = False

		Case (fvInvoiceAmount = fvCheckAmount)
			' Does this balance?

		' More case statements can follow that 
		' evaluate to true or false

	End Select
End Function
Timothy P.
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