كود عمل شفافية لنموذج Microsoft Access باستخدام VBA

في هذا الشرح سنتعرف على طريقة إضافة تأثير الشفافية إلى نموذج Microsoft Access باستخدام أكواد VBA وواجهات Windows API.

يمكن استخدام هذه الطريقة لتحسين شكل واجهات برامج Access وإضافة تأثير بصري مختلف للنماذج، مع إمكانية التحكم بدرجة شفافية النموذج حسب الحاجة.

ماذا يفعل الكود؟

إضافة شفافية إلى نموذج Microsoft Access.
التحكم بنسبة الشفافية.
استخدام Windows API للتعامل مع نافذة النموذج.
إمكانية تشغيل التأثير عند فتح النموذج.
استخدامه ضمن واجهات برامج Access المخصصة.

الكود الأول: دالة التحكم بشفافية النموذج

قم بوضع الكود التالي داخل Module في قاعدة بيانات Access:

Option Compare Database
Option Explicit

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nlndex As Long) As Long

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nlndex As Long, _
ByVal dwNewLongPtr As Long) As LongPtr

Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As LongPtr

Private Const LWA_ALPHA As Long = &H2
Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_LAYERED As Long = &H80000

Public Sub SetFormOpacity1(frm As Form, sngOpacity As Single, TColor As Long)

Dim IngStyle As Long

IngStyle = GetWindowLong(frm.hWnd, GWL_EXSTYLE)

SetWindowLong frm.hWnd, GWL_EXSTYLE, IngStyle Or WS_EX_LAYERED

SetLayeredWindowAttributes frm.hWnd, TColor, (sngOpacity * 255), LWA_ALPHA

End Sub

الكود الثاني: تشغيل الشفافية عند فتح النموذج

بعد إنشاء الـModule السابق، يمكنك استخدام الكود التالي في حدث Form_Open للنموذج المطلوب:

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize

DoCmd.OpenForm "a1"

Dim v As String
Dim transp As Long

v = 0.9

Me.Painting = False

SetFormOpacity1 Me, Val(v), transp

Me.Painting = True

End Sub

التحكم بدرجة الشفافية

يتم تحديد مستوى الشفافية من خلال القيمة:

    v = 0.9
  

يمكنك تغيير هذه القيمة للحصول على مستوى شفافية مختلف. كلما اقتربت القيمة من 1 أصبح النموذج أكثر وضوحًا، وكلما قلت القيمة زادت الشفافية.

ملاحظة مهمة:

الكود يعتمد على Windows API، لذلك يفضل تجربة الكود على نسخة احتياطية من قاعدة البيانات أولًا والتأكد من توافقه مع إصدار Microsoft Access ونظام Windows المستخدم.

تحميل الملف الجاهز

يمكنك تحميل ملف Microsoft Access المستخدم في الشرح وتجربة الأكواد مباشرة.

تحميل أكواد شفافية نموذج Access

ملف قاعدة بيانات Microsoft Access جاهز للتجربة.

تحميل الملف

أين يمكن استخدام هذا التأثير؟

شاشات تسجيل الدخول.
لوحات التحكم.
النوافذ الترحيبية.
واجهات البرامج الإدارية.
النماذج المنبثقة.
تصميم واجهات Access بشكل أكثر حداثة.

هل تحتاج إلى تطوير برنامج Access؟

إذا كنت تحتاج إلى تصميم برنامج Microsoft Access، تعديل واجهات برنامج موجود، إنشاء تقارير، نماذج، صلاحيات مستخدمين أو إضافة أكواد VBA، يمكنك التواصل معي وشرح المطلوب.

لديك مشروع Microsoft Access؟

تواصل معي لتطوير برنامج أو تعديل قاعدة بيانات حسب احتياجاتك.

تواصل عبر WhatsApp

كلمات مفتاحية

شفافية نموذج Access، كود شفافية Microsoft Access، أكواد VBA Access، تصميم نموذج Access، Windows API Access، أكواد Microsoft Access، شفافية النماذج، تحميل أكواد Access، برمجة Access VBA.

كود عمل شفافية لنموذج Microsoft Access | تحميل أكواد VBA جاهزة