Question

VB.net2015版中 如何在类中使用窗体下的控件，如ListBox怎么用；

Public Sub ListBoxWrite(Str As String)
Dim Kfrom As New Kin_Engineering
Kfrom.ListBox1.Items.Add(Str)
If Kfrom.ListBox1.Items.Count > 40 Then
Kfrom.ListBox1.Items.Clear()
End If
End Sub
触发 ListBoxWrite("2222")
From窗体的ListBox控件中不显示数据；为什么？

Answer 1

Dim Kfrom As New Kin_Engineering
这句代码相当于每次执行都新建了一个Kin_Engineering类型的对象，它与你当前显示的窗体类型相同，但本质上不是一个对象，所以你在另一个对象上添加内容。
做如下修改:
Public Sub ListBoxWrite(Str As String,Kfrom As Kin_Engineering)
Kfrom.ListBox1.Items.Add(Str)
If Kfrom.ListBox1.Items.Count > 40 Then
Kfrom.ListBox1.Items.Clear()
End If
End Sub
调用函数ListBoxWrite("222",ME)