18-04-20, 07:36 AM
كود :
Public Sub PICT6(ZZ As Boolean)
If ZZ = False Then
PictureBox1.Visible = False
Else
PictureBox1.Visible = True
End If
End Subالصفحات : 1 2
18-04-20, 07:36 AM
18-04-20, 11:47 AM
(18-04-20, 07:36 AM)NABILWARSAW كتب : [ -> ]السلام عليكمالكود ده حابب اوصل للسب "sub" من اى فورم وهى فى الفورم الرئيسى اذاىكود :
Public Sub PICT6(ZZ As Boolean)
If ZZ = False Then
PictureBox1.Visible = False
Else
PictureBox1.Visible = True
End If
End Sub
تفضل
كود :
Public Shared Sub PICT6(ZZ As Boolean)
If ZZ = False Then
PictureBox1.Visible = False
Else
PictureBox1.Visible = True
End If
End Sub18-04-20, 08:01 PM
استخدم الموديل فهو يسمح لك باستدعاء الصب من اي مكان بالمشروع
18-04-20, 08:09 PM
المشكله فى PictureBox1 الى فى الفورم الرئيسى هى المشكله الرئيسيه .الsub نفسه اضافته فى الموديول وكان نفس الخطا ضفت shared بعد public ظهر خطا فى PictureBox1 اضفت قبلها اسم الفورم و"."
18-04-20, 08:23 PM
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)
لا تنسى وضع السب في موديول لكي يتم استدعائه من اي فورم في المشروع .
18-04-20, 08:44 PM
كود :
PICT6(True, ORIG_FORM.PictureBox1)واى فورم تانى بيكون Children والكود طبعا بيكون فى زرار الاغلاق و PictureBox1 الوصول ليها public فى الخصائص وشكرا على الاهتمام بجد
18-04-20, 08:45 PM
الاجراء التالي:
يمكن اختصاره الى:
لو تعمل مشروع جديد بالفكرة وترفعه يكون اسرع لايجاد الحل .
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 كتب : [ -> ]الكود ده مش بيتنفذ فى اى مكان فى المشروع مع العلم ان ORIG_FORM هو الفورم الاب الى فيه الصورهكود :
PICT6(True, ORIG_FORM.PictureBox1)
واى فورم تانى بيكون Children والكود طبعا بيكون فى زرار الاغلاق و PictureBox1 الوصول ليها public فى الخصائص وشكرا على الاهتمام بجد
لو تعمل مشروع جديد بالفكرة وترفعه يكون اسرع لايجاد الحل .
18-04-20, 09:14 PM
ده عباره غن نموذج للمشكله
18-04-20, 09:43 PM
عدلت المشروع تعديل جذري اذا لم يناسبك ياليت تذكر تفاصيل الفكرة.
في كود اظهار الفورم2 كتبت الكود التالي:
Me.PictureBox1.Visible = Not Form2.Visible
وفي حدث الاغلاق للفورم 2 اللي هو Form2_FormClosing كتبت
Me.Hide()
وفي حدث الاغلاق التام للفورم2 اي Form2_FormClosed كتبت
Form1.PictureBox1.Visible = Not Me.Visible
يعني شغل اختصار ومثل ماقلت اذا الفكرة تتطلب امور اخرى ارجو ان الاكواد اللتي كتبت فيها طريق للتعديل المناسب.
18-04-20, 11:45 PM
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
الصفحات : 1 2