对于每个值来数组vb.net

时间:2012-02-11 08:34:18

标签: vb.net

我需要从流程数组中提取一个值到myArray:

文件: MyClass.vb

Public Function getTheRunningProcess()
Dim MyArray As Array
 For Each prso In Process.GetProcesses(System.Environment.MachineName)
    'This is the value i want to extract and put it in a Array
    MyArray() = prso.ProcessName.ToString
 Next
 'Now i need to return the MyArray so i can access its value from anywhere
  Return MyArray
End Function

所以我可以从任何地方访问这个值:

文件: Form1.vb

For Each MyValue As TheValueFromFunction_getTheRunningProcess()
  Listbox.item.addItem(MyValue)
Next 

现在您可能会认为我可以直接使用文件中的过程: Form1.vb但是这里是情况,我必须以不同的形式反复使用此函数作为应用程序要求它必须是。

那么,如果可以,那么如何?

或者,如果有其他方法可以做到这一点?

请告诉我正确的道路。

提前致谢:)

1 个答案:

答案 0 :(得分:0)

Public Function getTheRunningProcess() As Generic.List(Of String)
    Dim processList As New Generic.List(Of String)
    For Each prso In Process.GetProcesses(System.Environment.MachineName)
        processList.Add(prso.ProcessName.ToString)
    Next
    Return processList
End Function

您可以尝试使用列表...然后

Dim myProccessList = getTheRunningProcess()
For Each p In myProccessList
    'Do something with p
Next

希望有所帮助