[سعود]

كعادتي لا استطيع ان اقف عن اي خاطرة تخطر في بالي طبعا لانه ليس جديد فليس هناك ضرورة لرفع المرفق

فاكرين الموضوع هذا التالي:

[مشروع] إعادة فكرة توليد موديول

استفدت منه في هذه الفكرة ولاول مرة بهذا الشكل

طبعا تحتاج فقط الملف a.vb بعد استخراجه ثم تضيفه لمشروعك الجديد

PHP كود :

Public Class Form1
    Dim WithEvents b As bt
    Private Sub bclick(sender As Object, e As System.EventArgs)
        My.Computer.Audio.Play(CurDir() & "\sounds\" & sender.tag & ".wav")
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        For i As Integer = 0 To row.Count - 2
            b = New bt
            With b.Label1
                .Text = Split(row(i), ";")(0)
                .ForeColor = Color.Green
            End With
            With b.Button1
                .Text = Split(row(i), ";")(1)
                .ForeColor = Color.Blue
                .Tag = Split(row(i), ";")(0)
            End With
            AddHandler b.Button1.Click, AddressOf bclick
            f.Controls.Add(b)
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Top = 0
        Me.Height = My.Computer.Screen.WorkingArea.Height
        Addrows()
    End Sub
End Class