منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اظهار محتوى البوتون
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم و رحمة الله
عندي مجموعة بوتون حوالي 26 بوتون ,, في كل بوتون سأضع صوره .. وكلها ع فروم واحد
كيف يمكن لي ترتيبها و برمجتها بحيث بظهور الثاني يتخفي الاول و هكذا حتى النهايه ؟

سوال اخر ..

اريد ان اضع منيو ستريب .. يحتوي ع فايل و داخل الفايل يوجد Exit ..
كيف افعل االـ Exit بأنه بالضغط عليه يقفل البرنامج ككل ؟
وكذلك اذا اردت وضع تعليمات مثلا

و شكرا
السلام عليكم ورحمة الله
بالنسبة للسؤال الاول ما الحدث الذي سيقوم باظهر زر او اخفائه
هل تقصد عند الضغط علي Button1 يختفي ويظهر Button2 حتي النهاية

السؤال الثاني غير واضح

ولو امكن عند التوضيح تسمي الادوات بالاسماء الانجليزية مثال بدل بوتون افضل يكون Button
The first question:
I think this code will do the job
Mark property "Visible" is equal to "False" for all buttons except button 1
(In screen design)
In the Click event code, type in the following manner
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Button1.Visible = False
Me.Button2.Visible = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Button2.Visible = False
Me.Button3.Visible = True
End Sub

'And so on ...

RolleyesRolleyesRolleyes

(05-12-13, 11:40 PM)بنت ماما كتب : [ -> ]سوال اخر ..

اريد ان اضع منيو ستريب .. يحتوي ع فايل و داخل الفايل يوجد Exit ..
كيف افعل االـ Exit بأنه بالضغط عليه يقفل البرنامج ككل ؟
وكذلك اذا اردت وضع تعليمات مثلا

و شكرا

I understand that you want something like that
[صورة مرفقة: 165_06_12_13_1_18_06.png]

كود :
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        'SAVE SETTINGS IF FOUNDED
        My.Settings.Save()
        'CLOSE PRO.
        End
    End Sub

RolleyesRolleyesRolleyes
^

Thanks a lot for your advice

that will be help him for do so many functions

regardsHeart
توضيح لسوالي الاول بالنسبه للـ button
[صورة مرفقة: QEimu.png]
انا اشتغل ع برنامج لتعليم الاطفال الحروف
سأقوم بتصميم البرنامج مثل هذه الصوره ..
اريد بالضغط على الزر اللي عليه A تظهر لي الصوره و لما اضغط على B تختفي صورة A و تظهر صورة الـB و الخ ..

الكود اللي تم اضافته يخفي لي الـ button و ليس محتواه ..

بالنسبه
[صورة مرفقة: HEuaA.png]

كل اللي ابغاه انه يقفل لي البرنامج ككل بمجرد الضغط على Exit

اتمنى اني اكون وضحت طلبي اكثر Sad
السلام عليكم
ههه حلو الانجليزي اه ظنيت المنتدي غلط

الاجابة للاخ او الاخت صاحبت السؤال

ضعي كل الصور في الريسورس واليك الطريقة
اتبع الخطواط

الخطوة الاولي
[صورة مرفقة: 12.06.2013-21.23.png]

الخطوة الثانية
[صورة مرفقة: 12.06.2013-21.24.png]

الخطوة الثالثة
[صورة مرفقة: 12.06.2013-21.26.png]

الان يمكنك اضافة الصور باكثر من طريق يمكن الذهاب الي مجلد الصور وتحديد كل الصور ثم بالضغط مع السحب الي المساحة البيضاء التي ظهرت امامك الان

وممكن عن طريق البرنامج شاهد الصورة
[صورة مرفقة: 12.06.2013-21.29.png]

الان مبروك الصور اصبحت مدمجة داخل البرنامج

الان طريقة استخدام الصور وعرضا في البرنامج

اذهب الي زر واضغط عليه ضغطا مذدوجا سيذهب بك الي ساحة الكود الخاصة به

مثلآ انت الان تريد عرض الصورة في الكائن PictureBox1 اذن سيكون الكود كاالتالي

Me.PictureBox2.Image = My.Resources.www

طبعا مع تغير www الي اسم الصورة انت بمجرد كتابة My.Resources. ستظهر لك كل الصور التي تم اضافتها

-----------------------

بالنسبة للجزء الثاني وهو اغلاق البرنامج سهل
اضغط ضغطا مذدوجا علي زر الخروج وضع فيه الكود

كود :
Me.Close()

اتمني الاستفادة
شكرا اخوي ع الشرح و جربتها و طلعت تمام Smile
معليش ممكن تساعدوني ف الصور Sad
اضفت الازره و الـ PictureBox و كله زي شرح الاخ Sad
والصور جات هنا Sad
[صورة مرفقة: hWLjk.jpg]
لكن صوره تطلع و صوره لا لاني ضايفه في كل زر صورتين Sad
هذا الشي الاول الشي الثاني
لما اختار الزر الاول تطلع لي صوره وحده
و لما اضغط على الزر الثاني ماتطلع لي صورة الزر الثاني Sad
تبقى لي الصوره الاولى Sad
و البرمجه تطلع لي كذا Sad
[صورة مرفقة: WxA97.jpg]

اش الحل Sad Sad Sad
لم أقرأ الموضوع لكن رداً على الرد الأخير

استبدلي
كود :
Me.PictureBox2 = My.Resources.a
استبدليها بـ
كود :
Me.PictureBox2.Image = My.Resources.a

و كذلك مع الـريسورس b
:/
شكرا لك .. واسفه ماانتبهت للي كتبه الاخ قبل :/
الصفحات : 1 2