تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب تعديل كود
#1
السلام عليكم اخواني
ممكن المساعدة في اتمام الكود التالي ؟:

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) الاولى بدون اي اشكال
المشكل عندي لما انتقل للتابل الثاني تطلع النتيجة كاني استعمل التايبل الاولى .... يعنى لما اضعط على الزر الاول في التايبل الثاني اكون كما لو انني ضعظت على الزر الاول في التابل الاول
سؤالي كيف اظبط الكود لتكون التايبل الثاني  امتداد للاولى و ليست كانها نسخة منها
ارجو انكم فهمتم قصدي و مساعدتي ان امكن رجاءا
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم الله اعلم ان اندكس الازرار في TableLayoutPanel1 و TableLayoutPanel2 لهما نفس الاندكس  لان كل واحدة منفصلة عن الاخرى ويبدأ ترقيم الاندكس للازرار من الصفر لكليهما لذلك يتم التعامل معهما نفس الشيئ ... اما كيف قمت انت بجمع الاندكس  (فلا اعرف)
تحقق من ذلك
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asmarsou
#3
(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 زر في خمسة اعمدة و تلاث صفوف
الرد
تم الشكر بواسطة:
#4
السلام عليكم 
اخي الكريم كل اذاة مستقلة ويتم ترقيم الاندكس للادوات فيها من الصفر
يمكنك تعديل الاندكس في TableLayoutPanel2 بحيث تبدا من حيث انتهى الاندكس في الاولى من خلا الخاصية Tabindex لكل زر
جرب والتجربة هي الفيصل
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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

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

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

لم تفلح محاولاتي هل من فكرة ؟
الرد
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم