منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عند سؤال كيفية عمل امر طباعة للفروف النشاط. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عند سؤال كيفية عمل امر طباعة للفروف النشاط. (/showthread.php?tid=14198)

عند سؤال كيفية عمل امر طباعة للفروف النشاط. - alims - 21-12-15

السلام عليكم ورحمة الله وبركاته
عندي سؤال بسيط و هو
عندي فروم اساسي من نواع و جوها زرار طباعة و بيظهر جوها اكتر من فروم بتعرض بيانات من قاعدة البيانات في شكل جراد فيور
عايز اعمل امر طبعا للبيانات دي بشرط ان يجيب البيانات من الفروم االنشاط و شكرا جزيلا لكم

RE: عند سؤال كيفية عمل امر طباعة للفروف النشاط. - احمداحمداحمد6 - 21-12-15

load form 1
form1.show

RE: عند سؤال كيفية عمل امر طباعة للفروف النشاط. - alims - 21-12-15

(21-12-15, 04:46 PM)احمداحمداحمد6 كتب : load form 1
form1.show

برجاء التوضيح اكتر
انا لي عايزة مثلا عند ٤ فروم مفتوحين قدمي عايز اول ما ادوس عالزار طبعا لي موجود في الفرومم الاساسي يتم طباعة الفروم النشاط من ال ٤لي ظهراين قدامي و شكرا

RE: عند سؤال كيفية عمل امر طباعة للفروف النشاط. - silverlight - 21-12-15

من الممكن ان تستخدم دالة مثل الموجودة في الكود التالي لتحصل علي جميع الفورم المفتوحة
ثم تتأكد ان الفورم Active أو Selected و بناء عليه تقوم بطباعته كيفما شئت

كود :
Friend Function GetForm(formName As String) As Form

       If Application.OpenForms.Count = 0 Then
           Return CType(Nothing, Form)
       End If

       For i As Integer = 0 To Application.OpenForms.Count - 1
           Dim currentForm As Form = Application.OpenForms(i)
           If currentForm IsNot Nothing AndAlso Not currentForm.IsDisposed AndAlso currentForm.IsHandleCreated Then
               If currentForm.Name = formName Then
                   Return currentForm
               End If
           End If
       Next

       Return CType(Nothing, Form)
   End Function

عليك أن تضع في اعتبارك أن إسم الفورم الذي سوف تمرره للدالة Case-Sensitive أي أنك يجب أن تمرر الاسم بكل دقة

مثلا للحصول علي الفورم رقم 1


PHP كود :
Dim currentform As Form = CType(GetForm("Form1"), Form) 

وطالما حصلت علي الفورم أصبح كل شئ سهلا بعد ذلك