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

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

الصفحات: 1 2

سؤاال محتاج اعرف اجبابته واكون شاكر جداا - NABILWARSAW - 18-04-20

كود :
Public Sub PICT6(ZZ As Boolean)
       If ZZ = False Then
           PictureBox1.Visible = False
       Else
           PictureBox1.Visible = True
       End If
   End Sub
الكود ده حابب اوصل للسب "sub" من اى فورم وهى فى الفورم الرئيسى اذاى

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - trakktour - 18-04-20

(18-04-20, 07:36 AM)NABILWARSAW كتب :
كود :
Public Sub PICT6(ZZ As Boolean)
       If ZZ = False Then
           PictureBox1.Visible = False
       Else
           PictureBox1.Visible = True
       End If
   End Sub
الكود ده حابب اوصل للسب "sub" من اى فورم وهى فى الفورم الرئيسى اذاى
السلام عليكم
تفضل
كود :
Public Shared Sub PICT6(ZZ As Boolean)
      If ZZ = False Then
          PictureBox1.Visible = False
      Else
          PictureBox1.Visible = True
      End If
  End Sub
اضفت فقط shared بعد public

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - aljzazy - 18-04-20

استخدم الموديل فهو يسمح لك باستدعاء الصب من اي مكان بالمشروع

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - NABILWARSAW - 18-04-20

المشكله فى PictureBox1 الى فى الفورم الرئيسى هى المشكله الرئيسيه .الsub نفسه اضافته فى الموديول وكان نفس الخطا ضفت shared بعد public ظهر خطا فى PictureBox1 اضفت قبلها اسم الفورم و"."

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - asemshahen5 - 18-04-20

PHP كود :
Public Sub PICT6(ZZ As Boolean,Pic As PictureBox)
    If ZZ = False Then
        Pic.Visible = False
    Else
        Pic.Visible = True
    End If
 End Sub 

كود الاستدعاء :

PHP كود :
PICT6(True,PictureBox1) 
لا تنسى وضع السب في موديول لكي يتم استدعائه من اي فورم في المشروع .

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - NABILWARSAW - 18-04-20

كود :
PICT6(True, ORIG_FORM.PictureBox1)
الكود ده مش بيتنفذ فى اى مكان فى المشروع مع العلم ان ORIG_FORM هو الفورم الاب  الى فيه الصوره
واى فورم تانى بيكون Children والكود طبعا بيكون فى زرار الاغلاق و PictureBox1 الوصول ليها public فى الخصائص وشكرا على الاهتمام بجد

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - سعود - 18-04-20

الاجراء التالي:
PHP كود :
Public Sub PICT6(ZZ As Boolean,Pic As PictureBox)
    If ZZ = False Then
        Pic.Visible = False
    Else
        Pic.Visible = True
    End If
 End Sub 

يمكن اختصاره الى:
PHP كود :
Public Sub PICT6(ZZ As Boolean,Pic As PictureBox)
   
        Pic.Visible = zz
   
    End If
 End Sub 
(18-04-20, 08:44 PM)NABILWARSAW كتب :
كود :
PICT6(True, ORIG_FORM.PictureBox1)
الكود ده مش بيتنفذ فى اى مكان فى المشروع مع العلم ان ORIG_FORM هو الفورم الاب  الى فيه الصوره
واى فورم تانى بيكون Children والكود طبعا بيكون فى زرار الاغلاق و PictureBox1 الوصول ليها public فى الخصائص وشكرا على الاهتمام بجد

لو تعمل مشروع جديد بالفكرة  وترفعه يكون اسرع لايجاد الحل .

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - NABILWARSAW - 18-04-20

ده عباره غن نموذج للمشكله

RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - سعود - 18-04-20

عدلت المشروع تعديل جذري اذا لم يناسبك ياليت تذكر تفاصيل الفكرة.
في كود اظهار الفورم2 كتبت الكود التالي:
Me.PictureBox1.Visible = Not Form2.Visible
 وفي حدث الاغلاق للفورم 2  اللي هو Form2_FormClosing كتبت
Me.Hide()
وفي حدث الاغلاق التام للفورم2 اي Form2_FormClosed كتبت
Form1.PictureBox1.Visible = Not Me.Visible

يعني شغل اختصار ومثل ماقلت اذا الفكرة تتطلب امور اخرى ارجو ان الاكواد اللتي كتبت فيها طريق للتعديل المناسب.


RE: سؤاال محتاج اعرف اجبابته واكون شاكر جداا - asemshahen5 - 18-04-20

PHP كود :
'السب الموجود بالموديول'    
Module Module1
    Public Sub PICT6(ZZ As Boolean, Pic As PictureBox)
        Pic.Visible = ZZ
    End Sub
End Module
'ضع هذه الاكواد في الفورم 2'
Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Close()
        PICT6(True, Form1.PictureBox1)
    End Sub
    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        PICT6(True, Form1.PictureBox1)
    End Sub
End Class