Integrating Reporting Services into Custom Applications - Professional SQL Server 2005 Reporting Services - page 506

VB

' Helper class for format extensions.
Private Class Format
Private _name As String
Private _extension As String

Public Sub New(ByVal name As String, ByVal extension As String)
_name = name
extension = extension
End Sub

Public ReadOnly Property Name() As String
Get

Return _name
End Get
End Property

Public ReadOnly Property Extension() As String
Get

Return _extension
End Get
End Property
End Class

With these classes you can finish off your FormLoad event code. Add the few last lines of code to popu-
late your format combo box:

C#

private void frmMain_Load(object sender, System.EventArgs e)
{

rs.Credentials = System.Net.CredentialCache.DefaultCredentials;
//load the format values
Format[] formats = new Format[7];
formats[0] = new Format(“Excel”, “.xls”);
formats[1] = new Format(“HTML3.2”, “.html”);
formats[2] = new Format(“HTML4.0”, “.html”);
formats[3] = new Format(“XML”, “.xml”);
formats[4] = new Format(“CSV”, “.csv”);
formats[5] = new Format(“PDF”, “.pdf”);
formats[6] = new Format(“IMAGE”, “.tif”);

cboFormat.DataSource = formats;
cboFormat.DisplayMember = “Name”;
cboFormat.ValueMember = “Name”;

}

VB

Private Sub frmMain_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

_rs.Credentials = System.Net.CredentialCache.DefaultCredentials