Visual Basic em Português

A Microsoft lançou uma iniciativa para dar a conhecer o perfil dos programadores de VB. Existem milhões de programadores de VB e cada um tem a sua história, os seus projectos, as suas preferências.

Nesta página, http://imavb.net/, existem além de diversas historias, alguns vídeos dos mais prestigiados MVP’s, gravado no ultimo encontro realizado.

Contem as vossas histórias e participem nesta iniciativa!


A minha história, como não podia deixar de ser, também já está disponível e podem ver aqui: Jorge Paulino, Visual Basic MVP

Os melhores conteúdos de {You Shape} IT MSDN estão agora disponíveis num eBook gratuito. O eBook tem 17 artigos escritos por programadores para programadores e comics.  Os artigos foram escritos por MVP’s e Regional Director’s.

Índice do Livro

• Working with Brownfield Code
• Beyond C# and VB
• Remaining Valuable to Employers
• All I Wanted Was My
• Efficiency
• Getting Started with Continuous Integration
• On Strike at the Software Factory
• C# Features You Should Be Using
• Accelerate Your Coding with Code Snippets
• Is Silverlight 2 Ready for Business Applications?
• Innovate with Silverlight 2
• Real World WPF: Rich UI + HD
• Hidden Talents
• Creating Useful Installers with Custom Actions
• Banking with XML
• Sending Email

O livro está disponível para download em http://devshaped.com/book

Exportar os relatórios para determinado formato, é uma opção muito prática, para simplesmente guardar um relatório num ficheiro ou, por exemplo, enviar como anexo num email. O controlo ReportViewer permite visualizar, mas também exportar, os ficheiros *.rdlc e *.rdl, quer seja uma aplicações WinForms ou ASP.NET.

No entanto é ainda mais prático, especialmente para automatizar processos, gerar esses ficheiros dinamicamente, sem ser necessário a utilização do ReportViewer.

Quando é utilizado em modo local (LocalReport) existem alguns tipos de formatos que se podem utilizar para exportar: Microsoft Excel, PDF ou como imagem.

Para exportar um relatório é necessário apenas fazer o Render() de um LocalReport para um array de bytes, e depois usar um FileStream para escrever o ficheiro final.

Pode-se usar uma classe como esta:

Public Class ReportUtils

    Enum rptFormat
        Excel
        PDF
        Image
    End Enum

   '''<summary>
   ''' Exporta um LocalReport para um formato definido
    '''</summary>
   '''<param name="report">LocalReport</param>
   '''<param name="output">Formato final</param>
   '''<param name="filePath">Caminho + Nome do ficheiro</param>
   '''<remarks></remarks>
   Public Sub Export(ByVal report As LocalReport, ByVal output As rptFormat, ByVal filePath As String)

        Dim warnings As Warning() = Nothing
        Dim streamids As String() = Nothing
        Dim mimeType As String = Nothing
        Dim encoding As String = Nothing
        Dim extension As String = Nothing

        Dim bytes() As Byte = report.Render(output.ToString, Nothing, _
                                mimeType, encoding, extension, streamids, warnings)

        Using fs As New IO.FileStream(filePath, IO.FileMode.Create)
            fs.Write(bytes, 0, bytes.Length)
            fs.Close()
        End Using
        bytes = Nothing

    End Sub

End Class

Depois, para utilizar a classe, criando o ficheiro no formato desejado e executando-o:

Dim rpt As New LocalReport
rpt.ReportPath = Application.StartupPath & "\..\..\rptProducts.rdlc"

' ---------------------------------------------------------
' Definir DataSource, Parameters, etc, para o relatório
' ---------------------------------------------------------

Dim fileName As String = "d:\teste.pdf"

Dim clsReport As New ReportUtils
clsReport.Export(rpt, ReportUtils.rptFormat.PDF, fileName)

Process.Start(fileName)

Como podem ver neste pequeno exemplo, é bastante simples e fácil de utilizar.

Hoje recebi um dos melhores emails, e também uma das melhores noticias, dos últimos tempos: Dear Jorge Paulino, Congratulations! We are pleased to present you with the 2009 Microsoft® MVP Award! This award is given to exceptional technical community leaders who actively share their high quality, real world expertise with others. We appreciate your outstanding contributions in Visual Basic technical communities during the past year.

The Microsoft MVP Award provides us the unique opportunity to celebrate and honor your significant contributions and say "Thank you for your technical leadership."

Toby Richards
General Manager
Community Support Services

É para mim, sem dúvida, uma grande honra e orgulho, receber da Microsoft uma distinção do programa MVP.

Farei para o merecer e espero continuar a ajudar a comunidade, em especial em Visual Basic.NET.

Obrigado a todos!