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

 

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

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

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