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
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان