Use Typename And Tooltips to Show Datatypes in Your Controls

Category:

Lists, Collections and Arrays

Type:

Snippets

Difficulty:

Beginning

Author:

Patrick Lockefeer

Version Compatibility: Visual Basic 6

More information:

These two sub procedures will display a variables data type in your controls and add the corresponding information to a listBox. In this example a control array of text boxes is used with a listBox.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'Declare 6 Variables with 6 different datatypes Dim var1 As Single Dim var2 As Boolean Dim var3 As String Dim var4 As Integer Dim var5 As Long Dim var6 As Double 'Controls needed : 'Array of 6 Textboxes with Names : txt(0) to txt(5) '1 Listbox with Name : List1

Code:

'Author : Patrick Lockefeer
'Move your mouse over a Textbox (look at the ToolTipText) and clicking in a Textbox will add the datatype to the Listbox

'Show Datatype name in a ToolTipText (Mousemove event)

Private Sub txt_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

txt(0).ToolTipText = TypeName(var1)
txt(1).ToolTipText = TypeName(var2)
txt(2).ToolTipText = TypeName(var3)
txt(3).ToolTipText = TypeName(var4)
txt(4).ToolTipText = TypeName(var5)
txt(5).ToolTipText = TypeName(var6)

End Sub

'Add Datatype name in a Listbox with a click
Private Sub txt_Click(Index As Integer)

Select Case Index

Case 0
List1.AddItem "Datatype txt(0)  : " & TypeName(var1)
Case 1
List1.AddItem "Datatype txt(1)  : " & TypeName(var2)
Case 2
List1.AddItem "Datatype txt(2)  : " & TypeName(var3)
Case 3
List1.AddItem "Datatype txt(3)  : " & TypeName(var4)
Case 4
List1.AddItem "Datatype txt(4) :  " & TypeName(var5)
Case 5
List1.AddItem "Datatype txt(5)  : " & TypeName(var6)

End Select

End Sub