كود لعمل النماذج بشكل احترافي

[شاهر]

السلام عليكم ورحمة الملك العلام

وكل عام وانتم با الف خير وسلام وعافيه

لدي كود يعمل على جعل النماذج عند التشغيل في المقدمه اى برنامج على الشاشه

ولايستطيع المستخدم العمل على اطار غير النموذج الذي يحمل هذا الكود او حتي انزاله على شريط المهام بزري وندوز وحرف d

لكن المشكله انك لاتستطيع التركير او الخروج من قاعدة البيانات الا اذا انهية المهمه للكسس

نرجو ممن يستطيع التعديل على الكود لكي تعم الفائد ونستفيد من ميزت هذا الكود لاعمل نماذج احترافيه

شكر ومقدر لجميع من ساعد في حل هذه المشكله

مع خالص الاحترام لمشرفي واعضاء واستذة هذا الصرح العملاق والذي له الفاضل الكبير في تعليم

اخوكم شاهر

الكود

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Sub ReleaseCapture Lib "user32" ()
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Public Function PutWindowOnTop(Form1 As Form)
Dim lngWindowPosition As Long
lngWindowPosition = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Function

ويتم استدعائها بهذا الكود في حدث

Private Sub Form_Load()
Call PutWindowOnTop(Me)
End Sub

[ظل السراب]

السلام عليكم ورحمة الله وبركاته

اخي الكريم

من خصايص النموذج غير التالي

شكلي او مشروط =لا

والله اعلم

والسلام عليكم ورحمة الله وبركاته

[شاهر]

اخي الكريم طيف السلام عيكم ورحمة الله وبركاته

اذا عملة كما قلت فأن الكود يفقد المطلوب منه

المطلوب ان يبقي النموذج منبثق في النافذه ويبقى هو النافذه النشطه حتي يتم اغلاق البرنامج

وانا افضل االتعديل علي الكود ليعمل بشكل المطلوب ايقاف التركيز والكتابه الخروج بزرالخروج من النموذج الىي اخر وابقاء الخاصيه النافذه الوحيده النشطه

تم تعديل فبراير 4, 2006 بواسطه شاهر

[شاهر]

اين ارد ياستاذتنا ياشباب

مافيه احد عارف كيف الحل لهذه المشكله

[rudwan]

من الأفضل ارفاق مثالك ليتم توضيح المشكلة و المطلوب بشكل أفضل