Program,Life,Society.....

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

在做一个webPart的时候需要以编程的方式显示一个DocumentLibary。其中用到了ListViewWebPart。用到了一些代码,分享一下。

        Private docLib As SPDocumentLibrary = Nothing
        
Private view As SPView = Nothing
        
Private Web As SPWeb = Nothing

 

1.初始化(其中的_docLibID和_viewID是属性的私有字段,这个通过GetToolParts方法设置的WebPartToolPart已经被赋值)

        Private Sub InitConfiguration()

            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即可。

       Private Sub AddViewToolBar()
            
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赋值

      Private Function renderExplorerView() As Panel
            
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

 Private Sub DisableToolbar(ByVal lv As ListViewWebPart)
            
' 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#

private static void DisableToolbar(ListViewWebPart lv)
{
 
//  Extract view 
   System.Reflection.PropertyInfo ViewProp = lv.GetType().GetProperty("View"
    System.Reflection.BindingFlags.NonPublic 
| System.Reflection.BindingFlags.Instance);

   SPView spView 
= ViewProp.GetValue(lv, nullas 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, nullas 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/

posted on 2008-10-28 15:44  vuejs3  阅读(2646)  评论(1编辑  收藏  举报