+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : حل لمشكلة تكرار كود في جميع الفورم في المشروع (/showthread.php?tid=13282)
طلب : حل لمشكلة تكرار كود في جميع الفورم في المشروع - hamada salah90 - 19-09-15
الأساتذه الكبار بالمنتدى السلام عليكم
أواجه مشكلة بسيطة في مشروعي
حيث لدي كود اظهار صورة المستخدم ويتكرر هذا الكود في جميع الفورم بالمشروع
اريد عدم كتابة هذا الكود في جميع الفورمات
هل من حل
هناك مثال مرفق
هذا هو الكود
If frmAdmin.lblAdmin.Caption = "123" Then
lblUsername.Caption = "Administrator"
ImageUser.Picture = LoadPicture(App.Path & "\images\hamada.jpg")
Exit Sub
'=========================
Else
'=========================
rs2.Index = ("username")
rs2.Seek "=", frmLogin.lblUsername.Caption
'=========================
lblUsername.Caption = frmLogin.lblUsername.Caption
'=========================
ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")
rs2.Close
Exit Sub
End If
'=========================
899
MsgBox (" ÈÚÖ ÇáÕáÇÍíÇÊ ãÚØáÉ "), vbInformation, "ÑÓÇáÉ ÎØÃ"
ImageUser.Picture = LoadPicture(App.Path & "\images\icon 2.jpg")
Exit Sub
'=========================
RE: طلب : حل لمشكلة تكرار كود في جميع الفورم في المشروع - أبو عمر - 20-09-15
الاجابة تونس
----------
اضف Module
واكتب فيه الدالة وغيره اللي في التنصيص حسب شروطك
Public Function mybgimage(ByVal frm As Object, ByVal usr As String)
If usr = "xxx" Then
frm.Picture = LoadPicture("xxxx")
Else
frm.Picture = LoadPicture("c:\0.jpg")
End If
End Function
'في اي فورم تكتب في الحدث Load'
Private Sub Form_Load()
Call mybgimage(Me, "اي بتاع")
End Sub
ويا خوفي تطلع الاجابة البطيخة
RE: طلب : حل لمشكلة تكرار كود في جميع الفورم في المشروع - hamada salah90 - 20-09-15
(20-09-15, 12:46 AM)أبو عمر كتب : الاجابة تونس
----------
اضف Module
واكتب فيه الدالة وغيره اللي في التنصيص حسب شروطك
Public Function mybgimage(ByVal frm As Object, ByVal usr As String)
If usr = "xxx" Then
frm.Picture = LoadPicture("xxxx")
Else
frm.Picture = LoadPicture("c:\0.jpg")
End If
End Function
'في اي فورم تكتب في الحدث Load'
Private Sub Form_Load()
Call mybgimage(Me, "اي بتاع")
End Sub
ويا خوفي تطلع الاجابة البطيخة
والله كنت بختبرك
انا عارف انك عارف الإجابة "تونس" طبعا
هههههههههههههههههههههههههههههههههههههههههههههههههههههه