كيف يمكن عمل مصفوفة ادوات في دوت نت

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

اخي الفاضل TarekNajem04

بعد جزيل الشكر و الامتنان

الساعة التي توجد في توقيعك جميلة جدا ياريت تشرح طريقة عملها في موضوع منفصل :angry:

اعدك اني ابذل مجهود في فهم الدوت نت بالطبع ده محتاج وقت مثل اى شئ جديد نريد ان نتعلمه خصوصا الكتب الورقية التي احبها عن دوت نت 2005 لم تطرح بعد

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

اخيرا و ليس اخرا هناك بعض الملاحظات حاولت ان احلها ولكن فشلت

1- التشيك الثالث يحول لون الفورم للاسود بدلا من الاخضر

2- التشيك الرابع لاينفذ الكود

3- اريد بعد الضغط علي اى تشيك ان يعود مرة اخرى unchecked هل نكنب هذا الامر لكل تشيك ام هناك طريقة لكتابته مرة واحدة للكولكشن ؟

تحياتي

chekArray_select_case2.rar

هل جربت الملف التنفيذي شغال 100% + إذا شغال الملف التنفيذي يعني الكود الأخير شغال 100% إبحث في الكود Array سطر تلو سطر هل جميع الارقا متطابقة للكنترول التي تقوم بإسناد الكود لها

أما إذا أردت أن الضغط علي اى تشيك ان يعود مرة اخرى unchecked

Sub OnCheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
      Dim Target As ICommandHolder = DirectCast(sender, ICommandHolder)
      Target.Command.Excute()

       ((ChekBoxCommand)sender ).Checked = False / ليعود مره آخرى إلى حالته الطبيعيه
End Sub

بالنسبة لساعة إظغط عليها وسوف ترسلك إلى موقع إختر الساعة التي تريد ومن ثم أضفه إلى توقيعك وإنظر ماذا يحدث

اخونا الفاضل

شكر الله لك

تم اصلاح الاخطاء والبرنامج يعمل يصورة متتازة

يبقي خطأ اخير بعد اضافة الكود الاخير

 
((ChekBoxCommand)sender ).Checked = False

Error 1 Syntax error

عفوأ الكود في الـ #C

Sub OnCheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
     Dim Target As ChekBoxCommand = DirectCast(sender, ChekBoxCommand)
     Target.Command.Excute()
      Target.Checked = False ' ليعود مره آخرى إلى حالته الطبيعيه
End Sub

اخونا الفاضل TarekNajem04

ادام الله عليك فضله

ارجو ان لا يكون هذا السؤال هو الاخير لان قعلا صحبتك ممتعة وان كانت مرهقة لك

لاتخف البرنامج يسير علي مايرام واشكرك كثيرا :D

السؤال : لماذا عندما نغير لون الفورم يتغير ايضا لون الازرار ( التشيك ) ؟؟

الكود كامل حتي الان

'Thank's for TarekNajem04 , arabteam2000
'/index.php?showtopic=82872

Public Class Form1
    Inherits System.Windows.Forms.Form

    'هذه الإنترفاس التي سوف نقوم بتطبيقها لاحقاً لنستطع تنفيذ الكود 
    'دون معرفة الكائن وهذا التصمسم مفيد لتخفيف الإرتباط بين الكائنات
    '
    Interface ICommand
        Sub Excute()
    End Interface
    '
    'نستطسع تطبيق هذا الإنترفاس على أي كائن سوف يفعل 
    'عمل ما دون معرفة العمل أو الكائن
    Interface ICommandHolder
        Property Command() As ICommand
    End Interface
    'الكلاس التالي
    'وراثة الكائن الأصلي التشيك بوكس وتطبيق الإنترفاس السابقة لنستطيع 
    'عمل الكود بطريقة جميلة ونستطيع التعديل عليه لاحقاً 
    'فمثلاً قمنا بتعديل على البرنامج حاعلين الأزرار بدل الإختيارت سيكون التعديل قليل
    '
    Class CheckBoxCommand
        Inherits System.Windows.Forms.CheckBox
        Implements ICommandHolder

        Private m_Command As ICommand

        Property Command() As ICommand Implements ICommandHolder.Command
            Get
                Return m_Command
            End Get
            Set(ByVal Value As ICommand)
                m_Command = Value
            End Set
        End Property

    End Class


    'تستطيع أن تكتب ما تشاء من هذه الأوامر
    ' الكلاسات الاربع التالية
    Class RedCommand
        Implements ICommand
        Private frm As Form1
        Sub New(ByVal Target_form As Form1)
            frm = Target_form

        End Sub

        Public Sub Excute() Implements ICommand.Excute
            frm.BackColor = Color.Red
        End Sub
    End Class
    '

    Class BlueCommand
        Implements ICommand
        Private frm As Form1
        Sub New(ByVal Target_form As Form1)
            frm = Target_form
        End Sub
        Public Sub Excute() Implements ICommand.Excute
            frm.BackColor = Color.Blue
        End Sub
    End Class
    '
    Class CyanCommand
        Implements ICommand
        Private frm As Form1
        Sub New(ByVal Target_form As Form1)
            frm = Target_form
        End Sub

        Public Sub Excute() Implements ICommand.Excute
            frm.BackColor = Color.Cyan
        End Sub
    End Class
    '
    Class YellowCommand
        Implements ICommand
        Private frm As Form1
        Sub New(ByVal Target_form As Form1)
            frm = Target_form
        End Sub
        Public Sub Excute() Implements ICommand.Excute
            frm.BackColor = Color.Yellow
        End Sub
    End Class
    '
    '
    Friend WithEvents ChekBoxCommand1 As CheckBoxCommand
    Friend WithEvents ChekBoxCommand2 As CheckBoxCommand
    Friend WithEvents ChekBoxCommand3 As CheckBoxCommand
    Friend WithEvents ChekBoxCommand4 As CheckBoxCommand



    Sub Array()
        Dim CheckBoxCollection As New System.Collections.ObjectModel.Collection(Of CheckBoxCommand)
        Me.SuspendLayout() ''ما معني هذه الاضافة

        ChekBoxCommand1 = New CheckBoxCommand
        Me.Controls.Add(ChekBoxCommand1)
        ChekBoxCommand1.Command = New RedCommand(Me)
        ChekBoxCommand1.Text = "&Red"
        AddHandler ChekBoxCommand1.CheckedChanged, AddressOf OnCheckedChanged



        ChekBoxCommand2 = New CheckBoxCommand
        Me.Controls.Add(ChekBoxCommand2)
        ChekBoxCommand2.Command = New BlueCommand(Me)
        AddHandler ChekBoxCommand2.CheckedChanged, AddressOf OnCheckedChanged
        ChekBoxCommand2.Text = "&Blue"



        ChekBoxCommand3 = New CheckBoxCommand
        Me.Controls.Add(ChekBoxCommand3)
        ChekBoxCommand3.Command = New CyanCommand(Me)
        AddHandler ChekBoxCommand3.CheckedChanged, AddressOf OnCheckedChanged
        ChekBoxCommand3.Text = "&Cyan"



        ChekBoxCommand4 = New CheckBoxCommand
        Me.Controls.Add(ChekBoxCommand4)
        ChekBoxCommand4.Command = New YellowCommand(Me)
        AddHandler ChekBoxCommand4.CheckedChanged, AddressOf OnCheckedChanged
        ChekBoxCommand4.Text = "&Yellow"


        CheckBoxCollection.Add(ChekBoxCommand1)
        CheckBoxCollection.Add(ChekBoxCommand2)
        CheckBoxCollection.Add(ChekBoxCommand3)
        CheckBoxCollection.Add(ChekBoxCommand4)


        For index As Integer = 0 To CheckBoxCollection.Count - 1
            Dim CHK As CheckBoxCommand = CheckBoxCollection.Item(index)
            With CHK
                .Left = 60
                If index = 0 Then
                    .Top = 60
                Else
                    .Top = CheckBoxCollection.Item(index - 1).Bottom + 5
                End If
                .Appearance = Appearance.Button
                .AutoSize = False
                .Size = New System.Drawing.Size(100, 30)
                .TextAlign = ContentAlignment.MiddleCenter
                .CheckState = CheckState.Unchecked
            End With
        Next
       
        Me.ResumeLayout(False) ' NEED COMMENT


    End Sub
    '
    Sub OnCheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        Dim Target As CheckBoxCommand = DirectCast(sender, CheckBoxCommand)
        Target.Command.Excute()

        Target.Checked = False  'ليعود مره آخرى إلى حالته الطبيعيه

        Target.BackColor = Color.White
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Array()
    End Sub
    Public Shared Sub Main() 'WHAT INDICATION OF THIS CODE ?
        System.Windows.Forms.Application.Run(New Form1())
    End Sub

    Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs)


    End Sub
End Class

تحياتي

Class CheckBoxCommand
       Inherits System.Windows.Forms.CheckBox
       Implements ICommandHolder

       Private m_Command As ICommand

       Property Command() As ICommand Implements ICommandHolder.Command
           Get
               Return m_Command
           End Get
           Set(ByVal Value As ICommand)
               m_Command = Value
           End Set
       End Property

      Protected Overrides Sub OnParentBackColorChanged ( e As EventArgs )
       'لا تكتب شئ دعه فارغ
      End Sub

      End Class

اخونا الكريم

ما زال هناك خطأ بعد اضافة الكود السابق

Protected Overrides Sub OnParentBackColorChanged ( e As EventArgs )

Error 1 Statement cannot appear within a method body. End of method assumed.

تحياتي

أخي الكريم لقد أضفنا كود فارغ لا يحتمل وجود أخطأ أبحث مره أخرى عن مكان تواجد الخطأ

Protected Overrides Sub OnParentBackColorChanged ( e As EventArgs )

'لا تكتب شئ دعه فارغ

End Sub

End Class

موش اكتر ان ال end class تحتها خط

بدون هذا السطر لا يوجد اخطاء

هذا السطر لم يغير من الامر شئ الازرار ما زالت يتغير لونه بلون الفورم

هذا الكود كامل أنسخه إلى ملف جديد وقم بتسميته SCP.VB ثم قم بتسغيل SDK Command Prompt الخاص بالدوتنت أو أكتب الأمر التالي ثم أضغط مفتاح الإدخال إذا كنت قد أنزلت Microsoft .NET Framework SDK v2.0

C:\WINDOWS\system32\cmd.exe /k ""C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\sdkvars.bat""

ثم أكتب

vbc.exe /imports:Microsoft.VisualBasic,System,System.Windows.Forms,System.Drawing C:\SCP.VB

قم بإنشاء مشروع جديد من النوع ويندوز ثم أحذف النافذة الإفتراضية التي يضيفها ثم قم بإضافة ملف جديد من النوع Code File ثم قم بنسخ الكود إليه ثم شغل وإنظر ماذا ترى

Public Class Form1
      Inherits System.Windows.Forms.Form
   'Thank's for TarekNajem04 , arabteam2000

   'هذه الإنترفاس التي سوف نقوم بتطبيقها لاحقاً لنستطع تنفيذ الكود 
   'دون معرفة الكائن وهذا التصمسم مفيد لتخفيف الإرتباط بين الكائنات
   '
   Interface ICommand
       Sub Excute()
   End Interface
   '
   'نستطسع تطبيق هذا الإنترفاس على أي كائن سوف يفعل 
   'عمل ما دون معرفة العمل أو الكائن
   Interface ICommandHolder
       Property Command() As ICommand
   End Interface
   'الكلاس التالي
   'وراثة الكائن الأصلي التشيك بوكس وتطبيق الإنترفاس السابقة لنستطيع 
   'عمل الكود بطريقة جميلة ونستطيع التعديل عليه لاحقاً 
   'فمثلاً قمنا بتعديل على البرنامج حاعلين الأزرار بدل الإختيارت سيكون التعديل قليل
   '
   Class CheckBoxCommand
       Inherits System.Windows.Forms.CheckBox
       Implements ICommandHolder

       Private m_Command As ICommand

       Property Command() As ICommand Implements ICommandHolder.Command
           Get
               Return m_Command
           End Get
           Set(ByVal Value As ICommand)
               m_Command = Value
           End Set
       End Property
       
       Protected Overrides Sub OnParentBackColorChanged (ByVal e As EventArgs )
        'لا تكتب شئ دعه فارغ
       End Sub

   End Class


   'تستطيع أن تكتب ما تشاء من هذه الأوامر
   ' الكلاسات الاربع التالية
   Class RedCommand
       Implements ICommand
       Private frm As Form1
       Sub New(ByVal Target_form As Form1)
           frm = Target_form

       End Sub

       Public Sub Excute() Implements ICommand.Excute
           frm.BackColor = System.Drawing.Color.Red
       End Sub
   End Class
   '

   Class BlueCommand
       Implements ICommand
       Private frm As Form1
       Sub New(ByVal Target_form As Form1)
           frm = Target_form
       End Sub
       Public Sub Excute() Implements ICommand.Excute
           frm.BackColor = System.Drawing.Color.Blue
       End Sub
   End Class
   '
   Class GreenCommand
       Implements ICommand
       Private frm As Form1
       Sub New(ByVal Target_form As Form1)
           frm = Target_form
       End Sub

       Public Sub Excute() Implements ICommand.Excute
           frm.BackColor = System.Drawing.Color.Green
       End Sub
   End Class
   '
   Class YellowCommand
       Implements ICommand
       Private frm As Form1
       Sub New(ByVal Target_form As Form1)
           frm = Target_form
       End Sub
       Public Sub Excute() Implements ICommand.Excute
           frm.BackColor = System.Drawing.Color.Yellow
       End Sub
   End Class
   '
   '
   Friend ChekBoxCommand1 As CheckBoxCommand
   Friend ChekBoxCommand2 As CheckBoxCommand
   Friend ChekBoxCommand3 As CheckBoxCommand
   Friend ChekBoxCommand4 As CheckBoxCommand

   

Sub Array()

       Dim CheckBoxCollection As New System.Collections.ObjectModel.Collection(Of CheckBoxCommand)
       
       Me.SuspendLayout()

       ChekBoxCommand1 = New CheckBoxCommand()
       Me.Controls.Add(ChekBoxCommand1)
       ChekBoxCommand1.Command = New RedCommand(Me)
       ChekBoxCommand1.Text = "Red"
       AddHandler ChekBoxCommand1.CheckedChanged, AddressOf OnCheckedChanged
       
       ChekBoxCommand2 = New CheckBoxCommand()
       Me.Controls.Add(ChekBoxCommand2)
       ChekBoxCommand2.Command = New BlueCommand(Me)
       ChekBoxCommand2.Text = "Blue"
       AddHandler ChekBoxCommand2.CheckedChanged, AddressOf OnCheckedChanged
       
       ChekBoxCommand3 = New CheckBoxCommand()
       Me.Controls.Add(ChekBoxCommand3)
       ChekBoxCommand3.Command = New GreenCommand(Me)
       ChekBoxCommand3.Text = "Green"
       AddHandler ChekBoxCommand3.CheckedChanged, AddressOf OnCheckedChanged

       ChekBoxCommand4 = New CheckBoxCommand()       
       Me.Controls.Add(ChekBoxCommand4)
       ChekBoxCommand4.Command = New YellowCommand(Me)
       ChekBoxCommand4.Text = "Yallow"
       AddHandler ChekBoxCommand4.CheckedChanged, AddressOf OnCheckedChanged


       CheckBoxCollection.Add(ChekBoxCommand1)
       CheckBoxCollection.Add(ChekBoxCommand2)
       CheckBoxCollection.Add(ChekBoxCommand3)
       CheckBoxCollection.Add(ChekBoxCommand4)


       For Index As Integer = 0 To CheckBoxCollection.Count -1
           Dim CHK As CheckBoxCommand = CheckBoxCollection.Item(Index)
           With CHK
            .Left = 60
  If Index = 0 Then
           	 .Top = 60
  Else
       	 .Top =  CheckBoxCollection.Item(Index-1).Bottom + 5
  End If	
  .Size = New System.Drawing.Size(100, 30)
  .AutoSize = False            
            .Appearance = System.Windows.Forms.Appearance.Button            
            .TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  .CheckState = System.Windows.Forms.CheckState.Unchecked
           End With
       Next
       
     Me.ResumeLayout(false)
   End Sub
   '
   Sub OnCheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim Target As CheckBoxCommand = DirectCast(sender, CheckBoxCommand)
       Target.Command.Excute()
       Target.Checked = False  'ليعود مره آخرى إلى حالته الطبيعيه
       Target.BackColor = Color.White
   End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Text = "Arab Team 2000"	
   Array()
End Sub

Public Shared Sub Main()
   System.Windows.Forms.Application.Run(New Form1())	
End Sub

End Class

شكرا جزيلا اخونا الفاضل TarekNajem04

لقد كنت كريما معي لابعد الحدود

ارجو ان تلتمس لي العذر فانا مازلت اخطو اولي خطواتي في الدوت نت ولا انكر انك شجعتني علي ان احاول احبها

تحياتي اخي الكريم

لا تتردد في السؤال

أتمنى لك التوفيق دائماً

أستودعك الله على أمل أن نلتقي