Passo a passo: Crie uma página de aplicativo do SharePoint

Uma página de aplicativo é uma forma especializada de uma página ASP.NET. As páginas do aplicativo contêm conteúdo mesclado com uma página mestra do SharePoint. Para mais informações, consulte Criar páginas de aplicativo para o SharePoint.

Este passo a passo mostra como criar uma página de aplicativo e depurá-la usando um site local do SharePoint. Esta página mostra todos os itens que cada usuário criou ou modificou em todos os sites no farm de servidores.

Este passo a passo ilustra as seguintes tarefas:

• Criando um Projeto do SharePoint
• Adicionando uma página de aplicativo ao projeto do SharePoint.
• Adicionando controles ASP.NET à página do aplicativo.
• Adicionando código por trás dos controles de ASP.NET.
• Testando a Página do Aplicativo

Observação

Seu computador pode mostrar diferentes nomes ou locais para alguns dos elementos de interface do usuário do Visual Studio nas instruções a seguir. A edição do Visual Studio que você possui e as configurações que você usa determinam esses elementos. Para obter mais informações, confira Personalizar o IDE do Visual Studio.

Pré-requisitos

• Edições com suporte do Windows e do SharePoint.

Criar um projeto do SharePoint

Primeiro, crie um projeto vazio do SharePoint. Depois, adicione um item da Página do Aplicativo a este projeto.

1. Inicie o Visual Studio.

2. Abra a caixa de diálogo Novo Projeto, expanda o nó do Office/SharePoint no idioma que você deseja usar e escolha o nó Soluções do SharePoint.

3. No painel Modelos Instalados do Visual Studio, escolha o modelo do SharePoint 2010 – Projeto Vazio. Nomeie o projeto MySharePointProjecte clique em OK.

   O Assistente de Personalização do SharePoint aparece. Esse assistente permite selecionar o site que você usará para depurar o projeto e o nível de confiança da solução.

4. Escolha o botão Implantar como uma solução de farm e clique em botão Concluir para aceitar o site local padrão do SharePoint.

Criar uma página de aplicativo

Para criar uma página de aplicativo, adicione um item da Página do Aplicativo ao projeto.

1. No Gerenciador de Soluções, escolha o projeto MySharePointProject.

2. Na barra de menus, escolha Projeto>Adicionar Novo Item.

3. Na caixa de diálogo Adicionar Novo Item, escolha a Página de Aplicativo (modelo Somente Solução de Farm.

4. Nomeie a página SearchItemse clique em Adicionar.

   O Designer do Desenvolvedor da Web visual exibe a página do aplicativo no modo de exibição Origem, onde você pode ver os elementos HTML da página. O designer exibe a marcação de vários Content controles. Cada controle é mapeado para um ContentPlaceHolder controle definido na página mestra do aplicativo padrão.

Para projetar o modelo da página do aplicativo

O item Página do Aplicativo permite que você use um designer para adicionar controles ASP.NET à página do aplicativo. Esse designer é o mesmo usado no Visual Web Developer. Adicione um rótulo, uma lista de botões de opção e uma tabela à exibição de Origem do designer e defina as propriedades da mesma forma que faria ao projetar qualquer página de ASP.NET padrão.

1. Na barra de menus, escolha Exibir>Caixa de Ferramentas.

2. No nó Standard da Caixa de Ferramentas, execute uma das seguintes etapas:

   • Abra o menu de atalho do item Rótulo, escolha Copiar, abra o menu de atalho da linha no controle de conteúdo PlaceHolderMain no designer e escolha Colar.

   • Arraste o item Rótuloda Caixa de Ferramentas para o corpo do controle de conteúdo PlaceHolderMain.

3. Repita a etapa anterior para adicionar um item DropDownList e um item de Tabela ao controle de conteúdo PlaceHolderMain.

4. No designer, altere o valor do Text atributo do controle de rótulo para Mostrar Todos os Itens.

5. No designer, substitua o <asp:DropDownList> elemento pelo XML a seguir.

   <asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="true"
    OnSelectedIndexChanged="DropDownList1_SelectedIndexChanged">
       <asp:ListItem Text="Created by me" Value="Author"></asp:ListItem>
       <asp:ListItem Text="Modified by me" Value="Editor"></asp:ListItem>
   </asp:DropDownList>
   

Para tratar os eventos de controles na página

Manipule os controles em uma página de aplicativo da mesma forma que faria com qualquer ASP.NET página. Neste procedimento, você manipulará o SelectedIndexChanged evento da lista suspensa.

1. No menu Exibir, escolha Código.

   O arquivo de código da página do aplicativo é aberto no Editor de Código.

2. Adicione o método a seguir à classe SearchItems. Esse código manipula o SelectedIndexChanged eventoDropDownList usando um método que você criará posteriormente neste passo a passo.

   C#

   protected void DropDownList1_SelectedIndexChanged(object sender, EventArgs e)
   {
       SPSecurity.RunWithElevatedPrivileges(GetItems);
      
   }
   

   VB

    Protected Sub DropDownList1_SelectedIndexChanged _
   (ByVal sender As Object, ByVal e As EventArgs) _
   Handles DropDownList1.SelectedIndexChanged
        SPSecurity.RunWithElevatedPrivileges(AddressOf GetItems)
    End Sub
   

3. Adicione as instruções a seguir à parte superior do arquivo de código da página do aplicativo.

   C#

   using System.Web.UI.WebControls;
   using Microsoft.SharePoint.Administration;
   using System.Collections;
   

   VB

   Imports System.Web.UI.WebControls
   Imports Microsoft.SharePoint.Administration
   Imports System.Collections
   

4. Adicione o método a seguir à classe SearchItems. Esse método itera em todos os sites no farm de servidores e pesquisa itens criados ou modificados pelo usuário atual.

   C#

   private void GetItems()
   {
        SPFieldUserValue currentUser = new SPFieldUserValue
        (this.Web, this.Web.CurrentUser.ID, this.Web.CurrentUser.Name);
   
       ArrayList resultsList = new ArrayList();
   
       SPFarm thisFarm = SPFarm.Local;
       SPWebService service = thisFarm.Services.GetValue<SPWebService>("");
   
       foreach (SPWebApplication webApp in service.WebApplications)
       {
           foreach (SPSite siteCollection in webApp.Sites)
           {
               foreach (SPWeb web in siteCollection.AllWebs)
               {
                   SPListCollection lists = web.Lists;
                   foreach (SPList list in lists)
                   {
                       try
                       {
                           foreach (SPListItem item in list.Items)
                           {
                               if (item[DropDownList1.SelectedValue].ToString() ==
                                   currentUser.ToString())
                               {
                                   resultsList.Add(item);
                               }
                           }
                       }
                       catch (Exception)
                       {
                           // An error with the list. Move onto the next list.
                       }
                   }
               }
           }
       }
       CreateResultsTable(resultsList);
   
   }
   

   VB

   Private Sub GetItems()
       Dim CurrentUser As New SPFieldUserValue _
           (Me.Web, Me.Web.CurrentUser.ID, Me.Web.CurrentUser.Name)
   
       Dim ResultsList As New ArrayList()
   
       Dim ThisFarm As SPFarm = SPFarm.Local
       Dim Service As SPWebService = _
           ThisFarm.Services.GetValue(Of SPWebService)("")
   
       Dim WebApp As SPWebApplication
       For Each WebApp In Service.WebApplications
           Dim SiteCollection As SPSite
           For Each SiteCollection In WebApp.Sites
               Dim Web As SPWeb
               For Each Web In SiteCollection.AllWebs
                   Dim Lists As SPListCollection = Web.Lists
                   Dim List As SPList
                   For Each List In Lists
                       Dim Item As SPListItem
                       Try
                           For Each Item In List.Items
                               If Item(DropDownList1.SelectedValue).ToString() = _
                                   CurrentUser.ToString() Then
                                   ResultsList.Add(Item)
                               End If
                           Next Item
                       Catch exception As Exception
                           'Error in list. Move on to the next list.
                       End Try
                   Next List
               Next Web
           Next SiteCollection
       Next WebApp
       CreateResultsTable(ResultsList)
   End Sub
   

5. Adicione o método a seguir à classe SearchItems. Esse método exibe itens criados ou modificados pelo usuário atual na tabela.

   C#

   private void CreateResultsTable(ArrayList resultsList)
   {
       string currentList = "";
       string currentSite = "";
       Table1.Rows.Clear();
   
       foreach (SPListItem item in resultsList)
       {
           if (item.ParentList.ParentWeb.Title != currentSite)
           {
               currentSite = item.ParentList.ParentWeb.Title;
   
               TableCell newSiteCell = new TableCell();
               newSiteCell.Text = currentSite;
   
               TableRow newSiteRow = new TableRow();
               newSiteRow.Cells.Add(newSiteCell);
               newSiteRow.Font.Bold = true;
               newSiteRow.Font.Size = FontUnit.Larger;
               newSiteRow.Font.Underline = true;
   
               Table1.Rows.Add(newSiteRow);
           }
           if (item.ParentList.Title != currentList)
           {
               currentList = item.ParentList.Title;
               TableCell newListCell = new TableCell();
               newListCell.Text = currentList;
   
               TableRow newListRow = new TableRow();
               newListRow.Cells.Add(newListCell);
               newListRow.Font.Bold = true;
   
               Table1.Rows.Add(newListRow);
   
               TableCell itemHeading = new TableCell();
               itemHeading.Text = "Item";
               itemHeading.Font.Italic = true;
   
               TableCell createdHeading = new TableCell();
               createdHeading.Text = "Created";
               createdHeading.Font.Italic = true;
   
               TableCell modifiedHeading = new TableCell();
               modifiedHeading.Text = "Last Modified";
               modifiedHeading.Font.Italic = true;
   
               TableRow headingRow = new TableRow();
               headingRow.Cells.Add(itemHeading);
               headingRow.Cells.Add(createdHeading);
               headingRow.Cells.Add(modifiedHeading);
   
               Table1.Rows.Add(headingRow);
           }
   
           TableCell itemName = new TableCell();
           HyperLink itemLink = new HyperLink();
           try
           {
               itemLink.NavigateUrl = item.ParentList.ParentWeb.Url + "/" +
                   item.ParentList.Forms[PAGETYPE.PAGE_DISPLAYFORM].Url +
                   "?ID=" + item.ID;
           }
           catch (Exception)
           {
               // Some items might not have a form page. Ignore the exception.
           }
           itemLink.Text = item.DisplayName;
           itemName.Controls.Add(itemLink);
   
           TableCell created = new TableCell();
           created.Text = item["Created"].ToString();
   
           TableCell modified = new TableCell();
           modified.Text = item["Modified"].ToString();
   
           TableRow dataRow = new TableRow();
           dataRow.Cells.Add(itemName);
           dataRow.Cells.Add(created);
           dataRow.Cells.Add(modified);
   
           Table1.Rows.Add(dataRow);
       }
   }
   

   VB

   Private Sub CreateResultsTable(ByVal ResultsList As ArrayList)
       Dim CurrentList As String = ""
       Dim CurrentSite As String = ""
       Table1.Rows.Clear()
   
       Dim Item As SPListItem
       For Each Item In ResultsList
           If Item.ParentList.ParentWeb.Title <> CurrentSite Then
               CurrentSite = Item.ParentList.ParentWeb.Title
   
               Dim NewSiteCell As New TableCell()
               NewSiteCell.Text = CurrentSite
   
               Dim NewSiteRow As New TableRow()
               With NewSiteRow
                   .Cells.Add(NewSiteCell)
                   .Font.Bold = True
                   .Font.Size = FontUnit.Larger
                   .Font.Underline = True
               End With
               Table1.Rows.Add(NewSiteRow)
   
           End If
   
           If Item.ParentList.Title <> CurrentList Then
               CurrentList = Item.ParentList.Title
               Dim NewListCell As New TableCell()
               NewListCell.Text = CurrentList
   
               Dim NewListRow As New TableRow()
               With NewListRow
                   .Cells.Add(NewListCell)
                   .Font.Bold = True
               End With
               Table1.Rows.Add(NewListRow)
   
               Dim ItemHeading As New TableCell()
               With ItemHeading
                   .Text = "Item"
                   .Font.Italic = True
               End With
   
               Dim CreatedHeading As New TableCell()
               With CreatedHeading
                   .Text = "Created"
                   .Font.Italic = True
               End With
   
   
               Dim ModifiedHeading As New TableCell()
               With ModifiedHeading
                   .Text = "Last Modified"
                   .Font.Italic = True
               End With
   
               Dim HeadingRow As New TableRow()
               HeadingRow.Cells.Add(ItemHeading)
               HeadingRow.Cells.Add(CreatedHeading)
               HeadingRow.Cells.Add(ModifiedHeading)
   
               Table1.Rows.Add(HeadingRow)
           End If
   
           Dim ItemName As New TableCell()
           Dim ItemLink As New HyperLink()
           Try
               ItemLink.NavigateUrl = Item.ParentList.ParentWeb.Url & _
                   "/" & Item.ParentList.Forms(PAGETYPE.PAGE_DISPLAYFORM).Url & _
                   "?ID=" & Item.ID
           Catch exception As Exception
               ' Some items might not have a form page. Ignore the exception.
           End Try
           ItemLink.Text = Item.DisplayName
           ItemName.Controls.Add(ItemLink)
   
           Dim Created As New TableCell()
           Created.Text = Item("Created").ToString()
   
           Dim Modified As New TableCell()
           Modified.Text = Item("Modified").ToString()
   
           Dim DataRow As New TableRow()
           DataRow.Cells.Add(ItemName)
           DataRow.Cells.Add(Created)
           DataRow.Cells.Add(Modified)
   
           Table1.Rows.Add(DataRow)
       Next Item
   End Sub
   

Testar a página do aplicativo

Quando você executa o projeto, o site do SharePoint é aberto e a página do aplicativo é exibida.

1. No Gerenciador de Soluções, abra o menu de atalho da página do aplicativo e escolha Definir como Item de Inicialização.

2. Pressione a tecla F5.

   O site do SharePoint é aberto.

3. a página do aplicativo, escolha a opção Modificado por mim.

   A página do aplicativo atualiza e exibe todos os itens que você modificou em todos os sites no farm de servidores.

4. Na página do aplicativo, escolha Criado por mim na lista.

   A página do aplicativo atualiza e exibe todos os itens que você criou em todos os sites no farm de servidores.

Próximas etapas

Para obter mais informações sobre páginas de aplicativos do SharePoint, consulte Criar páginas de aplicativo para o SharePoint.

Você pode saber mais sobre como projetar o conteúdo da página do SharePoint usando o Visual Web Designer a partir destes tópicos:

• Criar Web Parts para o SharePoint.

• Crie controles reutilizáveis para Web Parts ou páginas de aplicativos.

Conteúdo relacionado

• Como criar uma página de aplicativo
• Tipo de página Application _layouts