19-09-15, 04:31 PM
الأساتذه الكبار بالمنتدى السلام عليكم
أواجه مشكلة بسيطة في مشروعي
حيث لدي كود اظهار صورة المستخدم ويتكرر هذا الكود في جميع الفورم بالمشروع
اريد عدم كتابة هذا الكود في جميع الفورمات
هل من حل
هناك مثال مرفق
هذا هو الكود
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
'=========================
أواجه مشكلة بسيطة في مشروعي
حيث لدي كود اظهار صورة المستخدم ويتكرر هذا الكود في جميع الفورم بالمشروع
اريد عدم كتابة هذا الكود في جميع الفورمات
هل من حل
هناك مثال مرفق
هذا هو الكود
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
'=========================
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah