1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
|
Option Explicit On
Public Class Form1
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim re As Boolean ' réponse
Dim letype As String = "" ' type de la variable
Dim i As Integer
'----------------
Dim vr As Decimal ' type de la variable recherchér = vr si STRING : mettre une "= valeur"
'----------------
Dim v01 As UShort = 1 ' type de variable à tester
Dim v02 As Short = 1
Dim v03 As Char = "a"
Dim v04 As Byte = 1
Dim v05 As SByte = 1
Dim v06 As Boolean = False
Dim v07 As Integer = 1
Dim v08 As UInteger = 1
Dim v09 As Long = 1
Dim v10 As ULong = 1
Dim v11 As Single = 1
Dim v12 As Double = 1
Dim v13 As Decimal = 1
Dim v14 As Date = "12/02/2011"
Dim v15 As String = "test"
Dim v16 As Object = Nothing
'
For i = 1 To 16
re = False
Select Case i
Case 1 : re = Object.ReferenceEquals(vr.GetType(), v01.GetType())
Case 2 : re = Object.ReferenceEquals(vr.GetType(), v02.GetType())
Case 3 : re = Object.ReferenceEquals(vr.GetType(), v03.GetType())
Case 4 : re = Object.ReferenceEquals(vr.GetType(), v04.GetType())
Case 5 : re = Object.ReferenceEquals(vr.GetType(), v05.GetType())
Case 6 : re = Object.ReferenceEquals(vr.GetType(), v06.GetType())
Case 7 : re = Object.ReferenceEquals(vr.GetType(), v07.GetType())
Case 8 : re = Object.ReferenceEquals(vr.GetType(), v08.GetType())
Case 9 : re = Object.ReferenceEquals(vr.GetType(), v09.GetType())
Case 10 : re = Object.ReferenceEquals(vr.GetType(), v10.GetType())
Case 11 : re = Object.ReferenceEquals(vr.GetType(), v11.GetType())
Case 12 : re = Object.ReferenceEquals(vr.GetType(), v12.GetType())
Case 13 : re = Object.ReferenceEquals(vr.GetType(), v13.GetType())
Case 14 : re = Object.ReferenceEquals(vr.GetType(), v14.GetType())
Case 15 : re = Object.ReferenceEquals(vr.GetType(), v15.GetType())
Case 16 : re = Object.ReferenceEquals(vr.GetType(), v16.GetType())
End Select
If re = False Then Continue For
Select Case i
Case 1 : letype = "v" & Format(i, "00") & " est de type UNSIGNED SHORT"
Case 2 : letype = "v" & Format(i, "00") & " est de type SHORT"
Case 3 : letype = "v" & Format(i, "00") & " est de type CHAR"
Case 4 : letype = "v" & Format(i, "00") & " est de type BYTE"
Case 5 : letype = "v" & Format(i, "00") & " est de type SIGNED BYTE"
Case 6 : letype = "v" & Format(i, "00") & " est de type BOOLEAN"
Case 7 : letype = "v" & Format(i, "00") & " est de type INTEGER"
Case 8 : letype = "v" & Format(i, "00") & " est de type UNSIGNED INTEGER"
Case 9 : letype = "v" & Format(i, "00") & " est de type LONG"
Case 10 : letype = "v" & i & " est de type UNSIGNED LONG"
Case 11 : letype = "v" & i & " est de type SINGLE"
Case 12 : letype = "v" & i & " est de type DOUBLE"
Case 13 : letype = "v" & i & " est de type DECIMAL"
Case 14 : letype = "v" & i & " est de type DATE"
Case 15 : letype = "v" & i & " est de type STRING"
Case 16 : letype = "v" & i & " est de type OBJET"
End Select
If re = True Then
MsgBox("La variable " & letype, vbInformation)
End
End If
Next
MsgBox("Type indéterminé", vbExclamation)
End
End Sub
End Class |
Partager