HawiAccess قام بنشر أغسطس 21, 2009 قام بنشر أغسطس 21, 2009 السلام عليكم أخواني أريد كود يكشف دقة الشاشة عند فتح البرنامج مثلاً تكون 800×600 أو 1024×768 وهكذا وشكراً لكم
أ / محمد صالح قام بنشر سبتمبر 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
أ / محمد صالح قام بنشر سبتمبر 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.