VB.net Process ExecutablePath(Process MainModule Filename Failed In Windows 7)

VB.net

1. Dim query As New System.Management.ManagementObjectSearcher()
2. query.Query = New System.Management.ObjectQuery("SELECT * FROM Win32_Process WHERE Name LIKE 'chrome%'")
3. Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
4. For Each mo As System.Management.ManagementObject In queryCollection
5.     Dim ID As Integer = mo("ProcessId")
6.     Dim Name As String = mo("Name")
7.     Dim Path As String = mo("ExecutablePath")
8.     System.Diagnostics.Debug.WriteLine(String.Format("{0},{1},{2}", ID, Name, Path))
9. Next

去掉所有Form上TextBox的空白

VB.net

1. Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2.     Dim tbs() As TextBox = FindAllTextBox(Me)
3.     For Each tb As TextBox In tbs
4.         AddHandler tb.Leave, AddressOf TrimTextBox
5.     Next
6. End Sub
7.  
8. Private Sub TrimTextBox(ByVal sender As Object, ByVal e As EventArgs)
9.     Dim tb As TextBox = sender
10.     tb.Text = tb.Text.Trim()
11. End Sub
12.  
13. Private Function FindAllTextBox(ByVal ctrl As Control) As TextBox()
14.     Dim list As New List(Of TextBox)
15.     For Each c As Control In ctrl.Controls
16.         If c.GetType().Name = "TextBox" Then
17.             list.Add(c)
18.         Else
19.             list.AddRange(FindAllTextBox(c))
20.         End If
21.     Next
22.     Return list.ToArray()
23. End Function