如何在SharePoint 2007中开发WebPart？
在使用Microsoft Office SharePoint Server 2007时，发现有一个自带的本周图片的WebPart,本以为拖入到网页后就可以在网页上实现幻灯片切换式的图片播放动画效果，试用后才发现在页面中显示指定图片库的一张图片，
并不会自动切换。只有点击图片后链接到一个图片浏览的页面，手动点击播发后才会出现幻灯片效果。觉得
这个WebPart做的不够好用，正好最近在学习SharePoint2007中的WebPart开发，就按照开始提到的想法DIY了
一个。自己感觉还可以，拿出来和大家SHARE一下，有需要的朋友可以down回去.
源代码下载地址：/Files/newwind521/WebImagePpt.rar。
代码中主要展示了两个内容：
1.如何在Render函数中Rend出控件和JS脚本。
2如何给WebPart添加自定义的属性。
代码内容如下：
1using System;
2using System.Runtime.InteropServices;
3using System.Web.UI;
4using System.Web.UI.WebControls.WebParts;
5using System.Xml.Serialization;
6using System.ComponentModel;
7using System.Web.UI.HtmlControls;
8
9using Microsoft.SharePoint;
10using Microsoft.SharePoint.WebControls;
11using Microsoft.SharePoint.WebPartPages;
12
13namespace WebImagePpt
14{
15
16 public class WebImagePpt : System.Web.UI.WebControls.WebParts.WebPart
17 {
18 public WebImagePpt()
19 {
20 this.ExportMode = WebPartExportMode.All;
21 }
22
23 private const string defaultPath = "DocLib1/Forms/AllItems.aspx";
24 private string path = defaultPath;
25
26
27
28
29
30
31
32 public string ImageListPath
33 {
34 get
35 {
36 return path;
37 }
38 set
39 {
40 path = value;
41 }
42 }
43
44 protected SPList list = null;
45 protected HtmlImage Img = null;
46 protected int ImageIndex = 0;
47 protected int ImageCount = 0;
48 protected string txtUrl = "";
49
50 protected override void Render(HtmlTextWriter writer)
51 {
52 GetAllImageUrl();
53
54 System.Text.StringBuilder sbHtml = new System.Text.StringBuilder();
55 sbHtml.AppendLine();
56 sbHtml.AppendLine("<script language='javascript'>");
57 sbHtml.AppendLine("var ImageIndex=0;");
58 sbHtml.AppendLine("var tranIndex=0;");
59 sbHtml.AppendLine("var type=0;");
60 sbHtml.AppendLine("var ImageCount=" + ImageCount + ";");
61 //sbHtml.AppendLine("window.alert(ImageCount);");
62 sbHtml.AppendLine("var url = new Array();");
63 sbHtml.AppendLine("var txtUrl ='" + txtUrl + "';");
64 sbHtml.AppendLine("if(txtUrl!=''){");
65 sbHtml.AppendLine(" url=txtUrl.split('|'); }");
66 //sbHtml.AppendLine("window.alert(txtUrl);");
67 sbHtml.AppendLine("function ChangeImage(){");
68 sbHtml.AppendLine("var Img= document.getElementById('" + Img.UniqueID.Replace('$', '_') + "');");
69 sbHtml.AppendLine("Img.style.filter='blendTrans(Duration=2)';");
70 sbHtml.AppendLine("Img.filters.apply();");
71 sbHtml.AppendLine("Img.src = url;");
72 sbHtml.AppendLine("Img.filters.play();");
73 sbHtml.AppendLine("ImageIndex++;");
74 sbHtml.AppendLine("if(ImageIndex==ImageCount){");
75 sbHtml.AppendLine("ImageIndex = 0;}}");
76 sbHtml.AppendLine("window.setInterval('ChangeImage()',5000);");
77 sbHtml.AppendLine("</script>");
78
79 writer.Write(sbHtml.ToString());
80 Img.RenderControl(writer);
81 }
82
83 protected override void CreateChildControls()
84 {
85 base.CreateChildControls();
86 Img = new HtmlImage();
87 Img.ID = "Img";
88 Img.Height = 500;
89 Img.Width = 600;
90 Controls.Add(Img);
91 }
92 public void GetAllImageUrl()
93 {
94 string strUrl = "";
95 SPSite site = SPControl.GetContextSite(this.Context);
96 SPWeb web = SPControl.GetContextWeb(this.Context);
97 list = web.GetList(ImageListPath);
98 ImageCount = list.Items.Count;
99 foreach (SPListItem item in list.Items)
100 {
101 strUrl += site.Url + "/" + item.Url + "|";
102 }
103 txtUrl = strUrl;
104 }
105 }
106
107}
108 可直接双击运行WebImagePpt\bin\Debug文件夹下的setup.bat文件进行部署，也可以VS2005中打开项目工程，
按F5直接运行就会部署到本地的SharePoint服务器上（需要安装了extend for wss3）。
这个WebPart的名称为WebIamgePpt,增加了一个图片库路径设置的自定义属性。
使用以及设置法效果图如下：
1.进入WebPart页面的编辑状态，并在WebPart区域点击添加Web部件:
2.展开所有部件，在杂项这一类中选择WebImagePpt，点击添加：
3.点击编辑按钮，选择修改共享Web部件菜单，打开属于设置面板：
4.设置图片库的路径（当然，这个图片库要提前建好，并添加了图片），点击确定：
5。保存后，路径正确的话，就可以看到效果了吧。
页:
[1]