اريد كود اعادة تشغيل الفروم

?? وينكم اخواني .؟؟

لايمكنك ان تغلق الفورم كليا وتستعيده إلا من خلال استدعاءه من فورم اخر مفتوح

اما في حالتك فيمكنك ان تجعل جميع التايمرات والحلقات تبدأ من جديد بدل ان تعيد تشغيل الفورم مرة ثانية

psa كتب:

لايمكنك ان تغلق الفورم كليا وتستعيده إلا من خلال استدعاءه من فورم اخر مفتوح

اما في حالتك فيمكنك ان تجعل جميع التايمرات والحلقات تبدأ من جديد بدل ان تعيد تشغيل الفورم مرة ثانية

مافي طريقة مختصره او كود يقوم بالتالي

وعليكم السلام ورحمة الله وبركاته

أخي الحل جداً بسيط كالتالي :

تعمل Sub على مستوى الفورم بالطريقة هذي

لنفرض اسم الفورم Form1 ونريد نعمل الصب داخلها فيكون كالتالي

الصب المراد عمله لنفرض اسمه rrr مع إمكانية كتابة مسمى مختلف يرمز للحدث المطلوب تنفيذه أو أي رمز المهم لا يكون داخل أي Sub آخر

Public Class Form1

طبعاً جميع أكوادك حتكون هنا وهذا شي معروف

أيضاً الصب المراد إنشاءه يجب أن يكون هنا


Private Sub rrr()

'هنا تضع الكود المطلوب

End Sub

End Class

بعد كذا كل ما تريد تنفيذ الكود فقط تكتب

Call rrr

مثلاً تريد تنفيذ الكود في الفورم لود

تضعه في تحميل الفورم لود

Call rrr

مثلاً تريد وضعه أيضاً في حدث بوتن كلك تضع ايضاً

Call rrr

مثلاً تريد وضعه في تكست بوكس إذا كان فارغاً في حدث TextChanged

If TextBox1.Text = "" then Call rrr

وهكذا كل ما أحتجت تنفيذ الكود فقط تكتب

Call rrr

أتمنى الإفادة

محمدvb كتب:

وعليكم السلام ورحمة الله وبركاته

أخي الحل جداً بسيط كالتالي :

تعمل Sub على مستوى الفورم بالطريقة هذي

لنفرض اسم الفورم Form1 ونريد نعمل الصب داخلها فيكون كالتالي

الصب المراد عمله لنفرض اسمه rrr مع إمكانية كتابة مسمى مختلف يرمز للحدث المطلوب تنفيذه أو أي رمز المهم لا يكون داخل أي Sub آخر

Public Class Form1

طبعاً جميع أكوادك حتكون هنا وهذا شي معروف

أيضاً الصب المراد إنشاءه يجب أن يكون هنا


Private Sub rrr()

'هنا تضع الكود المطلوب

End Sub

End Class

بعد كذا كل ما تريد تنفيذ الكود فقط تكتب

Call rrr

مثلاً تريد تنفيذ الكود في الفورم لود

تضعه في تحميل الفورم لود

Call rrr

مثلاً تريد وضعه أيضاً في حدث بوتن كلك تضع ايضاً

Call rrr

مثلاً تريد وضعه في تكست بوكس إذا كان فارغاً في حدث TextChanged

If TextBox1.Text = "" then Call rrr

وهكذا كل ما أحتجت تنفيذ الكود فقط تكتب

Call rrr

أتمنى الإفادة

شكرا لك سوف احاول ان انفذ طريقتك ..

majado2 كتب:

شكرا لك سوف احاول ان انفذ طريقتك ..

اخوي كيف اقوم بأيقاف الـ Private Sub start_play()

العفو اخوي

كيف أقوم بإيقافه //// هذا يعتمد على الكود ماهو ////// توضيح أكثر

لنفرض Private Sub start_play()

يحمل كود

Timer1.Enabled = True

TextBox1.Text = "السلام عليكم"

لنقوم بتشغيل الكود هذا كما أوضحنا سابقاً

Call start_play

طيب لنقوم الآن بإيقاف الصب كيف يتم ذلك ؟

نعمل صب آخر ولنفرض بإسم Private Sub stop_play()

ونضع فيه كود عكس الكود السابق بمعنى نوضح لمثالنا السابق

Timer1.Enabled = False

TextBox1.Text = ""

ولمناداة صب الإيقاف أيضاً كالتالي

Call stop_play

أتمنى الإفادة .... تحياتي

محمدvb كتب:

العفو اخوي

كيف أقوم بإيقافه //// هذا يعتمد على الكود ماهو ////// توضيح أكثر

لنفرض Private Sub start_play()

يحمل كود

Timer1.Enabled = True

TextBox1.Text = "السلام عليكم"

لنقوم بتشغيل الكود هذا كما أوضحنا سابقاً

Call start_play

طيب لنقوم الآن بإيقاف الصب كيف يتم ذلك ؟

نعمل صب آخر ولنفرض بإسم Private Sub stop_play()

ونضع فيه كود عكس الكود السابق بمعنى نوضح لمثالنا السابق

Timer1.Enabled = False

TextBox1.Text = ""

ولمناداة صب الإيقاف أيضاً كالتالي

Call stop_play

أتمنى الإفادة .... تحياتي

مشكور اخوي .. ليس هذا ما اردته انما اردته كود واحد .. لأن العملية طويلة جداً مره .. اريد كود يختصر هذا كله ؟