روش فهميدن فرمهاي باز در پروژه

[sh2007]

دوستان چطوري بهفهمم كه چه فرمهائي در پروژه با هستند؟

ممنون

[abook.100]

سلام دوست عزیز :
امیدوارم که کارت را بیفته :
با این کد عنوان فرمهایی که در برنامه باز هستند بدست می یاد :






Dim i As Byte
For i = 0 To My.Application.OpenForms.Count - 1
MsgBox(My.Application.OpenForms.Item(i).Text)
Next

با این کد هم میتونی تعداد فرمهای باز در برنامه روبدست بیاری :

MsgBox(My.Application.OpenForms.Count)