استفسار عن : انشاء Button بأستخدام الكود , تشغيل ملف صوتى فى الخلفية

بســم الله الـرحمــن الرحيــم

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

للتسهيل على اخوانى بامنتدى

انا فى موضوع انشاء كوماند بالكود اجحت فى انشاء الكود واكيد هذا الكود بسيط ويعرفة الجميع

ولكن المشكلة فى التحكم فى الـ Button الذى يقوم الكود بانشائة

Me.Controls.Add(New System.Windows.Forms.Button)

اشكركم

مرحباً أخي الكريم .

بالنسبة للسؤالك الأول عليك إنشاء بيان للحدث الذي تريد استخدامه كتابع لهذا التحكم كالتالي :

Private Sub MyButton_Click( Byval Sender As System.OBject, Byval E As System.EventArgs )
Dim Bt As Button = DirectCast( Sender, Button )
' Put your code here
' remove the following, it's only to show you that it does work :)
MsgBox( Bt.Text )
End Sub

بعد ذلك يمكنك إلاحاق هذا البيان بأي زر عن طريق استخدام التصريح AddHandler و AddressOf, مثال :

Private Sub Form1_Load( Byval Sender AS System.Object, Byval E As System.EventArgs ) Handles MyBase.Load
Dim MyButton1, MyButton2 As New Button
MyButton1.Text = "It's the first button"
MyButton2.Text = "It's the second button"
MyButton1.LOcation = New Point( 0, 0 ) : MyButton2.Location = New Point( 52, 0 )
MyButton1.Size = New Size( 50, 10 ) : MyButton2.Size = New Size( 50, 10 )
AddHandler MyButton1.Click, AddressOf MyButton_Click
AddHandler MyButton2.Click, AddressOf MyButton_Click
Controls.AddRange( New Control() { MyButton1, MyButton2 } )
End Sub

بهذا الـ Code نقوم بإضافة زران بحجم 50 عرض, 10 طول, والأمكنة متتالية على الحد 50, بعد ذلك إضافة عميل تابع للبيان MyButton_Click .

لاحظ دمج الحدثين تحت بيان واحد .

بالنسبة للتشغيل صوت, فعليك استخدام My.Computer.Audio.Play( اسم الملف, كيفية التشغيل ) .

 

My[color= #339933;].Computer[color= #339933;].Audio[color= #339933;].Play[color= #009900;]([color= #0000ff;]"FileName.wav"[color= #339933;], AudioPlayMode[color= #339933;].Background[color= #009900;])

لأي استفسارات الأخرى لتتردد في سؤال عنها .

بالتوفيق .

السلام عليكم اخى الكريم

والله ان لسانى يجز عن شكرك

لقد ساعدتنى كثيرا

بالنسبة لتشغيل الصوت بارك الله فيك يعمل بدون اية مشاكل

اما بالنسبة لانشاء الـ Button

يعمل الكود بضل الله ولكن لازلت غير قادر على التحكم فية

اخى انا لم اقصد التحكم فى موقع الـ Button

انا اقص دبا

السلام عليكم اخى الكريم

والله ان لسانى يجز عن شكرك

لقد ساعدتنى كثيرا

بالنسبة لتشغيل الصوت بارك الله فيك يعمل بدون اية مشاكل

اما بالنسبة لانشاء الـ Button

يعمل الكود بفضل الله ولكن لازلت غير قادر على التحكم فية

اخى انا لم اقصد التحكم فى موقع الـ Button

انا اقصد بأضافة الكود

اما عن ما قمت بعملة

الكود

....

Dim Bt As Button = DirectCast(sender, Button)
		Bt = (New System.Windows.Forms.Button)

		Me.Controls.Add(Bt)

		Bt.Text = "It's the first button"
		AddHandler Bt.Click, AddressOf bt_click


		Controls.AddRange(New Control() {Bt})
....

ولى عندك فقط رجاء

ارجو منك ان توفر لك وقت ان توقوم بعمل مثال سريع ان لم يكن عليك فى ذلك مشكلة لديك

اشكرك من كل قلبى

وجعلة الله فى ميزان حسناتك

مرحباً أخي الكريم .

المثال الذي كتبته لك واضح ولايحتاج التصريح الذي قمتَ بإستخدامه ( ( Bt = (New System.Windows.Forms.Button )

رجاءً حاول إخبارنا مالمطلوب حدوثه عند الضغط على ذلك الزر ؟

سأعود لك بمثال أخر, سأقوم بإرفاق المشروع لكي ترى كيف تتم عملية إنشاء معاملات لأحداث أخرى .

شكرا لك اخى الكريم Bashar Rabat

اشكرك على تعبك معى وجعلة الله فى ميزان حسناتك يوم لا ينفع مال ولا بنون

اخى انا جربت الكود الذى قمت بوضعة بدون تغيير لاوكن لم يعمل معى الا عند اضافة هذا التصريح

اشكرك اخى واعذرنى على التطويل وانى اثقل عليك

وفى انتظارك

بارك الله فيك

حسناً أخي الكريم, جرب الملف في المرفقات وقل لي مالفرق ؟ :D

بالتوفيق .

ToAddHandler.rar

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

اخى اشكرك من كل قلبى

جعل الله علمك سبب لدخولك الجنة ان شاء الله

اشكرك والفرق ليس كبيرا ولكن الفرق فقط

فى الفهم للكود

لقد اخلفت الامور فى ذهنى وقمت بكتابة الكود خطاء

اشكرك اخى الكريم

وذاد الله من علمك وبارك الله لك فية

لا شكر على واجب,

إذا كان لديك أي أسئلة أخرى ( لا تتردد :P ) .

بالتوفيق .