SPMobileBaseFieldControl.CreateControlForEdit - Méthode
Crée un contrôle pour restituer le champ sur un formulaire d'élément de modification.
Espace de noms : Microsoft.SharePoint.Mobile.WebControls
Assembly : Microsoft.SharePoint (dans Microsoft.SharePoint.dll)
Syntaxe
'Déclaration
Protected Overridable Function CreateControlForEdit As Control
'Utilisation
Dim returnValue As Control
returnValue = Me.CreateControlForEdit()
protected virtual Control CreateControlForEdit()
Valeur renvoyée
Type : System.Web.UI.Control
MobileControl qui rend le champ sur un formulaire de modification.
Remarques
L'implémentation par défaut appelle CreateControlForDisplay.
Exemples
L'exemple suivant montre une substitution de CreateControlForEdit qui ajoute un « retard » dans le titre de l'élément sur un formulaire d'élément de modification. Pour obtenir l'exemple complet, consultez Walkthrough: Creating a Custom Field Rendering Control for Mobile Pages.
protected override MobileControl CreateControlForEdit()
{
MobileControl myEditControl = null;
if (this.Item != null && this.Field != null)
{
if (this.NeedEllipsisRendering)
{
myEditControl = this.CreateControlForDisplay();
}
else
{
if (!this.Page.IsPostBack)
{
string strEdit = this.Field.GetFieldValueForEdit(this.ItemFieldValue);
string overDue = "OVERDUE: ";
SPListItem item = this.ListItem;
if (item["Expires"] != null)
{
System.DateTime date = (DateTime)item["Expires"];
if (date.CompareTo(System.DateTime.Today) < 0)
{
this.TextBoxControl.Text = overDue + strEdit;
}
else
{
this.TextBoxControl.Text = strEdit;
}
}
}
myEditControl = this.TextBoxControl;
}
}
return myEditControl;
}
Protected Overrides Function CreateControlForEdit() As MobileControl
Dim myEditControl As MobileControl = Nothing
If Me.Item IsNot Nothing AndAlso Me.Field IsNot Nothing Then
If Me.NeedEllipsisRendering Then
myEditControl = Me.CreateControlForDisplay()
Else
If Not Me.Page.IsPostBack Then
Dim strEdit As String = Me.Field.GetFieldValueForEdit(Me.ItemFieldValue)
Dim overDue As String = "OVERDUE: "
Dim item As SPListItem = Me.ListItem
If item("Expires") IsNot Nothing Then
Dim [date] As Date = CDate(item("Expires"))
If [date].CompareTo(Date.Today) < 0 Then
Me.TextBoxControl.Text = overDue & strEdit
Else
Me.TextBoxControl.Text = strEdit
End If
End If
End If
myEditControl = Me.TextBoxControl
End If
End If
Return myEditControl
End Function
Voir aussi
Référence
SPMobileBaseFieldControl classe