كيف أجعل البرنامج دائما في المقدمة أي أنه لايمكن أن يرجع خلف برنامج آخر وكما يسمى في الويندوز Always on top ?
فلسطين الزاهية بألوان الحب والسلام
ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها
تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين
أخي الكريم الغملاسي .. لاغنى لي عن إجاباتك .. وفقك الله وأدامك لهذا المنتدى
فلسطين الزاهية بألوان الحب والسلام
ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها
تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين
لكن بهذا الكود .. ممكن تظهر قائمة ابدأ و شريط المهام << جربتها سابقاً
يا ليت لو في كود غير هذا لجعل النافذة في حالة تمدد كامل في المقدمة حتى على قائمة ابدأ
أظن بأنه لا يمكن فعل ذلك الا عن طريق اخفاء قائمة ابدأ وشريط المهام عن طريق كود في البرنامج وليس جعل البرنامج الخاص بنا فوق النوافذ الأخرى
من جد وجد
كرامة وبس
السلام عليكم ورحمة الله وبركاته
بالفعل انا عملت نفس المطلوب بالفيجوال بيسيك 6
عندما حاولت عمل Screen Saver
حاول استخدم الداله SetWindowPos
واليك المثال المرفق برنامج بيطلع شاشة سوداء على جميع الشاشات المفتوحة وهذا المثال كا قد قام بعمله الزميل علاء عواد
ملحوظة لغلق البرنامج الكتب "hamed" ثم اضغط على الزر "Enter"
استغفر الله العظيم من كل ذنب وأتوب إليه
السلام عليكم
إحدى الخيارات الثلاث المعروضة في الكود للخاصية FormBorderStyle تمكنك من تغطية شريط المهام
'Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow 'Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow Me.WindowState = FormWindowState.Maximized Me.TopMost = True
بالتوفيق إن شاء الله.
في المثال يتضح المقال
اخوك جديد بالبرمجة :( ..
لكن احتجت هذي الخاصية .. الـ Topmost حتى على شريط المهام ... عشان كذا .. حطيتها داخل تايمر ..
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.TopMost = True End Sub
و مشى الحال .. :lol:
تم تعديل هذه المشاركة بواسطة zoarrs في 22 يونيو 2006 في 20:42
نعم أخي مشي الحال , لكن ذلك سيكون على حساب الذاكرة
لانه ببساطة أنظر كم مرة في الثانية سيتم اسناد القيمة True للخاصية TopMost
وهذا يعني تمزيق المصادر ايما تمزيق.. هل ينبغي علي ان اقول لماذا !!
على كل حال ( هذا منطق مرفوض في البرمجة )
دئماً تحكم في المشروع ولا يكون العكس تماماً...
السلام عليكم.
في المثال يتضح المقال
الغملاسي كتب:السلام عليكمأكتب في Load Event التالي
Me.TopMost = True
مرحباااااا
أخى المشرف الغملاسي
أعزك الله
لايعمل هذا الكود مع الفورم المحضونة (Child) لماذا
تحياتى
قال رسول الله صلى الله عليه وسلم
يكبر بن أدام ويكبر معه شيئان كثرة المال وطول العمر
صدق رسول الله صلى الله عليه وسلم
قال عمر بن الخطاب رضي الله عنه
نحن قوم أعزنا الله بالإسلام فإذا إبتغينا العزة فى غيره أذلنا الله
اقتباسلايعمل هذا الكود مع الفورم المحضونة (Child) لماذا
السبب والله أعلم, أنه لا يمكن أن يكون الابن أعلى من محيط الاب .
لكن تستطيع باستخدام نوع الاظهار وهو كالتالي
from.showDialog
بالتوفيق إن شاء الله.
في المثال يتضح المقال
شباب
ياليت احد يلقى لنه حل للمشكله هذي
الفروم يغطي الشاشه كلها بس اذ ضغط احد على زر الويندوز في الكيبور ينفتح شريط ابدا فوق الفورم
اذكر فيه كود في فجول 6 يمنع هذا الشي
كان في دالة ويندوز API كنا بنستخدمها أيام VB6 نخبر فيها النظام أن screenSaver شغال لتؤدي هكذا مهمة بس المشكلة مالي متذكرها على كل حال إن وقفت ووجدتها سأضع تعريفها هنا ويمكنكم محاولة البحث عنها
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
أخي أذا كنت برنامجك دائما في المقدمة فيمكن عن طريق جعل برنامجك مفعل دائما أي قم بوضع تايمر
ثم أستخدم AppActivate وهي دالة
أو قم بوضع الدالة في الحدث الخاص بالفورم DeActivate
تم تعديل هذه المشاركة بواسطة MiCcSoft في 28 سبتمبر 2006 في 23:15
من مواضيعي :
تعلم كيف تفتح ملف ببرنامجك والبرنامج مو شغال
مجموعة كبيرة من خواص System.Management
تفعيل ستايل ويندوز أكس بي على الفيجوال 2003
تعلم أختراق أقوى كلمة سر في الكمبيوتر
درس لتعليم كيفية دمج الملفات في ملف حاضن
تعلم طريقة وضع صورة ونص في نفس الملف, درس رائع
وضع ملف داخل الملف التنفيذي وأستخراجه
----------------------------------------------------------------------------------------------------
))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((
--------------------------
If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End ifهذا الموضوع مغلق.