MOR_MS
جمعه 29 شهریور 1392, 03:24 صبح
با سلام
من اين كدو از اينجا (http://cc.bingj.com/cache.aspx?q=for+each+form+name&d=4787094403678962&mkt=en-ww&setlang=en-US&w=UyIC4qHjRYuA6yjz-uz8sF8VSZJheFuH)پيدا كردم و يه مشكل داره وقتي اجرا ميشه فقط نام سه تا فرم نشون ميده و وري چهارمي ارور ميده لطفا كمك كنيد و اگه كسي كد ديگه داره كه بشه نام كليه فرمهاي ژروه و تكس اونو بدست اورد ممنون ميشم برام بنويسه
Dim asm = System.Reflection.Assembly.GetExecutingAssembly
Dim myTypes As Type() = asm.GetTypes()
For Each t As Type In myTypes
Dim frm As Form
If t.IsSubclassOf(GetType(System.Windows.Forms.Form)) Then
frm = CType(Activator.CreateInstance(t), Form)
MsgBox(frm.Name & frm.Text)
End If
Next
من اين كدو از اينجا (http://cc.bingj.com/cache.aspx?q=for+each+form+name&d=4787094403678962&mkt=en-ww&setlang=en-US&w=UyIC4qHjRYuA6yjz-uz8sF8VSZJheFuH)پيدا كردم و يه مشكل داره وقتي اجرا ميشه فقط نام سه تا فرم نشون ميده و وري چهارمي ارور ميده لطفا كمك كنيد و اگه كسي كد ديگه داره كه بشه نام كليه فرمهاي ژروه و تكس اونو بدست اورد ممنون ميشم برام بنويسه
Dim asm = System.Reflection.Assembly.GetExecutingAssembly
Dim myTypes As Type() = asm.GetTypes()
For Each t As Type In myTypes
Dim frm As Form
If t.IsSubclassOf(GetType(System.Windows.Forms.Form)) Then
frm = CType(Activator.CreateInstance(t), Form)
MsgBox(frm.Name & frm.Text)
End If
Next