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

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

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

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

رابط التحميل هنا

Ahmad Alazbat

تحميل برامج مايكروسوفت اكسس مجانية ومدفوعة

فيسبوك

تويتر

انستغرام