16,550
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim o As Object
o = CreateInstance(1)
Console.WriteLine(o.GetType.Name)
o = CreateInstance("1")
Console.WriteLine(o.GetType.Name)
o = CreateInstance(1D)
Console.WriteLine(o.GetType.Name)
o = CreateInstance(True)
Console.WriteLine(o.GetType.Name)
o = CreateInstance(IntPtr.Zero)
Console.WriteLine(o.GetType.Name)
End Sub
Private Function CreateInstance(ByVal value As Object) As Object
Dim t As Type = value.GetType
If t.Equals(GetType(String)) Then
Return String.Empty
Else
Return Activator.CreateInstance(t)
End If
End Function