منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الأساتذه الكبار بالمنتدى السلام عليكم

أواجه مشكلة بسيطة في مشروعي

حيث لدي كود اظهار صورة المستخدم ويتكرر هذا الكود في جميع الفورم بالمشروع

اريد عدم كتابة هذا الكود في جميع الفورمات 

هل من حل

هناك مثال مرفق

هذا هو الكود

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
'=========================

الاجابة تونس

----------
اضف 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
ويا خوفي تطلع الاجابة البطيخة

(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
ويا خوفي تطلع الاجابة البطيخة

 والله كنت بختبرك
انا عارف انك عارف الإجابة "تونس" طبعا

هههههههههههههههههههههههههههههههههههههههههههههههههههههه