HawiAccess قام بنشر أغسطس 21, 2009 مشاركة قام بنشر أغسطس 21, 2009 السلام عليكم أخواني أريد كود يكشف دقة الشاشة عند فتح البرنامج مثلاً تكون 800×600 أو 1024×768 وهكذا وشكراً لكم رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 1, 2009 مشاركة قام بنشر سبتمبر 1, 2009 تفضل أخي الكريم هذا أصغر كود لمعرفة دقة الشاشة ضع هذا الكود في موديول جديد Option Compare Database Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long ولعرض دقة الشاشة في تسمية label على النموذج استعمل هذا الكود Me.label1.Caption = DisplaySize(SM_CXSCREEN) Me.label2.Caption = DisplaySize(SM_CYSCREEN) لا تنسوني من صالح دعائكم أخوكم محمد صالح 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 3, 2009 مشاركة قام بنشر سبتمبر 3, 2009 لأني أهوى اختصار الأكواد يمكنك وضع هذا السطر فقط في الموديول Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long وهذا كود وضع العرض والارتفاع في مربعي تسمية Me.label1.Caption = DisplaySize(0) Me.label2.Caption = DisplaySize(1) 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان