اذا احد ما له خبرة مع الـ List - نسخة قابلة للطباعة

PHP كود :

Public Class MailMessageList
    Inherits List(Of MailMessage)
    Public Sub New()
        InitializeList()
    End Sub
    Private Sub InitializeList()
        '.pic = Form1.PictureBox1.Image,
        AddRange(New MailMessage() {
            New MailMessage() With {
                .MsgDate = DateTime.Today,
                .Subject = "RE: Web Design Tip: How-To Add jQuery Yellow Fade Effect to ASP.NET GridView", .Sender = "رئيس قسم المحفوظات",
                .Text = "محمد خليل سالم",
        .IsRead = False
            },
            New MailMessage() With {
                .MsgDate = DateTime.Today.AddDays(-1),
                .Subject = "RE: Multitasking (Message from the CTO, newsletter 49)",
                .Sender = "Pietro Allegretti", .Text = "Let me thank you Julian. You make me discover Pomodoro Technique...",
        .IsRead = False
            },
            New MailMessage() With {
                .MsgDate = DateTime.Today.AddDays(-2),
                .Subject = "Advanced CodeRush Plug-ins: Converting an Object Initializer into a Constructor",
                .Sender = "Mark Miller (DevExpress)", .Text = "Today Rory Backer and I presented an Advanced CodeRush Plug-ins session, showing how to cr",
        .IsRead = True
            },
 })
    End Sub
End Class

PHP كود :

Public Class MailMessage
    
    Sub New()
        ' TODO: Complete member initialization 
    End Sub

    Public Property IsRead() As Boolean
    Public Property MsgDate() As DateTime
    Public Property Subject() As String
    Public Property Sender() As String
    Public Property Text() As String
    Public Property pic() As Image
End Class

PHP كود :

Dim bin As List(Of MailMessage) = New MailMessageList()

 Me.gridControl1.DataSource = bin

كود :

       For Each msg As MailMessage In bin

            If msg.IsRead Then

                '

            Else

                '

            End If

        Next

كود :

Private Function GetRowHandleByColumnValue(ByVal view As GridView, ByVal ColumnFieldName As String, ByVal value As Object) As Integer

  Dim result As Integer = GridControl.InvalidRowHandle

  Dim i As Integer

  For i = 0 To view.RowCount - 1

    If view.GetDataRow(i)(ColumnFieldName).Equals(value) Then

      Return i

    End If

  Next

  Return result

End Function



Private Sub GridViewAuthorization_ValidateRow(sender As Object, _

e As DevExpress.XtraGrid.Views.Base.ValidateRowEventArgs) Handles _

        GridView1.ValidateRow

        Dim view As GridView = TryCast(sender, GridView)

 

 Dim mcolMenuID As GridColumn = view.Columns(0)

 Dim getcolMenuID As String = Convert.ToString(view.GetRowCellValue(e.RowHandle, mcolMenuID))

 Dim rowHandle As Integer = GetRowHandleByColumnValue(GridViewMenu, "ID", view.GetRowCellValue(e.RowHandle, mcolMenuID))

                If rowHandle <> GridControl.InvalidRowHandle Then

                    view.FocusedColumn = view.Columns.ColumnByFieldName("ID")

                    view.FocusedRowHandle = rowHandle

                    view.ShowEditor()

                    obj.getMsgBox("5004", "", "", MsgBoxStyle.Information)

                    e.Valid = False

                End If

End Sub