Web Development

'HACK: Temporary fix for accessing the Page object
Friend Class PageData
   Public Shared m_Page As Page
End Class

Public Class MyTypeConverter : Inherits TypeConverter
   Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As ITypeDescriptorContext) As Boolean
      Return True
   End Function

   Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As ITypeDescriptorContext) As Boolean
      Return True
   End Function

   Public Overloads Overrides Function GetStandardValues(ByVal context As ITypeDescriptorContext) As StandardValuesCollection
      Dim List As New ArrayList()
      Dim C As WebControl

      For Each C In PageData.m_Page.Controls
         List.Add(C.ID)
      Next

      Return New StandardValuesCollection(List)
   End Function
End Class

Public Class MyCustomControlSubObject
   Protected m_BuddyControl As String
   .
   .
   <TypeConverter(GetType(MyTypeConverter))> _
   Public Property BuddyControl() As String
      Get
         Return m_BuddyControl
      End Get
      Set
         m_BuddyControl = Value
      End Set
   End Property
End Class

function matchColumnWidths(tableHeading, tableData)
{
	// This only works for IE
	if (!document.all)
		return;
 
	// Verify there are rows and that the column counts match
	if (tableHeading.rows.length == 0 || 
		tableData.rows.length == 0 ||
		tableHeading.rows(0).cells.length != tableData.rows(0).cells.length)
		return;
 
	// Reset the widths of both tables
	for (var i = 0; i < tableData.rows[0].cells.length - 1; i++)
	{
		tableHeading.rows[0].cells[i].width = "";
		tableData.rows[0].cells[i].width = "";
	}
  
	// Change the heading's column widths to match the data's, for all columns except the last one
	for (var i = 0; i < tableData.rows[0].cells.length - 1; i++)
		tableHeading.rows[0].cells[i].width = tableData.rows[0].cells[i].clientWidth - 
			(tableData.cellPadding * 2 - (tableData.cellPadding - tableHeading.cellPadding) * 2) + 
			(tableData.cellSpacing - tableHeading.cellSpacing);
 
	// If there's still discrepancies, change the data's column widths to match the heading's, for all columns except the last one
	for (var i = 0; i < tableData.rows[0].cells.length - 1; i++)
	{
		if (tableHeading.rows[0].cells[i].clientWidth != tableData.rows[0].cells[i].clientWidth)
		{
			tableData.rows[0].cells[i].width = tableHeading.rows[0].cells[i].clientWidth - 
				(tableHeading.cellPadding * 2 - (tableHeading.cellPadding - tableData.cellPadding) * 2) + 
				(tableHeading.cellSpacing - tableData.cellSpacing);
		}
	}
}