ToolPart.ApplyChanges 方法
当用户单击OK或在工具窗格中的Apply按钮时调用。
命名空间： Microsoft.SharePoint.WebPartPages
程序集： Microsoft.SharePoint（位于 Microsoft.SharePoint.dll 中）
语法
声明
Public Overridable Sub ApplyChanges
用法
Dim instance As ToolPart
instance.ApplyChanges()
public virtual void ApplyChanges()
示例
下面的示例演示使用ApplyChanges方法，应用新值 （在工具窗格中的文本框中的用户输入） 到目标 Web 部件。
public class SimpleToolPart : ToolPart
{
TextBox tb;
bool changed=false;
WebPart WebPartReference;
protected override void CreateChildControls()
{
WebPartReference = (WebPart)ParentToolPane.SelectedWebPart;
tb=new TextBox();
tb.Text = WebPartReference.Title;
tb.TextChanged+=new EventHandler(tbChanged);
Controls.Add(tb);
}
protected override void RenderToolPart(HtmlTextWriter w)
{
this.RenderChildren(w);
}
private void tbChanged(object sender, System.EventArgs e)
{
changed=true;
}
public override void ApplyChanges()
{
if(changed)
WebPartReference.Title=tb.Text;
}
public override void SyncChanges()
{
tb.Text=WebPartReference.Title;
}
}
Public Class SimpleToolPart
Inherits ToolPart
Private tb As TextBox
Private changed As Boolean=False
Private WebPartReference As WebPart
Protected Overrides Sub CreateChildControls()
WebPartReference = CType(ParentToolPane.SelectedWebPart, WebPart)
tb = New TextBox()
tb.Text = WebPartReference.Title
AddHandler tb.TextChanged, AddressOf tbChanged
Controls.Add(tb)
End Sub
Protected Overrides Sub RenderToolPart(ByVal w As HtmlTextWriter)
Me.RenderChildren(w)
End Sub
Private Sub tbChanged(ByVal sender As Object, ByVal e As System.EventArgs)
changed=True
End Sub
Public Overrides Sub ApplyChanges()
If changed Then
WebPartReference.Title=tb.Text
End If
End Sub
Public Overrides Sub SyncChanges()
tb.Text=WebPartReference.Title
End Sub
End Class