دورات هندسية

 

 

كود لحصر الماوس داخل ال Form

النتائج 1 إلى 3 من 3
  1. [1]
    أنهار
    أنهار غير متواجد حالياً

    عضو

    تاريخ التسجيل: Apr 2008
    المشاركات: 37
    Thumbs Up
    Received: 0
    Given: 0

    كود لحصر الماوس داخل ال Form

    هذا الكود بلغة الفيجول بيسك الاصدار السادس


    Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    End Type
    Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _
    lpRect As RECT) As Long
    Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _
    lpPoint As Any) As Long
    Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

    Sub RestrictMouseRegion(Optional ByVal hWnd As Long = 0)
    Dim recTargetWindow As RECT
    If hWnd Then
    GetClientRect hWnd, recTargetWindow
    ClientToScreen hWnd, recTargetWindow
    ClientToScreen hWnd, recTargetWindow.Right
    ClipCursor recTargetWindow
    Else
    ClipCursor ByVal 0&
    End If
    End Sub

    Private Sub Form_Load()
    RestrictMouseRegion (Me.hWnd)
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    RestrictMouseRegion

  2. [2]
    م.رائد الجمّال
    م.رائد الجمّال غير متواجد حالياً
    عضو شرف
    الصورة الرمزية م.رائد الجمّال


    تاريخ التسجيل: Mar 2007
    المشاركات: 2,697

    وسام الشكر

     وسام كبار الشخصيات

    Thumbs Up
    Received: 15
    Given: 0
    مشكوره اختي

    0 Not allowed!


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

  3. [3]
    ساكنة بالنت
    ساكنة بالنت غير متواجد حالياً
    عضو فعال


    تاريخ التسجيل: Jan 2007
    المشاركات: 96
    Thumbs Up
    Received: 0
    Given: 0
    شكراااااااااااااااااااااااااااااا والله يعطيك العافية يارب

    0 Not allowed!



  
الكلمات الدلالية لهذا الموضوع

عرض سحابة الكلمة الدلالية

RSS RSS 2.0 XML MAP HTML