如何在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    [Guid("5b06ba7a-37b2-4e1e-9849-79472e25af83")]
 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        [Personalizable(true)]
 27        [WebBrowsable(true)]
 28        [Category("图片库")]
 29        [WebDisplayName("图片库路径")]
 30        [DefaultValue(defaultPath)]
 31        [WebDescription("Set image source url of ImagePpt in Current Site")]
 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[0].apply();");
 71            sbHtml.AppendLine("Img.src = url[ImageIndex];");
 72            sbHtml.AppendLine("Img.filters[0].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。保存后，路径正确的话，就可以看到效果了吧。