使用VB.NET向记录结构输入值时，向字符串添加计数器

debugcn 发表于 Dev

用户名

这是已创建的结构：

Structure Test
    <VBFixedString(4)> Public TestID As String

    <VBFixedString(15)> Public Word1 As String
    <VBFixedString(25)> Public Clue1 As String

    <VBFixedString(15)> Public Word2 As String
    <VBFixedString(25)> Public Clue2 As String

    <VBFixedString(15)> Public Word3 As String
    <VBFixedString(25)> Public Clue3 As String

    <VBFixedString(15)> Public Word4 As String
    <VBFixedString(25)> Public Clue4 As String

    <VBFixedString(15)> Public Word5 As String
    <VBFixedString(25)> Public Clue5 As String

    <VBFixedString(15)> Public Word6 As String
    <VBFixedString(25)> Public Clue6 As String

    <VBFixedString(15)> Public Word7 As String
    <VBFixedString(25)> Public Clue7 As String

    <VBFixedString(15)> Public Word8 As String
    <VBFixedString(25)> Public Clue8 As String

    <VBFixedString(15)> Public Word9 As String
    <VBFixedString(25)> Public Clue9 As String

    <VBFixedString(15)> Public Word10 As String
    <VBFixedString(25)> Public Clue10 As String
End Structure

这些是我试图开始工作的循环：

    i = 1
    y = 0


    Do Until y = 9
        SpellingTest.Word & (i) = ArrayWord(y)
        i = i + 1
        y = i - 1
    Loop

    i = 1
    y = 0

    Do Until y = 9
        SpellingTest.Clue & (i) = ArrayClue(y)
        i = i + 1
        y = i - 1
    Loop

我试图i成为该领域末尾的数字。但是，这不起作用。

马特·威尔科（Matt Wilko）

像这样通过名称字符串访问值的唯一方法是使用反射。

因此，使用您的代码应如下所示：

    Dim myType As Type = SpellingTest.GetType
    Dim pinfo As PropertyInfo = myType.GetProperty("Word" & i.ToString)

    pinfo.SetValue(SpellingTest, ArrayWord(y), Nothing)

MSDN文件：http：//msdn.microsoft.com/en-us/library/axt1ctd9（ v = vs.110）.aspx

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。