VB.NET到处共享字符串列表

这是我的字符串列表代码

Private Sub gen_Click(sender As Object, e As EventArgs) Handles gen.Click
    Dim num As Decimal = 10000
                Dim i As Decimal = Decimal.One
                Do While (Decimal.Compare(i, num) <= 0)
                    Dim list3 As New List(Of String)

                    If crypto.Checked Then
                        list3.AddRange(Strings.Split("BTC eBTC cryptocurrency crypto currency blockchain wallet p2p Auroracoin Blackcoin Coinye Bitcoin Dash Decred Dogecoin DigitalNote Ehtereum Gridcoin Litecoin Mastercoin MazaCoin Monero Namecoin Nxt Peercoin Primecoin Ripple Titcoin Zerocoin Satoshi Stellar Shadow Lisk virtualcurrency virtualmoney steem NEM MaidSafeCoin Coins Mining MiningCoins Ghz Nxt Synereo DigixDAO Factom Waves Emercoin Bitshares Peerplays Stellar Btyecoin Siacoin Counterparty tther gamecredits xaurum bitcrystals storjcoinX SysCoin YbCoin AgorasTokens NameCoin NautilusCoin FedoraCoin Swiscoin SARCoin BitcoinDark VPNCoin SuperNET Omni DigiByte Blackcoin GridCoin Stratis IOCoin SolarCoin RubyCoin Rimbit FeatherCoin DNotes VeriCoin VCash HiCoin MonaCoin Expanse ShadowCash Voxels MintCoin EarthCoin Jinn BreakoutState Nexus Scotcoin Clams Primecoin Quark LBRY GlobalCurrency ReddCoin HitCoin Blocknet NAVCoin Radium Novacoin Worldcoin EvergreenCoin AuroraCoin SaluS Gulden DigitalNote CureCoin Obits AsiaCoin Vertcoin Rise Quora BoostCoin Startcoint ReeCoin MMNXT MegaCoin Adzcoin Pebblecoin NuBits Ixcoin XCurrency Virtacoin GoldCoin ProjectDecorum Bitshares BilShares BitBay HempCoin Crypti LIQUID Stress", " ", -1, CompareMethod.Binary))
                    End If

Loop
            End Using

        End If
End Sub

但是当我在类中声明“Dim list3为新列表（字符串）”并在“Do While（Decimal.Compare（i，num）

Dim list3为新列表（字符串）”中删除时
Private Sub gen_Click（发送者作为对象，e作为事件参数）处理gen.Click
Dim num作为十进制=10000
尺寸i为十进制=十进制。1
Do While（十进制）将（i，num）
Dim list3作为新列表（字符串的）进行比较
Private Sub gen_Click（发送者作为对象，e作为事件参数）处理gen.Click
Dim num作为十进制=10000
尺寸i为十进制=十进制。1
Do While（Decimal.Compare（i，num）您将列表
Dim list3作为新列表（字符串）
作为类的成员变量，而不是函数的成员。请阅读以下内容，这是您在以太坊中输入错误的参考资料；）循环的目的是什么？你检查了正在做什么吗？这也是一种完全的浪费，因为你在每次迭代中都要重新创建列表。你将列表
Dim list3作为新列表（字符串）
作为类的成员变量，而不是函数的成员。阅读一下这是你在以太坊中输入的资源；）那个循环是干什么的？你检查过它在做什么吗？这也是一个完全的浪费，因为你在每次迭代中都要重新创建列表。所以这意味着我使用循环需要字符串列表。一件事是声明一个变量，另一件事是当你做一个实例时开始使用那个变量。使用：Dim list3作为新列表（字符串）您声明了一个变量；使用：list3=新列表（字符串）可以创建该变量的一个新实例以供使用。：@Sh4lltear如果这回答了您的问题，请单击复选标记（勾号）接受答案在答案的左边。这意味着我在使用循环需要字符串列表，一件事是声明一个变量，另一件事是在执行实例时开始使用该变量。使用：Dim list3作为新列表（字符串）声明一个变量；使用：list3=新列表（字符串）您为该变量创建了一个新实例，该实例已准备好使用。：@sh4ll如果这回答了您的问题，请单击答案左侧的复选标记（勾号）接受答案。
Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click
    list3.Clear()

End Sub

Dim list3 As New List(Of String)

Private Sub gen_Click(sender As Object, e As EventArgs) Handles gen.Click
    Dim num As Decimal = 10000
    Dim i As Decimal = Decimal.One
    Do While (Decimal.Compare(i, num) <= 0)
        list3 = New List(Of String)

        If crypto.Checked Then
            list3.AddRange(Strings.Split("BTC eBTC cryptocurrency crypto currency blockchain wallet p2p Auroracoin Blackcoin Coinye Bitcoin Dash Decred Dogecoin DigitalNote Ehtereum Gridcoin Litecoin Mastercoin MazaCoin Monero Namecoin Nxt Peercoin Primecoin Ripple Titcoin Zerocoin Satoshi Stellar Shadow Lisk virtualcurrency virtualmoney steem NEM MaidSafeCoin Coins Mining MiningCoins Ghz Nxt Synereo DigixDAO Factom Waves Emercoin Bitshares Peerplays Stellar Btyecoin Siacoin Counterparty tther gamecredits xaurum bitcrystals storjcoinX SysCoin YbCoin AgorasTokens NameCoin NautilusCoin FedoraCoin Swiscoin SARCoin BitcoinDark VPNCoin SuperNET Omni DigiByte Blackcoin GridCoin Stratis IOCoin SolarCoin RubyCoin Rimbit FeatherCoin DNotes VeriCoin VCash HiCoin MonaCoin Expanse ShadowCash Voxels MintCoin EarthCoin Jinn BreakoutState Nexus Scotcoin Clams Primecoin Quark LBRY GlobalCurrency ReddCoin HitCoin Blocknet NAVCoin Radium Novacoin Worldcoin EvergreenCoin AuroraCoin SaluS Gulden DigitalNote CureCoin Obits AsiaCoin Vertcoin Rise Quora BoostCoin Startcoint ReeCoin MMNXT MegaCoin Adzcoin Pebblecoin NuBits Ixcoin XCurrency Virtacoin GoldCoin ProjectDecorum Bitshares BilShares BitBay HempCoin Crypti LIQUID Stress", " ", -1, CompareMethod.Binary))
        End If

    Loop

End Sub

Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click
    list3.Clear()

End Sub