25-09-12, 08:57 PM
السلام عليكم و رحمة الله و بركاته،،
كود :
[align=center] Action(Of T)[/align]
هو تمثيل لإجراء يحتوي على Parameter واحد
مثلاً:
PHP كود :
Public Class Form1
Public Sub DoSomething1(ByVal param1 As String)
MsgBox(param1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Action(Of String) = AddressOf DoSomething1
a.Invoke("Aly El-Haddad")
End Sub
End Class
تطبيق على نقل عناصر ListBox1 إلى ListBox2 بإستخدام الدالة List(Of T).ForEach:
PHP كود :
Public Class Form1
Public Sub FillListBox2(ByVal item As String)
ListBox2.Items.Add(item)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim StrArr As String() = New String(ListBox1.Items.Count - 1) {}
ListBox1.Items.CopyTo(StrArr, 0)
Dim list As New List(Of String)(StrArr)
ListBox2.Items.Clear()
list.ForEach(AddressOf FillListBox2)
End Sub
End Class