| This sample page shows the output of the code generation engines for binding a business object to form control properties using manual assignment. To initialize the data source (business object) properties to the form or usercontrol call the InitializeDataSource method with a business object instance. The form designer generation engine created a Save method to deserializes a business object from the form. The class has a property to access the datasource named EmployeesRowData. The generated class is based on the northwind employee table. In this sample all datasource properties are assigned to a TextBox or DateTimePicker. |
|
' <autogenerated> ' This code was generated by form.suite4.net. ' ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </autogenerated> '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System Namespace suite4.net Public Class ScreenShots Inherits System.Web.UI.UserControl Private Constant COLOR As String = "#ffffff" Private Constant BACK_COLOR_ON As String = "#ffffff" Private Constant BACK_COLOR_OFF As String = "#ffffff" Private Constant BORDER_STYLE_ON As String = "solid" Private Constant BORDER_STYLE_OFF As String = "none" Private Constant BORDER_COLOR_OFF As String = "#ffffff" Private Constant BORDER_COLOR_ON As String = "#000000" Private Constant BORDER_WIDTH As String = "1px" Private Constant PADDING_WIDTH As String = "2px" Private _IsInitialized As Boolean Protected txtEmployeeID As System.Web.UI.WebControls.TextBox Protected lblEmployeeID As System.Web.UI.WebControls.Label Protected tabTabControl1_Table As System.Web.UI.HtmlControls.HtmlTable Protected tabTabControl1_TableRow As System.Web.UI.HtmlControls.HtmlTableRow Protected Name_Address_Content As System.Web.UI.HtmlControls.HtmlGenericControl Protected txtTitleOfCourtesy As System.Web.UI.WebControls.TextBox Protected lblTitleOfCourtesy As System.Web.UI.WebControls.Label Protected txtTitle As System.Web.UI.WebControls.TextBox Protected lblTitle As System.Web.UI.WebControls.Label Protected txtCountry As System.Web.UI.WebControls.TextBox Protected lblCountry As System.Web.UI.WebControls.Label Protected txtRegion As System.Web.UI.WebControls.TextBox Protected lblRegion As System.Web.UI.WebControls.Label Protected txtPostalCode As System.Web.UI.WebControls.TextBox Protected lblPostalCode As System.Web.UI.WebControls.Label Protected txtCity As System.Web.UI.WebControls.TextBox Protected lblCity As System.Web.UI.WebControls.Label Protected txtStreet As System.Web.UI.WebControls.TextBox Protected lblStreet As System.Web.UI.WebControls.Label Protected Address As System.Web.UI.HtmlControls.HtmlGenericControl Protected txtFirstName As System.Web.UI.WebControls.TextBox Protected lblFirstName As System.Web.UI.WebControls.Label Protected txtLastName As System.Web.UI.WebControls.TextBox Protected lblLastName As System.Web.UI.WebControls.Label Protected Name_Address_Header As System.Web.UI.HtmlControls.HtmlTableCell Protected Communication_Content As System.Web.UI.HtmlControls.HtmlGenericControl Protected txtExtension As System.Web.UI.WebControls.TextBox Protected txtHomeEmail As System.Web.UI.WebControls.TextBox Protected txtHomePhone_ As System.Web.UI.WebControls.TextBox Protected lblpriv_Email As System.Web.UI.WebControls.Label Protected lblpriv_Phone_ As System.Web.UI.WebControls.Label Protected txtWorkEmail As System.Web.UI.WebControls.TextBox Protected txtWorkFax_ As System.Web.UI.WebControls.TextBox Protected lblWorkEmail As System.Web.UI.WebControls.Label Protected lblWorkFax_ As System.Web.UI.WebControls.Label Protected txtWorkPhone_ As System.Web.UI.WebControls.TextBox Protected lblWorkPhone_ As System.Web.UI.WebControls.Label Protected lblExt_ As System.Web.UI.WebControls.Label Protected Communication_Header As System.Web.UI.HtmlControls.HtmlTableCell Protected Security_Content As System.Web.UI.HtmlControls.HtmlGenericControl Protected txtNotes As System.Web.UI.WebControls.TextBox Protected txtReportsTo As System.Web.UI.WebControls.TextBox Protected lblNotes As System.Web.UI.WebControls.Label Protected lblReportsTo As System.Web.UI.WebControls.Label Protected lblHireDate As System.Web.UI.WebControls.Label Protected lblBirthDate As System.Web.UI.WebControls.Label Protected Security_Header As System.Web.UI.HtmlControls.HtmlTableCell Protected Picture_Content As System.Web.UI.HtmlControls.HtmlGenericControl Protected picPictureBox1 As System.Web.UI.WebControls.Image Protected txtPhotoPath As System.Web.UI.WebControls.TextBox Protected lblPhotoPath As System.Web.UI.WebControls.Label Protected Picture_Header As System.Web.UI.HtmlControls.HtmlTableCell Protected tabTabControl1_HeaderFill As System.Web.UI.HtmlControls.HtmlTableCell Protected tabTabControl1 As System.Web.UI.HtmlControls.HtmlGenericControl Protected Name_Address_Button As System.Web.UI.HtmlControls.HtmlAnchor Protected Communication_Button As System.Web.UI.HtmlControls.HtmlAnchor Protected Security_Button As System.Web.UI.HtmlControls.HtmlAnchor Protected Picture_Button As System.Web.UI.HtmlControls.HtmlAnchor Protected designerPlaceholderDeclaration As System.Object Protected _dataEmployeesRow As suite4.net.Northwind.EmployeesRow Public Overridable Property DataEmployeesRow As suite4.net.Northwind.EmployeesRow Get Return Me._dataEmployeesRow End Get Set Me._dataEmployeesRow = value Me.InitializeDataSource(Me._dataEmployeesRow) End Set End Property 'end Public Overridable Property DataEmployeesRow As suite4.net.Northwind.EmployeesRow Private Sub InitializeComponent() AddHandler Load, AddressOf Me.Page_Load End Sub ' end Private Sub InitializeComponent() Protected Overrides Sub OnInit(ByVal e As System.EventArgs) Me.InitializeComponent() MyBase.OnInit(e) End Sub ' end Protected Overrides Sub OnInit(ByVal e As System.EventArgs) Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) If (Not(Me.txtEmployeeID) Is Nothing) Then Me.InitializeTabControl() End If 'end If (Not(Me.txtEmployeeID) Is Nothing) Then If Me._IsInitialized Then Return End If 'end If Me._IsInitialized Then Me._IsInitialized = true If (Not(Me.txtEmployeeID) Is Nothing) Then Return End If 'end If (Not(Me.txtEmployeeID) Is Nothing) Then Me.txtEmployeeID = New System.Web.UI.WebControls.TextBox () Me.lblEmployeeID = New System.Web.UI.WebControls.Label () Me.tabTabControl1_Table = New System.Web.UI.HtmlControls.HtmlTable () Me.tabTabControl1_TableRow = New System.Web.UI.HtmlControls.HtmlTableRow () Me.Name_Address_Content = New System.Web.UI.HtmlControls.HtmlGenericControl () Me.txtTitleOfCourtesy = New System.Web.UI.WebControls.TextBox () Me.lblTitleOfCourtesy = New System.Web.UI.WebControls.Label () Me.txtTitle = New System.Web.UI.WebControls.TextBox () Me.lblTitle = New System.Web.UI.WebControls.Label () Me.txtCountry = New System.Web.UI.WebControls.TextBox () Me.lblCountry = New System.Web.UI.WebControls.Label () Me.txtRegion = New System.Web.UI.WebControls.TextBox () Me.lblRegion = New System.Web.UI.WebControls.Label () Me.txtPostalCode = New System.Web.UI.WebControls.TextBox () Me.lblPostalCode = New System.Web.UI.WebControls.Label () Me.txtCity = New System.Web.UI.WebControls.TextBox () Me.lblCity = New System.Web.UI.WebControls.Label () Me.txtStreet = New System.Web.UI.WebControls.TextBox () Me.lblStreet = New System.Web.UI.WebControls.Label () Me.Address = New System.Web.UI.HtmlControls.HtmlGenericControl () Me.txtFirstName = New System.Web.UI.WebControls.TextBox () Me.lblFirstName = New System.Web.UI.WebControls.Label () Me.txtLastName = New System.Web.UI.WebControls.TextBox () Me.lblLastName = New System.Web.UI.WebControls.Label () Me.Name_Address_Header = New System.Web.UI.HtmlControls.HtmlTableCell () Me.Communication_Content = New System.Web.UI.HtmlControls.HtmlGenericControl () Me.txtExtension = New System.Web.UI.WebControls.TextBox () Me.txtHomeEmail = New System.Web.UI.WebControls.TextBox () Me.txtHomePhone_ = New System.Web.UI.WebControls.TextBox () Me.lblpriv_Email = New System.Web.UI.WebControls.Label () Me.lblpriv_Phone_ = New System.Web.UI.WebControls.Label () Me.txtWorkEmail = New System.Web.UI.WebControls.TextBox () Me.txtWorkFax_ = New System.Web.UI.WebControls.TextBox () Me.lblWorkEmail = New System.Web.UI.WebControls.Label () Me.lblWorkFax_ = New System.Web.UI.WebControls.Label () Me.txtWorkPhone_ = New System.Web.UI.WebControls.TextBox () Me.lblWorkPhone_ = New System.Web.UI.WebControls.Label () Me.lblExt_ = New System.Web.UI.WebControls.Label () Me.Communication_Header = New System.Web.UI.HtmlControls.HtmlTableCell () Me.Security_Content = New System.Web.UI.HtmlControls.HtmlGenericControl () Me.txtNotes = New System.Web.UI.WebControls.TextBox () Me.txtReportsTo = New System.Web.UI.WebControls.TextBox () Me.lblNotes = New System.Web.UI.WebControls.Label () Me.lblReportsTo = New System.Web.UI.WebControls.Label () Me.lblHireDate = New System.Web.UI.WebControls.Label () Me.lblBirthDate = New System.Web.UI.WebControls.Label () Me.Security_Header = New System.Web.UI.HtmlControls.HtmlTableCell () Me.Picture_Content = New System.Web.UI.HtmlControls.HtmlGenericControl () Me.picPictureBox1 = New System.Web.UI.WebControls.Image () Me.txtPhotoPath = New System.Web.UI.WebControls.TextBox () Me.lblPhotoPath = New System.Web.UI.WebControls.Label () Me.Picture_Header = New System.Web.UI.HtmlControls.HtmlTableCell () Me.tabTabControl1_HeaderFill = New System.Web.UI.HtmlControls.HtmlTableCell () Me.tabTabControl1 = New System.Web.UI.HtmlControls.HtmlGenericControl () Me.Name_Address_Button = New System.Web.UI.HtmlControls.HtmlAnchor () Me.Communication_Button = New System.Web.UI.HtmlControls.HtmlAnchor () Me.Security_Button = New System.Web.UI.HtmlControls.HtmlAnchor () Me.Picture_Button = New System.Web.UI.HtmlControls.HtmlAnchor () ' 'txtEmployeeID ' Me.txtEmployeeID.Height = 20 Me.txtEmployeeID.Width = 96 Me.txtEmployeeID.Columns = 15 Me.txtEmployeeID.Text = "EmployeeID" Me.txtEmployeeID.ID = "txtEmployeeID" Me.txtEmployeeID.MaxLength = 32767 Me.txtEmployeeID.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:11px;") ' 'lblEmployeeID ' Me.lblEmployeeID.Width = 66 Me.lblEmployeeID.ID = "lblEmployeeID" Me.lblEmployeeID.Height = 16 Me.lblEmployeeID.Text = "EmployeeID" Me.lblEmployeeID.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:16px;top:13px;width:66px;height:16px;") ' 'tabTabControl1_Table ' Me.tabTabControl1_Table.CellSpacing = -1 Me.tabTabControl1_Table.CellPadding = -1 Me.tabTabControl1_Table.ID = "tabTabControl1_Table" Me.tabTabControl1_Table.Attributes.Add("style", "") ' 'tabTabControl1_TableRow ' Me.tabTabControl1_TableRow.ID = "tabTabControl1_TableRow" Me.tabTabControl1_TableRow.Attributes.Add("style", "") ' 'Name_Address_Content ' Me.Name_Address_Content.TagName = "span" Me.Name_Address_Content.ID = "Name_Address_Content" Me.Name_Address_Content.InnerHtml = "" Me.Name_Address_Content.Attributes.Add("style", "") ' 'txtTitleOfCourtesy ' Me.txtTitleOfCourtesy.Height = 20 Me.txtTitleOfCourtesy.Width = 96 Me.txtTitleOfCourtesy.Columns = 15 Me.txtTitleOfCourtesy.Text = "TitleOfCourtesy" Me.txtTitleOfCourtesy.ID = "txtTitleOfCourtesy" Me.txtTitleOfCourtesy.MaxLength = 32767 Me.txtTitleOfCourtesy.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:40px;") ' 'lblTitleOfCourtesy ' Me.lblTitleOfCourtesy.Width = 83 Me.lblTitleOfCourtesy.ID = "lblTitleOfCourtesy" Me.lblTitleOfCourtesy.Height = 16 Me.lblTitleOfCourtesy.Text = "TitleOfCourtesy" Me.lblTitleOfCourtesy.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:40px;width:83px;height:16px;") ' 'txtTitle ' Me.txtTitle.Height = 20 Me.txtTitle.Width = 96 Me.txtTitle.Columns = 15 Me.txtTitle.Text = "Title" Me.txtTitle.ID = "txtTitle" Me.txtTitle.MaxLength = 32767 Me.txtTitle.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:16px;") ' 'lblTitle ' Me.lblTitle.Width = 26 Me.lblTitle.ID = "lblTitle" Me.lblTitle.Height = 16 Me.lblTitle.Text = "Title" Me.lblTitle.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:16px;width:26px;height:16px;") ' 'txtCountry ' Me.txtCountry.Height = 20 Me.txtCountry.Width = 272 Me.txtCountry.Columns = 42 Me.txtCountry.Text = "Country" Me.txtCountry.ID = "txtCountry" Me.txtCountry.MaxLength = 32767 Me.txtCountry.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:80px;top:114px;") ' 'lblCountry ' Me.lblCountry.Width = 44 Me.lblCountry.ID = "lblCountry" Me.lblCountry.Height = 16 Me.lblCountry.Text = "Country" Me.lblCountry.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:116px;width:44px;height:16px;") ' 'txtRegion ' Me.txtRegion.Height = 20 Me.txtRegion.Width = 272 Me.txtRegion.Columns = 42 Me.txtRegion.Text = "Region" Me.txtRegion.ID = "txtRegion" Me.txtRegion.MaxLength = 32767 Me.txtRegion.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:80px;top:90px;") ' 'lblRegion ' Me.lblRegion.Width = 40 Me.lblRegion.ID = "lblRegion" Me.lblRegion.Height = 16 Me.lblRegion.Text = "Region" Me.lblRegion.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:92px;width:40px;height:16px;") ' 'txtPostalCode ' Me.txtPostalCode.Height = 20 Me.txtPostalCode.Width = 272 Me.txtPostalCode.Columns = 42 Me.txtPostalCode.Text = "PostalCode" Me.txtPostalCode.ID = "txtPostalCode" Me.txtPostalCode.MaxLength = 32767 Me.txtPostalCode.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:80px;top:66px;") ' 'lblPostalCode ' Me.lblPostalCode.Width = 63 Me.lblPostalCode.ID = "lblPostalCode" Me.lblPostalCode.Height = 16 Me.lblPostalCode.Text = "PostalCode" Me.lblPostalCode.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:68px;width:63px;height:16px;") ' 'txtCity ' Me.txtCity.Height = 20 Me.txtCity.Width = 272 Me.txtCity.Columns = 42 Me.txtCity.Text = "City" Me.txtCity.ID = "txtCity" Me.txtCity.MaxLength = 32767 Me.txtCity.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:80px;top:42px;") ' 'lblCity ' Me.lblCity.Width = 24 Me.lblCity.ID = "lblCity" Me.lblCity.Height = 16 Me.lblCity.Text = "City" Me.lblCity.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:44px;width:24px;height:16px;") ' 'txtStreet ' Me.txtStreet.Height = 20 Me.txtStreet.Width = 272 Me.txtStreet.Columns = 42 Me.txtStreet.Text = "Street" Me.txtStreet.ID = "txtStreet" Me.txtStreet.MaxLength = 32767 Me.txtStreet.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:80px;top:18px;") ' 'lblStreet ' Me.lblStreet.Width = 34 Me.lblStreet.ID = "lblStreet" Me.lblStreet.Height = 16 Me.lblStreet.Text = "Street" Me.lblStreet.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:20px;width:34px;height:16px;") ' 'Address ' Me.Address.TagName = "div" Me.Address.ID = "Address" Me.Address.InnerHtml = "<fieldset style=""width:360px; height:144px; border:1px solid""><legend style=""font" & ": 8pt 'Microsoft Sans Serif';color: #000000;"">Address</legend></fieldset>" Me.Address.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;position: absolute;left:8px;top:1" & "20px;") ' 'txtFirstName ' Me.txtFirstName.Height = 20 Me.txtFirstName.Width = 278 Me.txtFirstName.Columns = 43 Me.txtFirstName.Text = "FirstName" Me.txtFirstName.ID = "txtFirstName" Me.txtFirstName.MaxLength = 32767 Me.txtFirstName.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:88px;") ' 'lblFirstName ' Me.lblFirstName.Width = 56 Me.lblFirstName.ID = "lblFirstName" Me.lblFirstName.Height = 16 Me.lblFirstName.Text = "FirstName" Me.lblFirstName.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:88px;width:56px;height:16px;") ' 'txtLastName ' Me.txtLastName.Height = 20 Me.txtLastName.Width = 278 Me.txtLastName.Columns = 43 Me.txtLastName.Text = "LastName" Me.txtLastName.ID = "txtLastName" Me.txtLastName.MaxLength = 32767 Me.txtLastName.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:64px;") ' 'lblLastName ' Me.lblLastName.Width = 56 Me.lblLastName.ID = "lblLastName" Me.lblLastName.Height = 16 Me.lblLastName.Text = "LastName" Me.lblLastName.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:64px;width:56px;height:16px;") ' 'Name_Address_Header ' Me.Name_Address_Header.ColSpan = -1 Me.Name_Address_Header.ID = "Name_Address_Header" Me.Name_Address_Header.NoWrap = false Me.Name_Address_Header.RowSpan = -1 Me.Name_Address_Header.InnerHtml = "" Me.Name_Address_Header.Attributes.Add("style", "") ' 'Communication_Content ' Me.Communication_Content.TagName = "span" Me.Communication_Content.ID = "Communication_Content" Me.Communication_Content.InnerHtml = "" Me.Communication_Content.Attributes.Add("style", "") ' 'txtExtension ' Me.txtExtension.Height = 20 Me.txtExtension.Width = 64 Me.txtExtension.Columns = 10 Me.txtExtension.Text = "Extension" Me.txtExtension.ID = "txtExtension" Me.txtExtension.MaxLength = 32767 Me.txtExtension.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:304px;top:16px;") ' 'txtHomeEmail ' Me.txtHomeEmail.Height = 20 Me.txtHomeEmail.Width = 176 Me.txtHomeEmail.Columns = 27 Me.txtHomeEmail.Text = "Home email" Me.txtHomeEmail.ID = "txtHomeEmail" Me.txtHomeEmail.MaxLength = 32767 Me.txtHomeEmail.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:112px;") ' 'txtHomePhone_ ' Me.txtHomePhone_.Height = 20 Me.txtHomePhone_.Width = 176 Me.txtHomePhone_.Columns = 27 Me.txtHomePhone_.Text = "Home Phone #" Me.txtHomePhone_.ID = "txtHomePhone_" Me.txtHomePhone_.MaxLength = 32767 Me.txtHomePhone_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:88px;") ' 'lblpriv_Email ' Me.lblpriv_Email.Width = 56 Me.lblpriv_Email.ID = "lblpriv_Email" Me.lblpriv_Email.Height = 16 Me.lblpriv_Email.Text = "priv. email" Me.lblpriv_Email.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:114px;width:56px;height:16px;") ' 'lblpriv_Phone_ ' Me.lblpriv_Phone_.Width = 71 Me.lblpriv_Phone_.ID = "lblpriv_Phone_" Me.lblpriv_Phone_.Height = 16 Me.lblpriv_Phone_.Text = "priv. Phone #" Me.lblpriv_Phone_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:90px;width:71px;height:16px;") ' 'txtWorkEmail ' Me.txtWorkEmail.Height = 20 Me.txtWorkEmail.Width = 176 Me.txtWorkEmail.Columns = 27 Me.txtWorkEmail.Text = "Work email" Me.txtWorkEmail.ID = "txtWorkEmail" Me.txtWorkEmail.MaxLength = 32767 Me.txtWorkEmail.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:64px;") ' 'txtWorkFax_ ' Me.txtWorkFax_.Height = 20 Me.txtWorkFax_.Width = 176 Me.txtWorkFax_.Columns = 27 Me.txtWorkFax_.Text = "Work Fax #" Me.txtWorkFax_.ID = "txtWorkFax_" Me.txtWorkFax_.MaxLength = 32767 Me.txtWorkFax_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:40px;") ' 'lblWorkEmail ' Me.lblWorkEmail.Width = 61 Me.lblWorkEmail.ID = "lblWorkEmail" Me.lblWorkEmail.Height = 16 Me.lblWorkEmail.Text = "Work email" Me.lblWorkEmail.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:66px;width:61px;height:16px;") ' 'lblWorkFax_ ' Me.lblWorkFax_.Width = 62 Me.lblWorkFax_.ID = "lblWorkFax_" Me.lblWorkFax_.Height = 16 Me.lblWorkFax_.Text = "Work Fax #" Me.lblWorkFax_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:42px;width:62px;height:16px;") ' 'txtWorkPhone_ ' Me.txtWorkPhone_.Height = 20 Me.txtWorkPhone_.Width = 176 Me.txtWorkPhone_.Columns = 27 Me.txtWorkPhone_.Text = "Work Phone #" Me.txtWorkPhone_.ID = "txtWorkPhone_" Me.txtWorkPhone_.MaxLength = 32767 Me.txtWorkPhone_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:88px;top:16px;") ' 'lblWorkPhone_ ' Me.lblWorkPhone_.Width = 76 Me.lblWorkPhone_.ID = "lblWorkPhone_" Me.lblWorkPhone_.Height = 16 Me.lblWorkPhone_.Text = "Work Phone #" Me.lblWorkPhone_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:18px;width:76px;height:16px;") ' 'lblExt_ ' Me.lblExt_.Width = 24 Me.lblExt_.ID = "lblExt_" Me.lblExt_.Height = 20 Me.lblExt_.Text = "Ext." Me.lblExt_.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:272px;top:16px;width:24px;height:20px;") ' 'Communication_Header ' Me.Communication_Header.ColSpan = -1 Me.Communication_Header.ID = "Communication_Header" Me.Communication_Header.NoWrap = false Me.Communication_Header.RowSpan = -1 Me.Communication_Header.InnerHtml = "" Me.Communication_Header.Attributes.Add("style", "") ' 'Security_Content ' Me.Security_Content.TagName = "span" Me.Security_Content.ID = "Security_Content" Me.Security_Content.InnerHtml = "" Me.Security_Content.Attributes.Add("style", "") ' 'txtNotes ' Me.txtNotes.Rows = 9 Me.txtNotes.Height = 152 Me.txtNotes.TextMode = System.Web.UI.WebControls.TextBoxMode.MultiLine Me.txtNotes.Width = 360 Me.txtNotes.Columns = 56 Me.txtNotes.Text = "Notes" Me.txtNotes.ID = "txtNotes" Me.txtNotes.MaxLength = 32767 Me.txtNotes.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:8px;top:104px;") ' 'txtReportsTo ' Me.txtReportsTo.Height = 20 Me.txtReportsTo.Width = 288 Me.txtReportsTo.Columns = 45 Me.txtReportsTo.Text = "ReportsTo" Me.txtReportsTo.ID = "txtReportsTo" Me.txtReportsTo.MaxLength = 32767 Me.txtReportsTo.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:80px;top:62px;") ' 'lblNotes ' Me.lblNotes.Width = 56 Me.lblNotes.ID = "lblNotes" Me.lblNotes.Height = 16 Me.lblNotes.Text = "Notes" Me.lblNotes.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:88px;width:56px;height:16px;") ' 'lblReportsTo ' Me.lblReportsTo.Width = 72 Me.lblReportsTo.ID = "lblReportsTo" Me.lblReportsTo.Height = 16 Me.lblReportsTo.Text = "ReportsTo" Me.lblReportsTo.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:64px;width:72px;height:16px;") ' 'lblHireDate ' Me.lblHireDate.Width = 56 Me.lblHireDate.ID = "lblHireDate" Me.lblHireDate.Height = 16 Me.lblHireDate.Text = "HireDate" Me.lblHireDate.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:40px;width:56px;height:16px;") ' 'lblBirthDate ' Me.lblBirthDate.Width = 56 Me.lblBirthDate.ID = "lblBirthDate" Me.lblBirthDate.Height = 23 Me.lblBirthDate.Text = "BirthDate" Me.lblBirthDate.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:8px;width:56px;height:23px;") ' 'Security_Header ' Me.Security_Header.ColSpan = -1 Me.Security_Header.ID = "Security_Header" Me.Security_Header.NoWrap = false Me.Security_Header.RowSpan = -1 Me.Security_Header.InnerHtml = "" Me.Security_Header.Attributes.Add("style", "") ' 'Picture_Content ' Me.Picture_Content.TagName = "span" Me.Picture_Content.ID = "Picture_Content" Me.Picture_Content.InnerHtml = "" Me.Picture_Content.Attributes.Add("style", "") ' 'picPictureBox1 ' Me.picPictureBox1.ID = "picPictureBox1" Me.picPictureBox1.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;border:none;position: absolute;le" & "ft:48px;top:40px;") ' 'txtPhotoPath ' Me.txtPhotoPath.Height = 20 Me.txtPhotoPath.Width = 304 Me.txtPhotoPath.Columns = 47 Me.txtPhotoPath.Text = "PhotoPath" Me.txtPhotoPath.ID = "txtPhotoPath" Me.txtPhotoPath.MaxLength = 32767 Me.txtPhotoPath.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;background-color: #ffffc0;text-al" & "ign:left;border:2 solid black;position: absolute;left:64px;top:6px;") ' 'lblPhotoPath ' Me.lblPhotoPath.Width = 64 Me.lblPhotoPath.ID = "lblPhotoPath" Me.lblPhotoPath.Height = 16 Me.lblPhotoPath.Text = "PhotoPath" Me.lblPhotoPath.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;text-align:left;vertical-align:mi" & "ddle;border:none;position: absolute;left:8px;top:8px;width:64px;height:16px;") ' 'Picture_Header ' Me.Picture_Header.ColSpan = -1 Me.Picture_Header.ID = "Picture_Header" Me.Picture_Header.NoWrap = false Me.Picture_Header.RowSpan = -1 Me.Picture_Header.InnerHtml = "" Me.Picture_Header.Attributes.Add("style", "") ' 'tabTabControl1_HeaderFill ' Me.tabTabControl1_HeaderFill.ColSpan = -1 Me.tabTabControl1_HeaderFill.Width = "100%" Me.tabTabControl1_HeaderFill.ID = "tabTabControl1_HeaderFill" Me.tabTabControl1_HeaderFill.NoWrap = false Me.tabTabControl1_HeaderFill.RowSpan = -1 Me.tabTabControl1_HeaderFill.InnerHtml = " " Me.tabTabControl1_HeaderFill.Attributes.Add("style", "font:8pt '[FontFamily: Name=Microsoft Sans Serif]'; BORDER-BOTTOM:1px #000000 sol" & "id;") ' 'tabTabControl1 ' Me.tabTabControl1.TagName = "div" Me.tabTabControl1.ID = "tabTabControl1" Me.tabTabControl1.InnerHtml = "" Me.tabTabControl1.Attributes.Add("style", "font: 8pt 'Microsoft Sans Serif';color: #000000;position: absolute;left:8px;top:4" & "0px;width:384px;height:288px;") ' 'Name_Address_Button ' Me.Name_Address_Button.ID = "Name_Address_Button" Me.Name_Address_Button.InnerHtml = "" Me.Name_Address_Button.Attributes.Add("style", "") ' 'Communication_Button ' Me.Communication_Button.ID = "Communication_Button" Me.Communication_Button.InnerHtml = "" Me.Communication_Button.Attributes.Add("style", "") ' 'Security_Button ' Me.Security_Button.ID = "Security_Button" Me.Security_Button.InnerHtml = "" Me.Security_Button.Attributes.Add("style", "") ' 'Picture_Button ' Me.Picture_Button.ID = "Picture_Button" Me.Picture_Button.InnerHtml = "" Me.Picture_Button.Attributes.Add("style", "") ' 'add controls to UserControl ' Me.Controls.Add(Me.txtEmployeeID) Me.Controls.Add(Me.lblEmployeeID) Me.Controls.Add(Me.Name_Address_Content) Me.Controls.Add(Me.Communication_Content) Me.Controls.Add(Me.Security_Content) Me.Controls.Add(Me.Picture_Content) Me.Controls.Add(Me.tabTabControl1) Me.Controls.Add(Me.Name_Address_Button) Me.Controls.Add(Me.Communication_Button) Me.Controls.Add(Me.Security_Button) Me.Controls.Add(Me.Picture_Button) ' 'add controls to tabTabControl1_Table ' Me.tabTabControl1_Table.Controls.Add(Me.tabTabControl1_TableRow) ' 'add controls to tabTabControl1_TableRow ' Me.tabTabControl1_TableRow.Controls.Add(Me.Name_Address_Header) Me.tabTabControl1_TableRow.Controls.Add(Me.Communication_Header) Me.tabTabControl1_TableRow.Controls.Add(Me.Security_Header) Me.tabTabControl1_TableRow.Controls.Add(Me.Picture_Header) Me.tabTabControl1_TableRow.Controls.Add(Me.tabTabControl1_HeaderFill) ' 'add controls to Name_Address_Content ' Me.Name_Address_Content.Controls.Add(Me.txtTitleOfCourtesy) Me.Name_Address_Content.Controls.Add(Me.lblTitleOfCourtesy) Me.Name_Address_Content.Controls.Add(Me.txtTitle) Me.Name_Address_Content.Controls.Add(Me.lblTitle) Me.Name_Address_Content.Controls.Add(Me.Address) Me.Name_Address_Content.Controls.Add(Me.txtFirstName) Me.Name_Address_Content.Controls.Add(Me.lblFirstName) Me.Name_Address_Content.Controls.Add(Me.txtLastName) Me.Name_Address_Content.Controls.Add(Me.lblLastName) ' 'add controls to Address ' Me.Address.Controls.Add(Me.txtCountry) Me.Address.Controls.Add(Me.lblCountry) Me.Address.Controls.Add(Me.txtRegion) Me.Address.Controls.Add(Me.lblRegion) Me.Address.Controls.Add(Me.txtPostalCode) Me.Address.Controls.Add(Me.lblPostalCode) Me.Address.Controls.Add(Me.txtCity) Me.Address.Controls.Add(Me.lblCity) Me.Address.Controls.Add(Me.txtStreet) Me.Address.Controls.Add(Me.lblStreet) ' 'add controls to Communication_Content ' Me.Communication_Content.Controls.Add(Me.txtExtension) Me.Communication_Content.Controls.Add(Me.txtHomeEmail) Me.Communication_Content.Controls.Add(Me.txtHomePhone_) Me.Communication_Content.Controls.Add(Me.lblpriv_Email) Me.Communication_Content.Controls.Add(Me.lblpriv_Phone_) Me.Communication_Content.Controls.Add(Me.txtWorkEmail) Me.Communication_Content.Controls.Add(Me.txtWorkFax_) Me.Communication_Content.Controls.Add(Me.lblWorkEmail) Me.Communication_Content.Controls.Add(Me.lblWorkFax_) Me.Communication_Content.Controls.Add(Me.txtWorkPhone_) Me.Communication_Content.Controls.Add(Me.lblWorkPhone_) Me.Communication_Content.Controls.Add(Me.lblExt_) ' 'add controls to Security_Content ' Me.Security_Content.Controls.Add(Me.txtNotes) Me.Security_Content.Controls.Add(Me.txtReportsTo) Me.Security_Content.Controls.Add(Me.lblNotes) Me.Security_Content.Controls.Add(Me.lblReportsTo) Me.Security_Content.Controls.Add(Me.lblHireDate) Me.Security_Content.Controls.Add(Me.lblBirthDate) ' 'add controls to Picture_Content ' Me.Picture_Content.Controls.Add(Me.picPictureBox1) Me.Picture_Content.Controls.Add(Me.txtPhotoPath) Me.Picture_Content.Controls.Add(Me.lblPhotoPath) ' 'add controls to tabTabControl1 ' Me.tabTabControl1.Controls.Add(Me.tabTabControl1_Table) Me.InitializeTabControl() End Sub ' end Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub InitializeTabControl() Me.Name_Address_Header.InnerHtml = " Name/Address " Me.Name_Address_Header.Attributes.Add("style", Me.GetHeaderStyle(true, false)) Me.Communication_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Security_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Picture_Header.Attributes.Add("style", Me.GetHeaderStyle(false, true)) ' 'Name_Address_Button ' If (Me.Name_Address_Button Is Nothing) Then Me.Name_Address_Button = New System.Web.UI.HtmlControls.HtmlAnchor () End If 'end If (Me.Name_Address_Button Is Nothing) Then Me.Name_Address_Button.ID = "Name_Address_Button" Me.Name_Address_Button.InnerHtml = " Name/Address " Me.Name_Address_Button.Visible = false Me.Name_Address_Button.Attributes.Add("style", Me.GetCommandStyle) ' 'Communication_Button ' If (Me.Communication_Button Is Nothing) Then Me.Communication_Button = New System.Web.UI.HtmlControls.HtmlAnchor () End If 'end If (Me.Communication_Button Is Nothing) Then Me.Communication_Button.ID = "Communication_Button" Me.Communication_Button.InnerHtml = " Communication " Me.Communication_Button.Attributes.Add("style", Me.GetCommandStyle) ' 'Security_Button ' If (Me.Security_Button Is Nothing) Then Me.Security_Button = New System.Web.UI.HtmlControls.HtmlAnchor () End If 'end If (Me.Security_Button Is Nothing) Then Me.Security_Button.ID = "Security_Button" Me.Security_Button.InnerHtml = " Security " Me.Security_Button.Attributes.Add("style", Me.GetCommandStyle) ' 'Picture_Button ' If (Me.Picture_Button Is Nothing) Then Me.Picture_Button = New System.Web.UI.HtmlControls.HtmlAnchor () End If 'end If (Me.Picture_Button Is Nothing) Then Me.Picture_Button.ID = "Picture_Button" Me.Picture_Button.InnerHtml = " Picture " Me.Picture_Button.Attributes.Add("style", Me.GetCommandStyle) ' 'create event listener to HtmlAnchor ' AddHandler Me.Name_Address_Button.ServerClick, AddressOf Me.OnName_Address_ButtonClick AddHandler Me.Communication_Button.ServerClick, AddressOf Me.OnCommunication_ButtonClick AddHandler Me.Security_Button.ServerClick, AddressOf Me.OnSecurity_ButtonClick AddHandler Me.Picture_Button.ServerClick, AddressOf Me.OnPicture_ButtonClick ' 'add HtmlAnchor to header ' Me.Name_Address_Header.Controls.Add(Me.Name_Address_Button) Me.Communication_Header.Controls.Add(Me.Communication_Button) Me.Security_Header.Controls.Add(Me.Security_Button) Me.Picture_Header.Controls.Add(Me.Picture_Button) ' 'hide TabPage Content and set style ' Me.Name_Address_Content.Visible = true Me.Communication_Content.Visible = false Me.Security_Content.Visible = false Me.Picture_Content.Visible = false Me.Name_Address_Content.Attributes.Add("style", Me.GetContentStyle(true)) Me.Communication_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Security_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Picture_Content.Attributes.Add("style", Me.GetContentStyle(false)) End Sub ' end Private Sub InitializeTabControl() ' 'set visibility and style for Name_Address ' Private Sub OnName_Address_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Name_Address_Header.Controls.Clear() Me.Name_Address_Header.InnerHtml = " Name/Address " Me.Name_Address_Header.Attributes.Add("style", Me.GetHeaderStyle(true, false)) Me.Name_Address_Button.Visible = false ' 'set visibility and style for Communication ' Me.Communication_Header.Controls.Clear() Me.Communication_Header.InnerHtml = "" Me.Communication_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Communication_Button.InnerHtml = " Communication " Me.Communication_Button.Visible = true ' 'set visibility and style for Security ' Me.Security_Header.Controls.Clear() Me.Security_Header.InnerHtml = "" Me.Security_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Security_Button.InnerHtml = " Security " Me.Security_Button.Visible = true ' 'set visibility and style for Picture ' Me.Picture_Header.Controls.Clear() Me.Picture_Header.InnerHtml = "" Me.Picture_Header.Attributes.Add("style", Me.GetHeaderStyle(false, true)) Me.Picture_Button.InnerHtml = " Picture " Me.Picture_Button.Visible = true ' 'add HtmlAnchor to header ' Me.Communication_Header.Controls.Add(Me.Communication_Button) Me.Security_Header.Controls.Add(Me.Security_Button) Me.Picture_Header.Controls.Add(Me.Picture_Button) ' 'hide TabPage Content and set style ' Me.Name_Address_Content.Visible = true Me.Communication_Content.Visible = false Me.Security_Content.Visible = false Me.Picture_Content.Visible = false Me.Name_Address_Content.Attributes.Add("style", Me.GetContentStyle(true)) Me.Communication_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Security_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Picture_Content.Attributes.Add("style", Me.GetContentStyle(false)) End Sub ' end Private Sub OnName_Address_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) ' 'set visibility and style for Name_Address ' Private Sub OnCommunication_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Name_Address_Header.Controls.Clear() Me.Name_Address_Header.InnerHtml = "" Me.Name_Address_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Name_Address_Button.InnerHtml = " Name/Address " Me.Name_Address_Button.Visible = true ' 'set visibility and style for Communication ' Me.Communication_Header.Controls.Clear() Me.Communication_Header.InnerHtml = " Communication " Me.Communication_Header.Attributes.Add("style", Me.GetHeaderStyle(true, false)) Me.Communication_Button.Visible = false ' 'set visibility and style for Security ' Me.Security_Header.Controls.Clear() Me.Security_Header.InnerHtml = "" Me.Security_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Security_Button.InnerHtml = " Security " Me.Security_Button.Visible = true ' 'set visibility and style for Picture ' Me.Picture_Header.Controls.Clear() Me.Picture_Header.InnerHtml = "" Me.Picture_Header.Attributes.Add("style", Me.GetHeaderStyle(false, true)) Me.Picture_Button.InnerHtml = " Picture " Me.Picture_Button.Visible = true ' 'add HtmlAnchor to header ' Me.Name_Address_Header.Controls.Add(Me.Name_Address_Button) Me.Security_Header.Controls.Add(Me.Security_Button) Me.Picture_Header.Controls.Add(Me.Picture_Button) ' 'hide TabPage Content and set style ' Me.Name_Address_Content.Visible = false Me.Communication_Content.Visible = true Me.Security_Content.Visible = false Me.Picture_Content.Visible = false Me.Name_Address_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Communication_Content.Attributes.Add("style", Me.GetContentStyle(true)) Me.Security_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Picture_Content.Attributes.Add("style", Me.GetContentStyle(false)) End Sub ' end Private Sub OnCommunication_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) ' 'set visibility and style for Name_Address ' Private Sub OnSecurity_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Name_Address_Header.Controls.Clear() Me.Name_Address_Header.InnerHtml = "" Me.Name_Address_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Name_Address_Button.InnerHtml = " Name/Address " Me.Name_Address_Button.Visible = true ' 'set visibility and style for Communication ' Me.Communication_Header.Controls.Clear() Me.Communication_Header.InnerHtml = "" Me.Communication_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Communication_Button.InnerHtml = " Communication " Me.Communication_Button.Visible = true ' 'set visibility and style for Security ' Me.Security_Header.Controls.Clear() Me.Security_Header.InnerHtml = " Security " Me.Security_Header.Attributes.Add("style", Me.GetHeaderStyle(true, false)) Me.Security_Button.Visible = false ' 'set visibility and style for Picture ' Me.Picture_Header.Controls.Clear() Me.Picture_Header.InnerHtml = "" Me.Picture_Header.Attributes.Add("style", Me.GetHeaderStyle(false, true)) Me.Picture_Button.InnerHtml = " Picture " Me.Picture_Button.Visible = true ' 'add HtmlAnchor to header ' Me.Name_Address_Header.Controls.Add(Me.Name_Address_Button) Me.Communication_Header.Controls.Add(Me.Communication_Button) Me.Picture_Header.Controls.Add(Me.Picture_Button) ' 'hide TabPage Content and set style ' Me.Name_Address_Content.Visible = false Me.Communication_Content.Visible = false Me.Security_Content.Visible = true Me.Picture_Content.Visible = false Me.Name_Address_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Communication_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Security_Content.Attributes.Add("style", Me.GetContentStyle(true)) Me.Picture_Content.Attributes.Add("style", Me.GetContentStyle(false)) End Sub ' end Private Sub OnSecurity_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) ' 'set visibility and style for Name_Address ' Private Sub OnPicture_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Name_Address_Header.Controls.Clear() Me.Name_Address_Header.InnerHtml = "" Me.Name_Address_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Name_Address_Button.InnerHtml = " Name/Address " Me.Name_Address_Button.Visible = true ' 'set visibility and style for Communication ' Me.Communication_Header.Controls.Clear() Me.Communication_Header.InnerHtml = "" Me.Communication_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Communication_Button.InnerHtml = " Communication " Me.Communication_Button.Visible = true ' 'set visibility and style for Security ' Me.Security_Header.Controls.Clear() Me.Security_Header.InnerHtml = "" Me.Security_Header.Attributes.Add("style", Me.GetHeaderStyle(false, false)) Me.Security_Button.InnerHtml = " Security " Me.Security_Button.Visible = true ' 'set visibility and style for Picture ' Me.Picture_Header.Controls.Clear() Me.Picture_Header.InnerHtml = " Picture " Me.Picture_Header.Attributes.Add("style", Me.GetHeaderStyle(true, true)) Me.Picture_Button.Visible = false ' 'add HtmlAnchor to header ' Me.Name_Address_Header.Controls.Add(Me.Name_Address_Button) Me.Communication_Header.Controls.Add(Me.Communication_Button) Me.Security_Header.Controls.Add(Me.Security_Button) ' 'hide TabPage Content and set style ' Me.Name_Address_Content.Visible = false Me.Communication_Content.Visible = false Me.Security_Content.Visible = false Me.Picture_Content.Visible = true Me.Name_Address_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Communication_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Security_Content.Attributes.Add("style", Me.GetContentStyle(false)) Me.Picture_Content.Attributes.Add("style", Me.GetContentStyle(true)) End Sub ' end Private Sub OnPicture_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Function GetCommandStyle() As String Dim stringBuilder As System.Text.StringBuilder stringBuilder = New System.Text.StringBuilder () stringBuilder.AppendFormat("{0}:{1}; ", "TEXT-DECORATION", "none") stringBuilder.AppendFormat("{0}:{1}; ", "COLOR", BORDER_COLOR_ON) Return stringBuilder.ToString End Function ' end Private Function GetCommandStyle() As String Private Function GetContentStyle(ByVal visible As Boolean) As String Dim stringBuilder As System.Text.StringBuilder stringBuilder = New System.Text.StringBuilder () stringBuilder.AppendFormat("POSITION:{0}; ", "absolute") stringBuilder.AppendFormat("TOP:{0}; ", "62px") stringBuilder.AppendFormat("LEFT:{0}; ", "8px") stringBuilder.AppendFormat("WIDTH:{0}; ", "384px") stringBuilder.AppendFormat("HEIGHT:{0}; ", "274px") stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-LEFT", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-BOTTOM", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-RIGHT", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) If visible Then stringBuilder.AppendFormat("VISIBILITY:{0}; ", "visible") Else stringBuilder.AppendFormat("VISIBILITY:{0}; ", "hidden") End If 'end If visible Then Return stringBuilder.ToString End Function ' end Private Function GetContentStyle(ByVal visible As Boolean) As String Private Function GetHeaderStyle(ByVal active As Boolean, ByVal last As Boolean) As String Dim stringBuilder As System.Text.StringBuilder stringBuilder = New System.Text.StringBuilder () stringBuilder.AppendFormat("{0}:{1}; ", "FONT", "8pt '[FontFamily: Name=Microsoft Sans Serif]'") stringBuilder.AppendFormat("{0}:{1}; ", "white-space", "nowrap") If last Then stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-RIGHT", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) Else stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-RIGHT", BORDER_COLOR_OFF, BORDER_WIDTH, BORDER_STYLE_ON) End If 'end If last Then stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-TOP", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-LEFT", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) If active Then stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-BOTTOM", BORDER_COLOR_OFF, BORDER_WIDTH, BORDER_STYLE_ON) Else stringBuilder.AppendFormat("{0}:{1} {2} {3}; ", "BORDER-BOTTOM", BORDER_COLOR_ON, BORDER_WIDTH, BORDER_STYLE_ON) End If 'end If active Then Return stringBuilder.ToString End Function ' end Private Function GetHeaderStyle(ByVal active As Boolean, ByVal last As Boolean) As String Public Overridable Sub InitializeDataSource(ByVal dataEmployeesRow As suite4.net.Northwind.EmployeesRow) If (Not(dataEmployeesRow) Is Nothing) Then Me.txtEmployeeID.Text = dataEmployeesRow.EmployeeID.ToString Me.txtTitleOfCourtesy.Text = dataEmployeesRow.TitleOfCourtesy Me.txtTitle.Text = dataEmployeesRow.Title Me.txtCountry.Text = dataEmployeesRow.Country Me.txtRegion.Text = dataEmployeesRow.Region Me.txtPostalCode.Text = dataEmployeesRow.PostalCode Me.txtCity.Text = dataEmployeesRow.City Me.txtStreet.Text = dataEmployeesRow.Address Me.txtFirstName.Text = dataEmployeesRow.FirstName Me.txtLastName.Text = dataEmployeesRow.LastName Me.txtExtension.Text = dataEmployeesRow.Extension Me.txtHomeEmail.Text = dataEmployeesRow.HomePhone Me.txtHomePhone_.Text = dataEmployeesRow.HomePhone Me.txtWorkEmail.Text = dataEmployeesRow.HomePhone Me.txtWorkFax_.Text = dataEmployeesRow.HomePhone Me.txtWorkPhone_.Text = dataEmployeesRow.HomePhone Me.txtNotes.Text = dataEmployeesRow.Notes Me.txtReportsTo.Text = dataEmployeesRow.ReportsTo.ToString Me.txtPhotoPath.Text = dataEmployeesRow.PhotoPath End If 'end If (Not(dataEmployeesRow) Is Nothing) Then End Sub ' end Public Overridable Sub InitializeDataSource(ByVal dataEmployeesRow As suite4.net.Northwind.EmployeesRow) Public Overridable Sub Save(ByVal dataEmployeesRow As suite4.net.Northwind.EmployeesRow) If (Not(dataEmployeesRow) Is Nothing) Then 'Please tpye your own Exception messages here. Try dataEmployeesRow.EmployeeID = Integer.Parse(Me.txtEmployeeID.Text) Catch ex As System.Exception End Try 'end Try dataEmployeesRow.TitleOfCourtesy = Me.txtTitleOfCourtesy.Text dataEmployeesRow.Title = Me.txtTitle.Text dataEmployeesRow.Country = Me.txtCountry.Text dataEmployeesRow.Region = Me.txtRegion.Text dataEmployeesRow.PostalCode = Me.txtPostalCode.Text dataEmployeesRow.City = Me.txtCity.Text dataEmployeesRow.Address = Me.txtStreet.Text dataEmployeesRow.FirstName = Me.txtFirstName.Text dataEmployeesRow.LastName = Me.txtLastName.Text dataEmployeesRow.Extension = Me.txtExtension.Text dataEmployeesRow.HomePhone = Me.txtHomeEmail.Text dataEmployeesRow.HomePhone = Me.txtHomePhone_.Text dataEmployeesRow.HomePhone = Me.txtWorkEmail.Text dataEmployeesRow.HomePhone = Me.txtWorkFax_.Text dataEmployeesRow.HomePhone = Me.txtWorkPhone_.Text dataEmployeesRow.Notes = Me.txtNotes.Text 'Please tpye your own Exception messages here. Try dataEmployeesRow.ReportsTo = Integer.Parse(Me.txtReportsTo.Text) Catch ex As System.Exception End Try 'end Try dataEmployeesRow.PhotoPath = Me.txtPhotoPath.Text End If 'end If (Not(dataEmployeesRow) Is Nothing) Then End Sub ' end Public Overridable Sub Save(ByVal dataEmployeesRow As suite4.net.Northwind.EmployeesRow) End Class ' end Public Class ScreenShots End Namespace ' end Namespace suite4.net