شوقي ربيع

كلنا واحد في هذا المنتدى ان شاء الله

كلماتك دائما تشجعني للمزيد اخي سعد الله لا يحرمنا من تعليقاتك تحياتي لك رمضان كريم

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

امين يارب العالمين تستاهل اخي ضاحي ما هو اكثر شكرا لكلماتك الجميلة تحياتي لك و رمضان كريم

شكرا لتعليقك الجميل رمضان كريم

السلام عليكم رمضان كريم الاخ الحبيب جمال عبد السميع الاستاد الغالي بن علية حاجي تميز منقطع النضيير جزاكما الله خيرا ووفقكما في فعل الخير تحياتي

السلام عليكم رمضان كريم الاخ سعد عابد يشرفني مرورك ويسعدني دائما تحياتي لك

السلام عليكم رمضان كريم تلبية لطلب كنت وعدت به الاخ مصطفى وبس في الرابط اضع بين ايديكم هذا البرنامج المتمثل في تسجيل بينات الاشخاص اللاجئين http://www.officena.net/ib/index.php?showtopic=48216&hl وضعت حركة جديدة يمكن تعجبكم في هذا البرنامج عبارة عن عند فتح الملف لاول مرة تظهر شاششة مثل شاشاة Steep (تثبيت البرانج) تطلب منكم اذا اردتم انشاء اسم مستخدم و باسوورد لحماية البرنامج ملاحظة للأخ مصطفى وضعت ميزة عدم تكرار الاسامي و عدم تكرار رقم الهوية لكن في رقم الهوية اذا كان لديك رقم هوية 123 مثلا فان كود منع التكرار لايحتسب الاصفار قبل الرقم اي انه يراى 123 او 0123 او 00123 نفس الرقم 123 تحياتي للجميع هذا البرنامج اهديه بشكل خاص الاخ الحبيب ضاحي الغريب برنامج تسسير الاشخاص.rar

شكرا جزيلا اخي حمادة هو الملف بعينه الذي قصدته تحياتي

جزاك الله خيرا

السلام عليكم الاخ الحبيب حمادة عمر رمضان كريم يكفيني مرورك العطر ويسعدني دائما تواجدك في المنتدى جزاك الله خيرا تقبل الله صيام الجميع

السلام عليكم شكرا لمرورك بخصوص طلبك اعتقد انه لدي رأيته سابقا سأبحث عنه وأعلمك بالامر رمضان كريم

شكرا لكلماتك الجميلة تحياتي

الكود يعمل جيدا انقل الكود الموجود في حدث MouseDown بالنسبة مربع القائمة الى الحدث MouseMove

ان شاء الله سيكون هو المطلوب Dahy(6).rar

السلام عليكم حسب ما أرى فأنه لا يمكن تكرار رقم الهوية حيث لو كتبت رقم هوية موجود تضهر رسالة تحذير بوجود الرقم فأين المشكل او ان صح التعبير مالذي تقصده

كل الشكر والمجهود لك اخي الغريب فأنا لم افعل الا القليل القليل جزاك الله خيرا

السلام عليكم رمضان كريم اضر المرفق عسى ان يكون المطلوب Dahy(1).rar

السلام عليكم رمضان كريم على الجميع وجدة هذا الكود الخاص بتفعيل عجلة الماوس لليست بوكس كما وجدة بأنه يعمل كذلك مع الكومبو بوكس فأردت مشاركته اياكم لتعميم الفائدة وانا بصراحة اعجبني حيث انه يصبح من السهل تصفح البينات خاصتا عندما تكون كبيرة كل ما عليكم وضع هذا الكود في موديل عادي Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Type MOUSEHOOKSTRUCT pt As POINTAPI hwnd As Long wHitTestCode As Long dwExtraInfo As Long End Type Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32.dll" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function CallNextHookEx Lib "user32" ( _ ByVal hHook As Long, _ ByVal nCode As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" ( _ ByVal hHook As Long) As Long Private Declare Function WindowFromPoint Lib "user32" ( _ ByVal xPoint As Long, _ ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32.dll" ( _ ByRef lpPoint As POINTAPI) As Long Private Const WH_MOUSE_LL As Long = 14 Private Const WM_MOUSEWHEEL As Long = &H20A Private Const HC_ACTION As Long = 0 Private Const GWL_HINSTANCE As Long = (-6) Private mLngMouseHook As Long Private mListBoxHwnd As Long Private mbHook As Boolean Private mCtl As MSForms.Control Dim n As Long Sub HookListBoxScroll(frm As Object, ctl As MSForms.Control) Dim lngAppInst As Long Dim hwndUnderCursor As Long Dim tPT As POINTAPI GetCursorPos tPT hwndUnderCursor = WindowFromPoint(tPT.X, tPT.Y) If Not frm.ActiveControl Is ctl Then ctl.SetFocus End If If mListBoxHwnd <> hwndUnderCursor Then UnhookListBoxScroll Set mCtl = ctl mListBoxHwnd = hwndUnderCursor lngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE) If Not mbHook Then mLngMouseHook = SetWindowsHookEx( _ WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0) mbHook = mLngMouseHook <> 0 End If End If End Sub Sub UnhookListBoxScroll() If mbHook Then Set mCtl = Nothing UnhookWindowsHookEx mLngMouseHook mLngMouseHook = 0 mListBoxHwnd = 0 mbHook = False End If End Sub Private Function MouseProc( _ ByVal nCode As Long, ByVal wParam As Long, _ ByRef lParam As MOUSEHOOKSTRUCT) As Long Dim idx As Long On Error GoTo errH If (nCode = HC_ACTION) Then If WindowFromPoint(lParam.pt.X, lParam.pt.Y) = mListBoxHwnd Then If wParam = WM_MOUSEWHEEL Then MouseProc = True If lParam.hwnd > 0 Then idx = -1 Else idx = 1 idx = idx + mCtl.TopIndex If idx >= 0 Then mCtl.TopIndex = idx Exit Function End If Else UnhookListBoxScroll End If End If MouseProc = CallNextHookEx( _ mLngMouseHook, nCode, wParam, ByVal lParam) Exit Function errH: UnhookListBoxScroll End Function ثم في حدث MouseMove بالنسبة للكومبوبوكس ضع هذا الكود HookListBoxScroll Me, Me.ComboBox1 اما بالنسبة لليست بوكس في حدث MouseDown ضع هذا الكود HookListBoxScroll Me, Me.ListBox1 وفي الاخير في حدث UserForm_QueryClose ضع هذا الكود UnhookListBoxScroll ارجو ان يفيدكم الموضوع قبل الله صيام الجميع تفعيل عجلة الماوس.rar

الاخ الحبيب حمادة عمر رمضان كريم سعيد جدا ايضا بعودتك للمنتدى بعد هذا الغيب ان شاء الله انك بخيير لك جزيل الشكر لكلماتك الجميلة التي قلت ولا زلت اقول انك لم تترك لنا من كلمات نرد بها عليك جزاك الله خيرا اخي الحبيب تحياتي

السلام عليكم الاخ الحبيب ضاحي الغريب رمضان كريم سعيد جدا بعودتك الى المنتدى بعد هذا الغيابك ان شاء الله احوالك بخير شكرا جزيلا لكلماتك الجميله تحياتي

رمضان كريم جزاك الله خيرا وجعله في ميزان حسناتك

السلام عليكم الاخ هاني عدلي اعتذر على ردي المتاخر لانقطاع النت عندي والف مبروك الترقية والى الامام دائما والشكر موصول للاستاد الكبير عبد الله باقشير تحياتي

السلام عليكم رمضان كريم لكل اعضاء المنتدى ولكل الامة الاسلامية واعاده الله علينا بالخير ان شاء الله

السلام عليكم تقضل اخي ان شاء الله يكون المطلوب برنامج حضور و انصراف للاعبي كرة القدم.rar