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

السلام عليكم اخواني
ممكن المساعدة في اتمام الكود التالي ؟:

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) الاولى بدون اي اشكال
المشكل عندي لما انتقل للتابل الثاني تطلع النتيجة كاني استعمل التايبل الاولى .... يعنى لما اضعط على الزر الاول في التايبل الثاني اكون كما لو انني ضعظت على الزر الاول في التابل الاول
سؤالي كيف اظبط الكود لتكون التايبل الثاني  امتداد للاولى و ليست كانها نسخة منها
ارجو انكم فهمتم قصدي و مساعدتي ان امكن رجاءا

السلام عليكم ورحمة الله وبركاته
اخي الكريم الله اعلم ان اندكس الازرار في TableLayoutPanel1 و TableLayoutPanel2 لهما نفس الاندكس  لان كل واحدة منفصلة عن الاخرى ويبدأ ترقيم الاندكس للازرار من الصفر لكليهما لذلك يتم التعامل معهما نفس الشيئ ... اما كيف قمت انت بجمع الاندكس  (فلا اعرف)
تحقق من ذلك

(11-01-21, 10:22 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم الله اعلم ان اندكس الازرار في TableLayoutPanel1 و TableLayoutPanel2 لهما نفس الاندكس  لان كل واحدة منفصلة عن الاخرى ويبدأ ترقيم الاندكس للازرار من الصفر لكليهما لذلك يتم التعامل معهما نفس الشيئ ... اما كيف قمت انت بجمع الاندكس  (فلا اعرف)
تحقق من ذلك

نعم اخي دلك  هو صلب المشكله التي اغمل على حلها منذ ايام ...فكيف اجمع الاندكس لكليهما في مجموع واحد لكي اتمكن من مطابقة او ربط المجموع مع عدد عناصر التكست بوكس
  هذا كود احداث كلا التابلين :
For i As Integer = 0 To BtnArray.Length - 1
            BtnArray(i) = New Button()
            BtnArray(i).Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
            BtnArray(i).Text = CStr(i + 1)
            BtnArray(i).Dock = DockStyle.Fill
            BtnArray(i).Margin = New Padding(0)
            TableLayoutPanel1.Controls.Add(BtnArray(i), i Mod (NCol + 1), i \ (NCol + 1))
           
AddHandler BtnArray(i).Click, AddressOf ClickHandler
Next
و نفس الشيء للتايبل الثاني فقط تغيير BtnArray(i).Text = CStr(i + 1) الى  BtnArray(i).Text = CStr(i + 16)
يعني 15 زر في خمسة اعمدة و تلاث صفوف

السلام عليكم 
اخي الكريم كل اذاة مستقلة ويتم ترقيم الاندكس للادوات فيها من الصفر
يمكنك تعديل الاندكس في TableLayoutPanel2 بحيث تبدا من حيث انتهى الاندكس في الاولى من خلا الخاصية Tabindex لكل زر
جرب والتجربة هي الفيصل

(12-01-21, 01:32 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم 
اخي الكريم كل اذاة مستقلة ويتم ترقيم الاندكس للادوات فيها من الصفر
يمكنك تعديل الاندكس في TableLayoutPanel2 بحيث تبدا من حيث انتهى الاندكس في الاولى من خلا الخاصية Tabindex لكل زر
جرب والتجربة هي الفيصل

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

(12-01-21, 01:36 AM)asmarsou كتب : [ -> ]

(12-01-21, 01:32 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم 
اخي الكريم كل اذاة مستقلة ويتم ترقيم الاندكس للادوات فيها من الصفر
يمكنك تعديل الاندكس في TableLayoutPanel2 بحيث تبدا من حيث انتهى الاندكس في الاولى من خلا الخاصية Tabindex لكل زر
جرب والتجربة هي الفيصل

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

لم تفلح محاولاتي هل من فكرة ؟