واجهه جديده طلب التقييم

[ظل السراب]

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

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

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

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

والله الموفق

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

12121.zip

[عمار زيد]

السلام عليكم

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

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

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

[Enjoy]

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

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

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

[عمار زيد]

يعني ما شاء الله عليكم

كم يوم وبتعملوا windows بالأكسس

[foxman]

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

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

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

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

تم تعديل يوليو 23, 2007 بواسطه foxman

[foxman]

ملف مرفق للتوضيح بالسورس كود

طالب منكم الدعاء

تحياتى جرجس فوكس مان

ACC2000.TranslucentForms.rar

تم تعديل يوليو 23, 2007 بواسطه foxman

[GOHARYNET]

فكره رائعه جديده ومبهره

بارك الله في الجميع

[أحمد عبد القدوس]

الله ينور عليك

ايه ياعم ده

مشكوووووووووووووووووووووووووووووووووووور