在做一个webPart的时候需要以编程的方式显示一个DocumentLibary。其中用到了ListViewWebPart。用到了一些代码,分享一下。
Private view As SPView = Nothing
Private Web As SPWeb = Nothing
1.初始化(其中的_docLibID和_viewID是属性的私有字段,这个通过GetToolParts方法设置的WebPartToolPart已经被赋值)
Web = SPContext.Current.Site.OpenWeb(SPContext.Current.Web.ServerRelativeUrl)
Dim list As SPList = Nothing
Try
list = Web.Lists(_docLibID)
If list.BaseType = SPBaseType.DocumentLibrary Then
docLib = TryCast(list, SPDocumentLibrary)
End If
'Set view
If Me._viewID = Guid.Empty Then
view = docLib.DefaultView
Else
view = docLib.Views(Me._viewID)
End If
End Sub
2.如何创建一个ListViewWebPart 的ToolBar(是根据ListViewWebPart的数据源有关)
只需创建一个SPContex,然后传入view,docLib及其他的信息即可,然后把这个SPContext赋给toolBar的RenderContex即可。
Dim toolbar As New ViewToolBar
Dim context As SPContext = SPContext.GetContext(Me.Context, view.ID, docLib.ID, SPContext.Current.Web)
toolbar.RenderContext = context
Controls.Add(toolbar)
End Sub
3.如何创建ListViewWebPart
我把创建的ListViewWebPart放在了一个Panel上面,代码中有个disableToobar这个是移除ListViewWebPart中的ToolBar(看第4,当我们指定ViewGuid ,默认的模式是说含有ToolBar的,这将导致工具栏显示在webpart页)
重要的是给ListName和ViewGui赋值
Dim panel As New Panel
Dim wp As New ListViewWebPart
wp.ListName = docLib.ID.ToString("B").ToUpper()
wp.ViewGuid = view.ID.ToString("B").ToUpper
DisableToolbar(wp)
wp.GetDesignTimeHtml()
panel.Controls.Add(wp)
Return panel
End Function
4.如何移除ListViewWebPart中的ToolBar
主要是对SPView中的SPView.ToolbarType设置。在MSDN上是这样描述SPView.ToolbarType
Standard —The most common type of toolbar, which is used, for example, in the All Items views for most lists, and which corresponds to Full Toolbar in the Web Part tool pane.
FreeForm —Used in Default.aspx and Web Part Pages and corresponds to Summary Toolbar in the Web Part tool pane.
None —No toolbar is used in the view, corresponding to No Toolbar in the Web Part tool pane.
我们的目的就是设置ToolbarType是None
VB
' Extract view
Dim ViewProp As System.Reflection.PropertyInfo = lv.[GetType]().GetProperty("View", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
Dim spView As SPView = TryCast(ViewProp.GetValue(lv, Nothing), SPView)
Dim txt As String = spView.SchemaXml
Dim NodeProp As System.Reflection.PropertyInfo = spView.[GetType]().GetProperty("Node", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
Dim node As XmlNode = TryCast(NodeProp.GetValue(spView, Nothing), XmlNode)
Dim tBarNode As XmlNode = node.SelectSingleNode("Toolbar")
If tBarNode IsNot Nothing Then
Dim typeNode As XmlAttribute = tBarNode.Attributes("Type")
' make the contents empty so we realy remove the toolbar ..
' otherwise you might get a different type of toolbar popup when we have a
' Migrated site from 2.0
tBarNode.RemoveAll()
' re-add the type attribute
tBarNode.Attributes.Append(typeNode)
' finally set the toolbar to not show.
typeNode.Value = "None"
End If
'This forces a refresh of the views internal xml or the node's cild nodes are not populated
Web.AllowUnsafeUpdates = True
spView.Update()
Web.AllowUnsafeUpdates = False
End Sub
C#
{
// Extract view
System.Reflection.PropertyInfo ViewProp = lv.GetType().GetProperty("View",
System.Reflection.BindingFlags.NonPublic | System.Reflection.BindingFlags.Instance);
SPView spView = ViewProp.GetValue(lv, null) as SPView;
string txt = spView.SchemaXml;
System.Reflection.PropertyInfo NodeProp = spView.GetType().GetProperty("Node",
System.Reflection.BindingFlags.NonPublic | System.Reflection.BindingFlags.Instance);
XmlNode node = NodeProp.GetValue(spView, null) as XmlNode;
XmlNode tBarNode = node.SelectSingleNode("Toolbar");
if (tBarNode != null)
{
XmlAttribute typeNode = tBarNode.Attributes["Type"];
// make the contents empty so we realy remove the toolbar ..
// otherwise you might get a different type of toolbar popup when we have a
// Migrated site from 2.0
tBarNode.RemoveAll();
// re-add the type attribute
tBarNode.Attributes.Append(typeNode);
// finally set the toolbar to not show.
typeNode.Value = "None";
}
//This forces a refresh of the views internal xml or the node's cild nodes are not populated
spView.Update();
}
5.参考资料
Create custom ListViewWebPart
http://www.sharepointkings.com/2008/08/create-custom-listviewwebpart.html
d
Update ListViewWebPart to Remove or Hide Toolbar ToolbarType="None"
http://social.msdn.microsoft.com/Forums/en-US/sharepointdevelopment/thread/96aac2dd-29fc-4e63-8730-9d1adc01b826/