devxlogo

Use TypeName Instead of TypeOf…Is

Use TypeName Instead of TypeOf…Is

To write reusable routines that work with multiple types of controls, test the control type using the TypeName function in place of the TypeOf…Is statement. For example, take a look at this routine-you can reuse it in another project only if you also add the RichTextBox control to the Components list:

 ' save the selected text to an open file' works with TextBox and RichTextBox controlsSub SaveSelectedText(ctrl As Control, filenum As Integer)	If TypeOf ctrl Is TextBox Then		Print #filenum, ctrl.SelText	ElseIf TypeOf ctrl Is RichTextBox Then		Print #filenum, RichTextBox1.SelRTF	End IfEnd Sub

To avoid this problem and gain additional benefits such as the ability to use a Select Case block, use the TypeName function instead:

 Sub SaveSelectedText(ctrl As Control, filenum As Integer)	Select Case TypeName(ctrl)		Case "TextBox"			Print #filenum, ctrl.SelText		Case "RichTextBox"			Print #filenum, RichTextBox1.SelRTF	End SelectEnd Sub
See also  5 Tips for Choosing the Right Medical Software for Your Practice
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist