تحريك نموذج اكسس بالضغط على الماوس

[kh-bakkar]

السلام عليكم اخوتي الاكارم
لدي سؤال لو سمحتم
لدي نموذج اكسس جعلت خصائصه كالتالي
نمط الحدود (لا)
اشرطة التمرير (لاهذا ولا ذاك)
مربع عنصر التحكم (لا)
زر الاغلاق (لا)
زر التكبير والتصغير(لا)
قابل للنقل (نعم)

لكن بهذه الخصائص لا يمكنني ازاحة النموذج بالماوس في اي اتجاه اريد (يمين .. يسار .. اعلى .. اسفل)

سؤالي هل يوجد طريقة ما بالكود لجعل النموذج يتحرك باى اتجاه نريد بالضغط على زر الماوس؟ ؟

ارجو ان اكون قد وفقت في ايصال الفكرة

بحثت كثيرا ولم اجد طريقة ارجو المساعدة

[jjafferr]

وعليكم السلام 🙂

 

الامر هو 

docmd.MoveSize Right, Down, Width, Height

 

جعفر

[ابو محمد 316]

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

إضافة الى ماتقدم به الأخ jjafferr

هذا مثال قد يفيدك 

فقط اضغط على (((بحث عام )) عنوان المنوذج يكون شفاف ويمكن تنقلة في أي مكان من الشاشة

 

بالتوفيق إن شاء الله

Database99.rar

تم تعديل مارس 28, 2021 بواسطه ابو محمد 316

[jjafferr]

5 دقائق مضت, ابو محمد 316 said:

هذا مثال قد يفيدك

فكرة جميلة 🙂

 

جعفر

[kh-bakkar]

48 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

الامر هو 

docmd.MoveSize Right, Down, Width, Height

 

جعفر

شكرا لردك اخ جعفر ساجرب الامر 🌺

 

 

[kh-bakkar]

شكرا لردك اخ ابو محمد جزاك الله خيرا 🌺🌺

[kh-bakkar]

استاذ ابو محمد الله يعطيك العافية 

ظهرت لي مشكلة مع المثال المرفق لديك

مع العلم انني استخدم وندوز سفن 64 بت

وحولت المديول الى نظام 64 باضافة كلمة ptrsafe

لكن مازال يواجهني الخطأ 

مرفق صورة شكرا لك سلف

 

[kh-bakkar]

استاذ جعفر شكرا لك على ردك

جزاك الله خيرا ولكن واجهتني ايضا مشكلة في الحل لديك

مرفق

 

[jjafferr]

8 دقائق مضت, kh-bakkar said:

وحولت المديول الى نظام 64 باضافة كلمة ptrsafe

لكن مازال يواجهني الخطأ 

 

هذه الطريقة لجعل النظام يعمل على النواتين:

 

جعفر

[jjafferr]

ليش كل هذا العمل ، كل اللي عليك عمله هو انك تغير هذه الاعدادات:

في ٢٨‏/٣‏/٢٠٢١ at 19:32, kh-bakkar said:

نمط الحدود (لا)

 

ولما تستخدم طريقة اخوي ابومحمد ، ففي الواقع اسهل لك ان تغير اعدادات النموذج والسلام 🙂

 

26 دقائق مضت, kh-bakkar said:

واجهتني ايضا مشكلة

انا اعطيتك الامر ، ويجب ان تدُخل الارقام لكي يعمل الامر ، وهذا مثال من برامجي (لا عليك من كل الكود ، فقط انظر للسطرين الاخيرين) ،

والافضل لك ان تبحث قليلا في مساعد الاكسس حتى تعرف الارقام التي يجب استعمالها ، والارقام هي بالـ Twips ، فاذا نظام الكمبيوتر عندك بالسنتيمتر ، تضرب الرقم في 567 ، واذا النظام بالبوصة فتضربه في 1440 :

Right = المسافة من طرف شاشة الاكسس ،  من اليسار ،

Down =المسافة من طرف شاشة الاكسس ،  من فوق ، 

Width = عرض النموذج ،

Height = ارتفاع النموذج

    'get the Form size
    H = Me.WindowHeight
    W = Me.WindowWidth
     

        '0 = metric
        t = 567


'    Open the Form
    DoCmd.OpenForm "frm_Items_DS", acFormDS
    Forms!frm_Items_DS.SetFocus
    DoCmd.GoToRecord , , acNewRec
    DoCmd.GoToControl "Receipt_Date"
    'select the Form
    DoCmd.SelectObject acForm, "frm_Items_DS", False
    
    DoCmd.Restore
    'DoCmd.MoveSize right, Down, Width, Height
    'DoCmd.MoveSize (t * 0.1), (t * 0.1), 18000, 13500
    DoCmd.MoveSize 1, 1, W - (W * 0.02), H - (H * 0.05)

 

جعفر

[kh-bakkar]

تم الحل جزاكم الله خيرا اخواني

الاستاذ جعفر

والاستاذ ابو محمد

شكرا لكم ❤❤

[أبو إبراهيم الغامدي]

أهلا بكم..

لجعل الأمور أكثر سهولة ومرونة للمبتدئين.. 

الشفرة التالية تفي بالغرض!

Option Compare Database
Option Explicit
Dim xp As Single, yp As Single
'-- أخذ النقطة الأولية للفارة وإسنادها إلى متغير  عام
'-- بهذه االطريقة يمكن قبض النافذة من أي نقطة دون الشعور بعدم التركيز
Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   xp = X
   yp = Y
End Sub

Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim l, t
   If Button = acLeftButton Then
      l = Me.WindowLeft + X - xp
      t = Me.WindowTop + Y - yp
      Me.Move l, t
   End If
End Sub

أو هذه أيضا

'-- هذه الطريقة تتماشى مع سلوك المستخدم
'-- أغلب المستخدمين يقبض النافذة من المنتصف
'-- الشعور بعدم التركيز لا يكاد يلحظ
Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim l, t
   If Button = acLeftButton Then
      l = (Me.WindowLeft + X) -(Me.WindowWidth/2) 
      t = (Me.WindowTop + Y) - (Me.FormHeader.Height/2)
      Me.Move l, t
   End If
End Sub

 

Database1.accdb

[kh-bakkar]

جزاك الله خير اخي ابو ابراهيم الغامدي 

هذا لطف منك لتقديم افكار مساعدة

لك مني كل التقدير 🌺🌺