11-01-21, 07:47 PM
السلام عليكم اخواني
ممكن المساعدة في اتمام الكود التالي ؟:
Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
System.EventArgs)
Dim Index As Integer = (TableLayoutPanel1.Controls.IndexOf(sender) + TableLayoutPanel2.Controls.IndexOf(sender)).ToString
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
AxWindowsMediaPlayer1.URL = ListBox1.Items(Index).ToString
AxWindowsMediaPlayer1.Ctlcontrols.play()
Next
End Sub
هنا عملت 2 ( TableLayoutPanel) لتحل محل ليست بوكس
في كل واحدة مجموعة من الازرار نفس العدد في الاولى و الثانية و الكود السابق هو كود حدث كليك على اي زر من الازرار
اشتغل الكود معي تمام بالنسبه لل (TableLayoutPane) الاولى بدون اي اشكال
المشكل عندي لما انتقل للتابل الثاني تطلع النتيجة كاني استعمل التايبل الاولى .... يعنى لما اضعط على الزر الاول في التايبل الثاني اكون كما لو انني ضعظت على الزر الاول في التابل الاول
سؤالي كيف اظبط الكود لتكون التايبل الثاني امتداد للاولى و ليست كانها نسخة منها
ارجو انكم فهمتم قصدي و مساعدتي ان امكن رجاءا
ممكن المساعدة في اتمام الكود التالي ؟:
Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
System.EventArgs)
Dim Index As Integer = (TableLayoutPanel1.Controls.IndexOf(sender) + TableLayoutPanel2.Controls.IndexOf(sender)).ToString
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
AxWindowsMediaPlayer1.URL = ListBox1.Items(Index).ToString
AxWindowsMediaPlayer1.Ctlcontrols.play()
Next
End Sub
هنا عملت 2 ( TableLayoutPanel) لتحل محل ليست بوكس
في كل واحدة مجموعة من الازرار نفس العدد في الاولى و الثانية و الكود السابق هو كود حدث كليك على اي زر من الازرار
اشتغل الكود معي تمام بالنسبه لل (TableLayoutPane) الاولى بدون اي اشكال
المشكل عندي لما انتقل للتابل الثاني تطلع النتيجة كاني استعمل التايبل الاولى .... يعنى لما اضعط على الزر الاول في التايبل الثاني اكون كما لو انني ضعظت على الزر الاول في التابل الاول
سؤالي كيف اظبط الكود لتكون التايبل الثاني امتداد للاولى و ليست كانها نسخة منها
ارجو انكم فهمتم قصدي و مساعدتي ان امكن رجاءا