datagridtablestyles.vb

一个管理系统

Public NotInheritable Class MainFormDgStyle

    Public Const TableName As String = "Tasks"

    Public Shared Function GetStyle() As DataGridTableStyle

        Dim m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())

        'creates the table style that's used for the datagrid
        Dim dgTableStyle As New DataGridTableStyle()
        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn(String.Empty, m_ResourceManager.GetString("GridColHeader_ID"), "TaskID", CType(m_ResourceManager.GetString("GridColHeader_ID_Width"), Integer)))
        dgTableStyle.GridColumnStyles.Add(New DataGridPriorityColumn(m_ResourceManager.GetString("GridColHeader_Priority"), "PriorityText", CType(m_ResourceManager.GetString("GridColHeader_Priority_Width"), Integer)))
        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn(String.Empty, m_ResourceManager.GetString("GridColHeader_AssignedTo"), "AssignedToText", CType(m_ResourceManager.GetString("GridColHeader_AssignedTo_Width"), Integer)))
        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn(String.Empty, m_ResourceManager.GetString("GridColHeader_Summary"), "TaskSummary", CType(m_ResourceManager.GetString("GridColHeader_Summary_Width"), Integer)))
        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn(String.Empty, m_ResourceManager.GetString("GridColHeader_Status"), "StatusText", CType(m_ResourceManager.GetString("GridColHeader_Status_Width"), Integer)))

        dgTableStyle.GridColumnStyles.Add(New DataGridProgressBarColumn(m_ResourceManager.GetString("GridColHeader_Progress"), "Progress", CType(m_ResourceManager.GetString("GridColHeader_Progress_Width"), Integer)))

        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn("d", m_ResourceManager.GetString("GridColHeader_DateDue"), "DateDue", CType(m_ResourceManager.GetString("GridColHeader_DateDue_Width"), Integer), True))

        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn("d", m_ResourceManager.GetString("GridColHeader_DateCreated"), "DateCreated", CType(m_ResourceManager.GetString("GridColHeader_DateCreated_Width"), Integer)))

        dgTableStyle.GridColumnStyles.Add(New DataGridTextBoxColumn("d", m_ResourceManager.GetString("GridColHeader_LastChanged"), "DateModified", CType(m_ResourceManager.GetString("GridColHeader_LastChanged_Width"), Integer)))

        dgTableStyle.HeaderForeColor = System.Drawing.SystemColors.ControlText
        dgTableStyle.MappingName = TableName
        dgTableStyle.RowHeadersVisible = False
        dgTableStyle.AlternatingBackColor = System.Drawing.Color.LemonChiffon

        Return dgTableStyle
    End Function
End Class