foxman

يا اعضاء المنتدى فعلآ البرنامج ده خاص باستاذ حسان وليس من تصميمى ولكن انا عدلة فيه وانا اسف جدآ والحكم للاستاذ حسان

المستخدم foxman والمرور2 او المستخدم والمرور1

[الاصدار الثانى من فوكس مان للحسابات بعد عمل ملف SETUP اذا عجبتكم الفكره سوف اشرحها تحياتى اخوكم فوكس مان التحميل بالمرفقات الملف الاول _________1.2.part3.rar الملف الثانى _________1.2.part2.rar الملف الثالث _________1.2.part1.rar الملف الرابع _________1.2.part4.rar الملف الخامس _________1.2.part5.rar ولتحميل الملف كامل اضغط هـــــــــنا

اخواتى اعضاء ومشرفين منتدى اوفسنا اولآ انا وضعت هذا الموضوع بسبب اخ معنا هنا فى المنتدى وضع نموزج شفاف وتقرير شفاف بدون ان يضع كيفية الطريقة او الكود؟ ولكن يآخوتى سميه باسم منتدى لتبدل الخبرات والمعلومات وليس البخل على الاخرين بالمعرفه. ولكن لان اطيل عليكم مثال لعمل النمازج الشفافه والتقارير بالمرفقات بالسورس كود ولدخول على السورس كود اضغط على زو شفت مع فتح الاكسس تحياتى لكم من كل قلبى فوكس مان ________.rar

اخى الفاضل حدد ماتريد هل تريد برامج انتى فيرس ولا ايه بالضبط تحياتى فوكس مان

ملف مرفق للتوضيح بالسورس كود طالب منكم الدعاء تحياتى جرجس فوكس مان ACC2000.TranslucentForms.rar

اخى انها فكره بسيطه جدآ 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 تحياتى لكم فوكس مان جرب هذا وانا معكم

رابط اخر من البرنامج اضغط هنا تحياتى للجميع

الاصدار الثانى من فوكس مان للحاسبات هذا البرنامج خاص باشركات الادوية والصيدليات البرنامج كامل متكامل بالسورس كود حتى تعم الخبره والمعرفة لدى الجميع المستخدم وكلمة المرور 1 او المستخدم foxman والمرور2 البرنامج مجانى لاى شخص يريد استعماله ولايحق لاى شخص بيعه او استخدامه تجاريآ او نسبه اليه كما انا عطيته مجانآ انتم ايضآ اعطوه مجانآ عندما يتم تحميل البرنامج يعطيك ملف غير معروف عادى جدآ فك الضغط كما تفك اى برنامج مضغوض رار تحياتى الى اعضاء ومشرفين منتدى اوفسنا بكل التقدير والمحبه انتظرو الاصدار الثالث من فوكس مان جاء وقت التحميل اوفسنـــــــــا او فوكس مان

تفضل اخى المطلوب تحياتى لك فوكس مان _______.rar

فى اول مشاركة لى فى المنتدى هديه الى المنتدى برنامج فوكس مان للحسابات مع السورس كود ولو فى اى استفسار ابعت رد يصلك الرد برنامج كامل متكامل للشركات المتخصصة فى مجال الكمبيوتر والمحلات الصغيره وده هيكون الاصدار الاول من البرنامج انتظرو الاصدار الثانى من فوكس مان تحياتى لكم فوكس مان للتحميل اضغط على اوفسنا