تقييم الموضوع :
  • 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 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61

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


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