VB.NET 编写过程中的注意事项

最新推荐文章于 2019-09-02 22:13:40 发布

原创最新推荐文章于 2019-09-02 22:13:40 发布 · 846 阅读

CC 4.0 BY-SA版权

本文解决了一个在多线程环境下使用IEnumerable接口时出现的问题，通过创建中间函数并正确引用实例对象来实现有效的迭代操作。文章详细介绍了如何在多线程环境下正确处理IEnumerable接口，包括使用Lambda表达式和Task类来确保数据传输和消息框弹出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如下`代码中运行起来好像不响应，主要不弹出带“ok”内容的消息框，也不会传输数据。

这是因为，IEnumerable接口找不到了实例对象导致的。

只有对IEnumerable对象引用实例对象迭代器才有效。

好了，继续解决如下程序问题。

如下程序是多线程模式下运行。所以，必须留下中间一个函数。这是必要的。

如下中间函数MyFunc2过程里处理IEnumerble接口的实例引用。

这样保证迭代器有效执行。

迭代器是IEnumerable接口的附属物，只有返回类型为IEnumerable对象上使用。

也可以lambda表达式中使用，注意的是只能Function上执行。

好了，继续处理问题。

插入代码处理如下；

Private Function MyFunc2() As IEnumerable(Of Integer)

Dim Func1 As New Func(Of IEnumerable(Of Integer))(AddressOf Me.MyFunc1)

Dim List1 As New List(Of Integer)(Func1.Invoke)

Return List1.AsEnumerable

End Function

如上这样已经处理完成了。

或者 MySub过程里实例引用处理；

Dim List1 As New List(Of Integer)(Task1.Result)这样也可以执行。

处理前的代码；

Public Class Class1
 
    Sub MySub()
        Dim Task1 As New Task(Of IEnumerable(Of Integer))(AddressOf Me.MyFunc2)
        Task1.Start()
        Task1.Wait()
 
    End Sub
 
    Private Iterator  Function MyFunc1() As IEnumerable(Of Integer)
        MsgBox("ok")
         Yield 5
    End Function
 
    Private Function MyFunc2() As IEnumerable(Of Integer)
        Dim Func1 As New Func(Of IEnumerable(Of Integer))(AddressOf Me.MyFunc1)
        Return Func1.Invoke
    End Function
 
 
End Class
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Cla1 As New Class1
        Cla1.MySub()
    End Sub
End Class


处理后的代码如下；


Public Class Class1
 
    Sub MySub()
        Dim Task1 As New Task(Of IEnumerable(Of Integer))(AddressOf Me.MyFunc2)
        Task1.Start()
        Task1.Wait()
 
    End Sub
 
    Private Iterator  Function MyFunc1() As IEnumerable(Of Integer)
        MsgBox("ok")
         Yield 5
    End Function
 
    Private Function MyFunc2() As IEnumerable(Of Integer)
        Dim Func1 As New Func(Of IEnumerable(Of Integer))(AddressOf Me.MyFunc1)
        Dim List1 As New List(Of Integer)(Func1.Invoke)
        Return List1.AsEnumerable
    End Function
 
 
End Class
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Cla1 As New Class1
        Cla1.MySub()
    End Sub
End Class