السلام عليكم و رحمة الله و بركاته..
لقد طلب بعض الأخوة الكود الذي يقوم بتغيير دقة الشاشة و تم إضافته و لكن بكود VB 6.0
لقد قمت بتعديل الكود و تغييره بحيث يعمل في VB.Net و المثال المرفق يوجد به الكود.
و أتمنى من الله سبحانه أن أكون قد وفقت في تلبية طلبكم.
أخوكم..أحمد يوسف بوجلاوي
بنغازي-ليبيا
شكرا خويه احمد بارك الله فيك وجازاك الله خيرا
اخوك ايمن عشبة _بنغازي _ليبيا
اللهم انصر الاسلام والمسلمين
جزاك الله خير وشكرا
فلسطين الزاهية بألوان الحب والسلام
ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها
تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين
لكن كيف اجعل برنامجى يعمل على دقه 840
السلام عليكم و رحمة الله و بركاته
البرنامج يعمل و لا توجد به آية مشكلة و لا أعلم ما المشلكة التي لديك
و لكن حاول أن تجربه على جهاز آخر.
أما بالنسبة للدقة 840 فهي تعتمد على دقة العرض التي يدعمها كرت الشاشة لديك فإذا لم يكن يدعمها فسوف تظهر رسالة تخبرك بعدم تغيير دقة الشاشة.
أخيكم أحمد بوجلاوي
بنغازي-ليبيا
مشكور يا خوي و بارك الله فيك
اخى انا اسال على دقة الشاشة فى البرنامج لان عندى شاشه انالوج البرنامج يعمل على 600*800 ولا يستطيع عرض الفورم كاملا
السلام عليكم و رحمة الله و بركاته
يمكنك تغيير دقة الشاشة من الكود و تضع الدقة التي تناسبك و تناسب كرت الشاشة في جهازك
مشكور اخوي..
لكن انا لمن نقلته عندي صار يطلع خطأ عند vb6
مع اني اضفت المرجع (refrence) تبعها ..
ما أدري ايش المشكله ؟؟ اذا تعرف لوسمجت تخبرني لاني احتاجه ..
شكرا
اخوي تكفى شوف ايش مشكلتي ..
من جد احتاجه ضرورري ..
أخي fingolah البرنامج يعمل مع VB.Net
------------
أخي بوجلاوي ..
البرنامج رائع تشكر عليه ، وأقترح :
1) أن يكون تغيير الدقة حسب ما يختاره المستخدم >>> قد يتم بالإعلان عن متغيرات وتخزين القيم فيها !
2) وضع زر يعيد الشاشة إلى ما كانت عليه سابقاً >>> إذا أمكن مساعدتنا في ذلك !
أي : كيف يمكن تخزين قيم دقة الشاشة الحالية في متغيرات لنتمكن من استعادتها فيما بعد ؟؟!!
تحياتي
وشكراً ؛؛ :)
{ وقل رب زدني علماً }
تمهيدي ..
انا اعلم ذلك
( كأننا في منتدى مبرمجي فيجول نت ؟؟)
لكن مايضبط ..
يعترض على سالفه vb6
ما ادري كان في refrence يحتاجه او لا ؟؟
شكرا لك
السلام عليكم
اذا كان الخطأ يظهر هنا
OldX = VB6.PixelsToTwipsX(Windows.Forms.Screen.PrimaryScreen.Bounds.Width) / VB6.TwipsPerPixelX OldY = VB6.PixelsToTwipsY(Windows.Forms.Screen.PrimaryScreen.Bounds.Height) / VB6.TwipsPerPixelY
استبدله بـ
OldX = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width OldY = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
المرجع vb6 ناتج عن تحويل البرنامج من vb6 الى vb.net والافضل تعديل الكود الى Native .NET
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
قد يفيدكم الكود التالي و هو يعيد عرض و ارتفاع الشاشة :
Dim a As System.Windows.Forms.SystemInformation
ListBox1.Items.Add("width : " & a.PrimaryMonitorSize.Width)
ListBox1.Items.Add("height : " & a.PrimaryMonitorSize.Height)شرح مفصل لل ftp و معالجة الملفات مع سيرفر ال ftp
my E-mail : ihsanfuzzy@yahoo.com
مشكور اخوي solo.net
انحلت المشكله ..
الله يعطيك العافيه ..
هذا الموضوع مغلق.