重画系列:DataGridColumnStyle之测试代码

新建一测试程序(windows应用程序)需要添加以上类库的引用,然后添加一form1和datagrid1,声明

Public newstyle As TheFiveColumn.TheFiveColumn.FiveColumn_Style2

在窗体的Sub New 中添加

newstyle = New TheFiveColumn.TheFiveColumn.FiveColumn_Style2

 newstyle.MappingName = "Content"
        newstyle.HeaderText = "内容概要"
        newstyle.ReadOnly = True
        newstyle.Width = 344

'设置Style的图片显示属性

            Me.newstyle.SetPath_State_true = Application.StartupPath & "/images/open.gif"
            Me.newstyle.SetPath_State_false = Application.StartupPath & "/images/copen.gif"
            Me.newstyle.SetPath_State_unknow = Application.StartupPath & "/images/unknow.gif"
            Dim Path_Favorite_false As String = Application.StartupPath & "/images/FolderUnSel.gif"
            Me.newstyle.SetPath_Favorite_false = Path_Favorite_false
            Dim Path_Favorite_true As String = Application.StartupPath & "/images/FolderSel.gif"
            Me.newstyle.SetPath_Favorite_true = Path_Favorite_true
            Me.newstyle.SetPath_Analize_false = Application.StartupPath & "/images/detail.gif"
            Me.newstyle.SetPath_Analize_true = Application.StartupPath & "/images/detail.gif"

'声明tableStyle

        Dim tablestyle As New DataGridTableStyle
        tablestyle.MappingName = "LittleTable"
        tablestyle.RowHeadersVisible = False

'加入TableStyle

 tablestyle.GridColumnStyles.Add(newstyle)

'加入DataGridTableStyle

DataGrid1.TableStyles.Add(tablestyle)

'然后在form_load事件中帮定数据源:

dim mytable as new DataTable    

   mytable.Columns.Add("Content")

'添加数据

dim i as integer

for i=0 to 9   '10条数据

   dim row() as object=new String(){"关键字" & "$@" &  "网址" & "$@" & "正文"  & _

       "$@" & "1" & "$@" & "服务器" & "$@" & "修改时间" & "$@" & "内容摘要" & _

        "$@" & "1"}  '"$@"是分隔符，在列样式的paint方法中用来把某行数据分割

mytable.rows.add(row)

next

datagrid1.datasource=mytable

谢谢阅读，希望有什么意见能和我联系，ganenping@mainone.com.cn qq: 44460100