Microsoft SharePoint. Building Office 2007 Solutions in VB 2005 ...

CHAPTER 10 ■ SHAREPOINT WEB PARTS 401Protected Overloads Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)txtProperty.RenderControl(writer)writer.Write("")lblMessages.RenderControl(writer)End SubPublic Overloads Overrides Function ApplyChanges() As BooleanTryDim expression As Regex = _New Regex("\(\d\d\d\)\s\d\d\d-\d\d\d\d")Dim match As Match = expression.Match(txtProperty.Text)If match.Success = True ThenCType(WebPartToEdit, PhoneLabel).Phone = _txtProperty.TextlblMessages.Text = ""ElseCType(WebPartToEdit, PhoneLabel).Phone = _"Invalid phone number"End IfCatch x As ExceptionlblMessages.Text += x.MessageEnd TryReturn TrueEnd FunctionPublic Overloads Overrides Sub SyncChanges()TrytxtProperty.Text = CType(WebPartToEdit, PhoneLabel).PhoneCatchEnd TryEnd SubEnd ClassUsing an Editor PartOnce you have created a custom editor part, you must associate it with a web part. This isaccomplished by overriding the CreateEditorParts method of the web part. When theCreateEditorParts method is called, you can create instances of any editor parts you wantto load into the property pane. After the editor parts are created, you must add them to anew EditorPartCollection and return the collection. Listing 10-16 shows a complete webpart for displaying a phone number with a custom format.