Public Sub GetDefaultValue(ByRef value As Object)
Dim type As Type = value.GetType()
value = IIf(type.IsValueType, Activator.CreateInstance(type), Nothing)
End Sub
VB获取变量的默认值
最新推荐文章于 2021-07-26 11:13:32 发布
Public Sub GetDefaultValue(ByRef value As Object)
Dim type As Type = value.GetType()
value = IIf(type.IsValueType, Activator.CreateInstance(type), Nothing)
End Sub