新建一测试程序(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
谢谢阅读，希望有什么意见能和我联系， [email protected] qq: 44460100