送分问题,如何获得当前所有窗口?顶者有分.

[iland9876543210]

在VB6里可以通过使用API函树来得到当前窗口列表,比如使用Findwindow,请问在VB.NET里该怎样做到?

请指点迷津,谢谢.

[midymidy]

up

[midymidy]

支持

[iland9876543210]

首先,谢谢各位.

可是怎么得到一个窗口的子窗口呢?

我想还是用API,对吧?

能再加点例子吗?

[shenhanjun]

我也不会,就帮你顶下吧

[iland9876543210]

我已经得到了子窗口的句柄,但是我不能得到里面的
内容,这个子窗口是一个文本框,类名称显示为Edit.
但是我用spy++查找这个窗口时,确能得到该窗口里面的文本.

请高人指点.

[iland9876543210]

怎样才能得到呢?

我想还是通过API来实现,只是不知道如何办,急死了.

[Fanny]

接分 :P

[iland9876543210]

对了,要是同时有方法获取窗口中的文字就更好了!!!

[Qim]

同样可以用api。

[cwwhy]

对阿，用api阿，我都是用api，不过注意参数问题，api里的long相当于.net里的int32好像。

[wzuomin]

Private Sub GetOpenFormTitles()
Dim formTitles As New Collection

Try
For Each f As Form In My.Application.OpenForms
If Not f.InvokeRequired Then
' Can access the form directly.
formTitles.Add(f.Text)
End If
Next
Catch ex As Exception
formTitles.Add("Error: " & ex.Message)
End Try

Form1.ListBox1.DataSource = formTitles
End Sub

[www_123du_com]

同样用Win API。

System.Diagnostics.Process.GetProcesses()可以获取当前的所有进程。

[csecong]

本程序所有窗口可以通过My得到
其他窗口需要api了吧

[PCSKiller]

Dim proc As System.Diagnostics.Process
For Each proc In System.Diagnostics.Process.GetProcesses()
ListBox1.Items.Add("进程名称：" + proc.ProcessName + " 窗口名称：" + proc.MainWindowTitle)
Next

[w64139303]

帮你顶 。。

[ou108]

Dim frm As Form

For Each frm In Me.MdiChildren
'If TypeOf frm Is frmBmSd Then
' frm.MdiParent = Me
'frm.Focus()
'frm.Show()
'Exit Sub
'End If
Next

[leq_82]

帮你顶 。。

[precipitant]

获得窗口和mdi字窗口都不需要用api。
vb2005中有my.

[Love_My]

用 Process
Process.MainWindowHandle

有句柄的 就是窗口