اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

طلب ابداء الرائي في هذي هذا المثال

وهل ينصح بوضع التقارير شفافه وايضن النماذج

الملف المرفق بصيغة mde مصمم على الاكسيس 2003

والله الموفق

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

12121.zip

  • Like 1
قام بنشر

السلام عليكم

الفكرة أكثر من رائعة , الله يعطيك العافية

بعدما دهشتنا بالفكرة , بقي أن تدهشنا بالكود

عافاك الله ورعاك من كل سوء وزادك من علمه

قام بنشر

ماشاءالله عليك ابداااااااااااااااااااااااااااااااااااااع بمعنى الكلمة

اضم صوتي لصوت اخوي عمار

لانك خليتني اغير فكرتي في الواجهات

قام بنشر (معدل)

اخى انها فكره بسيطه جدآ

1-فتح وحده نمطية وضع بيها الكود

Option Compare Database

Option Explicit

Public Const LWA_COLORKEY = 1

Public Const LWA_ALPHA = 2

Public Const LWA_BOTH = 3

Public Const WS_EX_LAYERED = &H80000

Public Const GWL_EXSTYLE = -20

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _

ByVal hWnd As Long, _

ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _

ByVal hWnd As Long, _

ByVal nIndex As Long, _

ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _

ByVal hWnd As Long, _

ByVal color As Long, _

ByVal bAlpha As Byte, _

ByVal alpha As Long) As Boolean

'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'// PURPOSE: process opacity/transparency on any particular form. the form's

'// POPUP property must be set to YES or this will not work

'// PARAMETERS: [in] UIForm - the form we want to fade out

'// [in] StartOpacity - the final opacity value in which the form

'// is to bet set

'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Public Function SetTranslucent(hWnd As Long, Opacity As Integer) As Boolean

Dim APIResponse As Long

'// enable error handler

On Error GoTo Err_Handler

'// put current GWL_EXSTYLE in attrib

APIResponse = GetWindowLong(hWnd, GWL_EXSTYLE)

'// change GWL_EXSTYLE to WS_EX_LAYERED - makes a window layered

SetWindowLong hWnd, GWL_EXSTYLE, APIResponse Or WS_EX_LAYERED

'// make transparent (RGB value does not have any effect at this

SetLayeredWindowAttributes hWnd, RGB(0, 0, 0), Opacity, LWA_ALPHA

Err_Exit:

Exit Function

Err_Handler:

MsgBox Err.Number & " : " & Err.Description

End Function

'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'// PURPOSE: process fade out effect on any particular form. the form's

'// POPUP property must be set to YES or this will not work

'// PARAMETERS: [in] UIForm - the form we want to fade out

'// [in] StartOpacity - the opacity value in which the form was

'// opened, if none was applied, ignore

'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Public Sub UIProcessFadeOut(UIForm As Form, Optional StartOpacity As Integer = 255)

'// loop counter

Dim i As Integer

For i = StartOpacity To 0 Step -1

Call SetTranslucent(UIForm.hWnd, i)

'// this is required for proper fade effect

'// otherwise you'll just jump to the transparency immediately

DoEvents

Next i

End Sub

'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'// PURPOSE: process fade in effect on any particular form. the form's

'// POPUP property must be set to YES or this will not work

'// PARAMETERS: [in] UIForm - the form we want to fade out

'// [in] EndOpacity - the final opacity value in which the form

'// is to bet set, if none applied, ignore

'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Public Sub UIProcessFadeIn(UIForm As Form, Optional EndOpacity As Integer = 255)

'// loop counter

Dim i As Integer

For i = 1 To EndOpacity

Call SetTranslucent(UIForm.hWnd, i)

'// this is required for proper fade effect

'// otherwise you'll just jump to the transparency immediately

'// you may want to use another method to wait

DoEvents

Next i

End Sub

2-وفى النموزج اجراء حدث التحميل ضع الكود

Option Compare Database

'// transparency value

Private Const UIOpacity As Integer = 175

Private Sub Form_Load()

'// load the form in full transparent mode

Call SetTranslucent(Me.hWnd, 0)

'// ensure the form is visible for proper fade effect

'// (thought still full transparent)

Me.Visible = True

'// process fade in effect and provide the opacity value

'// not to exceed 255

Call UIProcessFadeIn(Me, UIOpacity)

End Sub

تحياتى لكم فوكس مان

جرب هذا وانا معكم

تم تعديل بواسطه foxman
  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information