vb.net – Option Strict On禁止与system.array进行后期绑定
发布时间:2020-12-17 07:30:28 所属栏目:百科 来源:网络整理
导读:我有以下代码返回wmi信息(未知数组) For Each objMgmt In oquery.Get() For Each theproperty In objMgmt.Properties If (TypeOf objMgmt(theproperty.Name) Is System.Array) Then myrow(theproperty.Name) = ConvertArray(CType(objMgmt(theproperty.Name)
我有以下代码返回wmi信息(未知数组)
For Each objMgmt In oquery.Get() For Each theproperty In objMgmt.Properties If (TypeOf objMgmt(theproperty.Name) Is System.Array) Then myrow(theproperty.Name) = ConvertArray(CType(objMgmt(theproperty.Name),Array)).Trim end if next next 函数ConvertArray将其转换为字符串值. Function ConvertArray(ByVal myarray As System.Array) As String Dim tel As Integer Dim res As String = "" If myarray.Length = 0 Then Return "" End If If myarray.Length = 1 Then res = myarray(0).ToString Else For tel = 0 To myarray.Length - 1 If TypeOf myarray(tel) Is UInt16 Then res = res + "[" + CType(myarray(tel),UInt16).ToString + "]," Else res = res + CStr(myarray(tel)) + "," End If Next res = Mid(res,1,Len(res) - 2) End If Return res End Function 当我明确打开选项时,“myarray(tel)”给出“Option Strict On禁止后期绑定”问题. 解决方法
您可以执行myarray.GetValue(0)而不是myArray(0).即使使用Option Strict On,这也可以使用.
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |