Mobilize.Net Forums Blog Documentation Home

Sheridan

In the following section, defines how the Sheridan controls are upgraded.

Last updated 9 months ago

Sheridan controls (now Infragistics) were a set of components widely used in VB6 that provided some functionality not present in the built-in VB6 controls. Since these controls are so widely used Mobilize has added support for the most common of them.

The mappings created by Mobilize for these controls change some of them to equivalent third-party components in .NET or standard .NET controls. As usual, there’s also the possibility to continue using the ActiveX controls through COM Interop.

1. SSActiveTabPanel

1.1. To System.Windows.Forms.TabControl

Map UltraToolBars' SSActiveTabPanel classes to Windows Forms equivalents.

Original VB6 code:

Private Sub Form_Load()
	Dim newActiveTabs As ActiveTabs.SSActiveTabs
	Set newActiveTabs = SSActiveTabs1
	newActiveTabs.AddControl SSActiveTabPanel1
	MsgBox newActiveTabs.Caption
End Sub

C# code:

private void Form_Load()
{
	TabControl newActiveTabs = SSActiveTabs1;
	newActiveTabs.Controls.Add(SSActiveTabPanel1);
	MessageBox.Show(newActiveTabs.Name, AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
}

VB.NET code:

Private Sub Form_Load()
	Dim newActiveTabs As TabControl = SSActiveTabs1
	newActiveTabs.Controls.Add(SSActiveTabPanel1)
	MessageBox.Show(newActiveTabs.Name, My.Application.Info.Title)
End Sub

1.2. To COM Interop

This feature will take the legacy COM control and create an interoperability code wrapper to make it visible from the managed code. This means the control's functionality will remain the same since it will use the same binary, but the resulting application will depend on the legacy control.

Original VB6 code:

Private Sub Form_Load()
	Dim newActiveTabs As ActiveTabs.SSActiveTabs
	Set newActiveTabs = SSActiveTabs1
	newActiveTabs.AddControl SSActiveTabPanel1
	MsgBox newActiveTabs.Caption
End Sub

C# code:

private void Form_Load()
{
	AxActiveTabs.AxSSActiveTabs newActiveTabs = SSActiveTabs1;
	object tempRefParam = SSActiveTabPanel1;
	newActiveTabs.AddControl(ref tempRefParam);
	SSActiveTabPanel1 = (AxActiveTabs.AxSSActiveTabPanel) tempRefParam;
	MessageBox.Show(newActiveTabs.Text, AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
}

VB.NET code:

Private Sub Form_Load()
	Dim newActiveTabs As AxActiveTabs.AxSSActiveTabs = SSActiveTabs1
	newActiveTabs.AddControl(SSActiveTabPanel1)
	MessageBox.Show(newActiveTabs.Text, My.Application.Info.Title)
End Sub

2. SSActiveToolBars

2.1. To System.Windows.Forms.ToolStrip

Convert ActiveToolBars.SSActiveToolBars classes to System.Windows.Forms.ToolStrip.

By using this option the converted application will not have any reference to the COM Component.

Original VB6 code:

Private Sub Form_Load()
...
Dim tool1 As SSTool
Set tool1 = SSActiveToolBars1.Tools("ID_Label1")
SSActiveToolBars1.Tools("ID_Label1").ToolTipText = "Label Renamed tooltiptext"
str1 = UCase$(SSActiveToolBars1.Tools("ID_Label1").ToolTipText)
SSActiveToolBars1.Tools("ID_Button1").Visible = bool
Me.SSActiveToolBars1.Tools("ID_Button1").Visible = Not bool
With SSActiveToolBars1
	.Tools("ID_Button1").Visible = False
	.Tools("ID_Button1").Visible = True
End With
bool = SSActiveToolBars1.Enabled
SSActiveToolBars1.Enabled = True
SSActiveToolBars1.Enabled = False
SSActiveToolBars1.Enabled = bool
SSActiveToolBars1.Visible = True
SSActiveToolBars1.Left = 450
SSActiveToolBars1.Top = 300
End Sub

C# code:

private void Form_Load()
{
	bool bool_Renamed = false;
	ToolStripItem tool1 = SSActiveToolBars1.Items["ID_Label1"];
	SSActiveToolBars1.Items["ID_Label1"].ToolTipText = "Label Renamed tooltiptext";
	string str1 = SSActiveToolBars1.Items["ID_Label1"].ToolTipText.ToUpper();
	SSActiveToolBars1.Items["ID_Button1"].Visible = bool_Renamed;
	this.SSActiveToolBars1.Items["ID_Button1"].Visible = !bool_Renamed;
	SSActiveToolBars1.Items["ID_Button1"].Visible = false;
	SSActiveToolBars1.Items["ID_Button1"].Visible = true;
	bool_Renamed = SSActiveToolBars1.Enabled;
	SSActiveToolBars1.Enabled = true;
	SSActiveToolBars1.Enabled = false;
	SSActiveToolBars1.Enabled = bool_Renamed;
	SSActiveToolBars1.Visible = true;
	SSActiveToolBars1.Left = 450;
	SSActiveToolBars1.Top = 300;
}

VB.NET code:

Private Sub Form_Load()
	Dim bool As Boolean
	Dim tool1 As ToolStripItem = SSActiveToolBars1.Items.Item("ID_Label1")
	SSActiveToolBars1.Items.Item("ID_Label1").ToolTipText = "Label Renamed tooltiptext"
	Dim str1 As String = 	SSActiveToolBars1.Items.Item("ID_Label1").ToolTipText.ToUpper()
	SSActiveToolBars1.Items.Item("ID_Button1").Visible = bool
	Me.SSActiveToolBars1.Items.Item("ID_Button1").Visible = Not bool
	With SSActiveToolBars1
		.Items.Item("ID_Button1").Visible = False
		.Items.Item("ID_Button1").Visible = True
	End With
	bool = SSActiveToolBars1.Enabled
	SSActiveToolBars1.Enabled = True
	SSActiveToolBars1.Enabled = False
	SSActiveToolBars1.Enabled = bool
	SSActiveToolBars1.Visible = True
	SSActiveToolBars1.Left = 450
	SSActiveToolBars1.Top = 300
End Sub

2.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
...
Dim tool1 As SSTool
Set tool1 = SSActiveToolBars1.Tools("ID_Label1")
SSActiveToolBars1.Tools("ID_Label1").ToolTipText = "Label Renamed tooltiptext"
str1 = UCase$(SSActiveToolBars1.Tools("ID_Label1").ToolTipText)
SSActiveToolBars1.Tools("ID_Button1").Visible = bool
Me.SSActiveToolBars1.Tools("ID_Button1").Visible = Not bool
With SSActiveToolBars1
	.Tools("ID_Button1").Visible = False
	.Tools("ID_Button1").Visible = True
End With
bool = SSActiveToolBars1.Enabled
SSActiveToolBars1.Enabled = True
SSActiveToolBars1.Enabled = False
SSActiveToolBars1.Enabled = bool
SSActiveToolBars1.Visible = True
SSActiveToolBars1.Left = 450
SSActiveToolBars1.Top = 300
End Sub

C# code:

private void Form_Load()
{
	...
	object tempRefParam = "ID_Label1";
	ActiveToolBars.SSTool tool1 = (ActiveToolBars.SSTool) SSActiveToolBars1.Tools.Item(ref tempRefParam);
	...
	object tempRefParam2 = "ID_Label1";
	SSActiveToolBars1.Tools.Item(ref tempRefParam2).ToolTipText = "Label Renamed tooltiptext";
	object tempRefParam3 = "ID_Label1";
	string str1 = SSActiveToolBars1.Tools.Item(ref tempRefParam3).ToolTipText.ToUpper();
	...
	object tempRefParam4 = "ID_Button1";
	SSActiveToolBars1.Tools.Item(ref tempRefParam4).Visible = bool_Renamed;
	object tempRefParam5 = "ID_Button1";
	this.SSActiveToolBars1.Tools.Item(ref tempRefParam5).Visible = !bool_Renamed;
	object tempRefParam6 = "ID_Button1";
	SSActiveToolBars1.Tools.Item(ref tempRefParam6).Visible = false;
	object tempRefParam7 = "ID_Button1";
	SSActiveToolBars1.Tools.Item(ref tempRefParam7).Visible = true;
	bool_Renamed = SSActiveToolBars1.Enabled;
	SSActiveToolBars1.Enabled = true;
	SSActiveToolBars1.Enabled = false;
	SSActiveToolBars1.Enabled = bool_Renamed;
	SSActiveToolBars1.Visible = true;
	SSActiveToolBars1.Left = 30;
	SSActiveToolBars1.Top = 20;
}

VB.NET code:

Private Sub Form_Load()
	Dim bool As Boolean
	Dim tool1 As ActiveToolBars.SSTool = SSActiveToolBars1.Tools.Item("ID_Label1")
	SSActiveToolBars1.Tools.Item("ID_Label1").ToolTipText = "Label Renamed tooltiptext"
	Dim str1 As String = SSActiveToolBars1.Tools.Item("ID_Label1").ToolTipText.ToUpper()
	...
	SSActiveToolBars1.Tools.Item("ID_Button1").Visible = bool
	Me.SSActiveToolBars1.Tools.Item("ID_Button1").Visible = Not bool
	With SSActiveToolBars1
		.Tools.Item("ID_Button1").Visible = False
		.Tools.Item("ID_Button1").Visible = True
	End With
	bool = SSActiveToolBars1.Enabled
	SSActiveToolBars1.Enabled = True
	SSActiveToolBars1.Enabled = False
	SSActiveToolBars1.Enabled = bool
	SSActiveToolBars1.Visible = True
	SSActiveToolBars1.Left = 30
	SSActiveToolBars1.Top = 20
End Sub

3. SSActiveTreeView

3.1. To System.Windows.Forms.TreeView

Converts Sheridan’s SSActiveTreeView control to .NET native library.

This option converts Sheridan SSActiveTreeView to .NET native control.

The Sheridan SSActiveTreeView is a 32-bit only product that consists of a TreeView control and related classes and enums.

Original VB6 code:

Begin SSActiveTreeView.SSTree SSTree1 
	...
	PictureBackgroundUseMask=   0   'False'
	HasFont         =   0   'False'
	HasMouseIcon    =   0   'False'
	HasPictureBackground=   0   'False'
	ImageList       =   "<None>"
End

C# code:

public System.Windows.Forms.TreeView SSTree1;
...
private void  InitializeComponent(){
	...
	this.SSTree1 = new System.Windows.Forms.TreeView();
	this.SSTree1.Location = new System.Drawing.Point(232, 208);
	this.SSTree1.Name = "SSTree1";
	this.SSTree1.Size = new System.Drawing.Size(209, 129);
	this.SSTree1.TabIndex = 6;
	...
}

VB.NET code:

Public WithEvents SSTree1 As System.Windows.Forms.TreeView
...
Private Sub InitializeComponent()
	Me.SSTree1 = New System.Windows.Forms.TreeView
	Me.SSTree1.Location = New System.Drawing.Point(232, 208)
	Me.SSTree1.Name = "SSTree1"
	Me.SSTree1.Size = New System.Drawing.Size(209, 129)
	Me.SSTree1.TabIndex = 6
	...
End Sub

3.2. To COM Interop

Original VB6 code:

Begin SSActiveTreeView.SSTree SSTree1 
	...
	PictureBackgroundUseMask=   0   'False'
	HasFont         =   0   'False'
	HasMouseIcon    =   0   'False'
	HasPictureBackground=   0   'False'
	ImageList       =   "<None>"
End

C# code:

public AxSSActiveTreeView.AxSSTree SSTree1;
...
private void  InitializeComponent(){
	...
	this.SSTree1 = new AxSSActiveTreeView.AxSSTree();	
	this.SSTree1.Name = "SSTree1";
	this.SSTree1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("SSTree1.OcxState");
	...
}

VB.NET code:

Public WithEvents SSTree1 As AxSSActiveTreeView.AxSSTree
...
Private Sub InitializeComponent()
	Me.SSTree1 = New AxSSActiveTreeView.AxSSTree
	Me.SSTree1.Name = "SSTree1"
	Me.SSTree1.OcxState = CType(resources.GetObject("SSTree1.OcxState"), System.Windows.Forms.AxHost.State)
	...
End Sub

4. SSCalendarWidgets

4.1. To System.Windows.Forms Controls

Converts Sheridan’s SSCalendarWidgets controls to System.Windows.Forms.

This option converts Sheridan’s SSCalendar controls to the native System.Windows.Forms controls.

General Description:

The Sheridan SSCalendarWidgets library provides a set of controls with an intuitive graphical interface for users to view and set date information: SSDateCombo (control that allows the user to select a single item from a list of dates or times), the SSMonth (grid containing the numbered days of the month, arranged in columns underneath the days of the week, with the selected range of dates highlighted) and the SSYear control.

Deployment Note:

The following list shows which SSCalendarWidgets components are mapped to .NET equivalents:

Original VB6 code:

Begin SSCalendarWidgets_A.SSYear SSYear1 
	...
	Caption         =   "SSYear1"
	BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
		Name            =   "Small Fonts"
		...
		Strikethrough   =   0   'False
	EndProperty
End

Begin SSCalendarWidgets_A.SSDateCombo SSDateCombo1
	_Version        =   65543
End

Begin SSCalendarWidgets_A.SSMonth SSMonth1
	_Version        =   65543
End

C# code:

public  System.Windows.Forms.MonthCalendar SSYear1;
public  System.Windows.Forms.DateTimePicker SSDateCombo1;
public  System.Windows.Forms.MonthCalendar SSMonth1;

private void  InitializeComponent(){
	this.SSYear1 = new System.Windows.Forms.MonthCalendar();
	this.SSDateCombo1 = new System.Windows.Forms.DateTimePicker();
	this.SSMonth1 = new System.Windows.Forms.MonthCalendar();
	...
}

VB.NET code:

Public WithEvents SSYear1 As System.Windows.Forms.MonthCalendar
Public WithEvents SSDateCombo1 As System.Windows.Forms.DateTimePicker
Public WithEvents SSMonth1 As System.Windows.Forms.MonthCalendar

Private Sub InitializeComponent()
	Me.SSYear1 = New System.Windows.Forms.MonthCalendar
	Me.SSDateCombo1 = New System.Windows.Forms.DateTimePicker
	Me.SSMonth1 = New System.Windows.Forms.MonthCalendar
	...

4.2. To COM Interop

Original VB6 code:

Begin SSCalendarWidgets_A.SSYear SSYear1 
	...
	Caption         =   "SSYear1"
	BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
		Name            =   "Small Fonts"
		...
		Strikethrough   =   0   'False
	EndProperty
End

Begin SSCalendarWidgets_A.SSDateCombo SSDateCombo1
	_Version        =   65543
End

Begin SSCalendarWidgets_A.SSMonth SSMonth1
	_Version        =   65543
End

C# code:

public  AxSSCalendarWidgets_A.AxSSYear SSYear1;
public  AxSSCalendarWidgets_A.AxSSDateCombo SSDateCombo1;
public  AxSSCalendarWidgets_A.AxSSMonth SSMonth1;

private void  InitializeComponent(){
	this.SSYear1 = new AxSSCalendarWidgets_A.AxSSYear();
	this.SSDateCombo1 = new AxSSCalendarWidgets_A.AxSSDateCombo();
	this.SSMonth1 = new AxSSCalendarWidgets_A.AxSSMonth();
	...
}

VB.NET code:

Public WithEvents SSYear1 As AxSSCalendarWidgets_A.AxSSYear
Public WithEvents SSDateCombo1 As AxSSCalendarWidgets_A.AxSSDateCombo
Public WithEvents SSMonth1 As AxSSCalendarWidgets_A.AxSSMonth

Private Sub InitializeComponent()
	Me.SSYear1 = New AxSSCalendarWidgets_A.AxSSYear
	Me.SSDateCombo1 = New AxSSCalendarWidgets_A.AxSSDateCombo
	Me.SSMonth1 = New AxSSCalendarWidgets_A.AxSSMonth
	...

5. SSDataWidgets_B

5.1. To ComponentOne (.NET version)

Converts Sheridan’s SSDataWidgets controls to Component One .NET equivalents.

This option removes the usage of the legacy COM component.

General Description:

The Sheridan SSDataWidgets is an ActiveX library that contains the SSDBGrid, SSDBDropDown and more controls that display and manage data in a tabular fashion.

Deployment Note:

The following list shows which SSDataWidgets components are mapped to Component One .NET equivalents:

Original VB6 code:

Begin SSDataWidgets_B.SSDBDropDown SSDBDropDown1 
	...
End
Begin SSDataWidgets_B.SSDBCombo SSDBCombo1 
	...
End
Begin SSDataWidgets_B.SSDBGrid SSDBGrid1
	...
	Caption         =   "SSDBGrid1"
	...
End

C# code:

public C1.Win.C1TrueDBGrid.C1TrueDBDropDown SSDBDropDown1;
public C1.Win.C1TrueDBGrid.C1TrueDBGrid SSDBGrid1;
...
private void  InitializeComponent(){
	...
	this.SSDBDropDown1 = new C1.Win.C1TrueDBGrid.C1TrueDBDropDown();
	this.SSDBGrid1 = new C1.Win.C1TrueDBGrid.C1TrueDBGrid();
	...
}

VB.NET code:

Public WithEvents SSDBDropDown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropDown
Public WithEvents SSDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
...
Private Sub InitializeComponent()
	Me.SSDBDropDown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropDown
	Me.SSDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
	...
End Sub

5.2. To Infragistics UltraSuite (.NET version)

Converts Sheridan’s SSDataWidgets controls to Infragistics .NET equivalent controls.

This option converts SSDataWidgets controls to Infragistics.Win.UltraWinGrid.

General Description:

The Sheridan SSDataWidgets is an ActiveX library that contains the SSDBGrid, SSDBDropDown and SSDBCombo and more controls that display and manage data in a tabular fashion.

Deployment Note:

The following list shows which SSDataWidgets components are mapped to Infragistics .NET equivalents:

Original VB6 code:

Begin SSDataWidgets_B.SSDBDropDown SSDBDropDown1 
	...
End
Begin SSDataWidgets_B.SSDBCombo SSDBCombo1 
	...
End
Begin SSDataWidgets_B.SSDBGrid SSDBGrid1
	...
	Caption         =   "SSDBGrid1"
	...
End

C# code:

public  Infragistics.Win.UltraWinGrid.UltraGridColumn Column_0_SSDBDropDown1;
public  Infragistics.Win.UltraWinGrid.UltraDropDown SSDBDropDown1;
public  Infragistics.Win.UltraWinGrid.UltraCombo SSDBCombo1;
public  Infragistics.Win.UltraWinGrid.UltraGridColumn Column_0_SSDBGrid1;
public  Infragistics.Win.UltraWinGrid.UltraGrid SSDBGrid1;
...
private void  InitializeComponent(){
	...
	this.SSDBDropDown1 = new Infragistics.Win.UltraWinGrid.UltraDropDown();
	this.Column_0_SSDBDropDown1 = new Infragistics.Win.UltraWinGrid.UltraGridColumn();
	this.SSDBCombo1 = new Infragistics.Win.UltraWinGrid.UltraCombo();
	this.SSDBGrid1 = new Infragistics.Win.UltraWinGrid.UltraGrid();
	this.Column_0_SSDBGrid1 = new Infragistics.Win.UltraWinGrid.UltraGridColumn();
	...
}

VB.NET code:

Public WithEvents Column_0_SSDBDropDown1 As Infragistics.Win.UltraWinGrid.UltraGridColumn
Public WithEvents SSDBDropDown1 As Infragistics.Win.UltraWinGrid.UltraDropDown
Public WithEvents SSDBCombo1 As Infragistics.Win.UltraWinGrid.UltraCombo
Public WithEvents Column_0_SSDBGrid1 As Infragistics.Win.UltraWinGrid.UltraGridColumn
Public WithEvents SSDBGrid1 As Infragistics.Win.UltraWinGrid.UltraGrid
...
Private Sub InitializeComponent()
	Me.SSDBDropDown1 = New Infragistics.Win.UltraWinGrid.UltraDropDown
	Me.SSDBCombo1 = New Infragistics.Win.UltraWinGrid.UltraCombo
	Me.SSDBGrid1 = New Infragistics.Win.UltraWinGrid.UltraGrid
	Me.Column_0_SSDBGrid1 = New Infragistics.Win.UltraWinGrid.UltraGridColumn
	Me.Column_0_SSDBDropDown1 = New Infragistics.Win.UltraWinGrid.UltraGridColumn
	...
End

5.3. To COM Interop

Original VB6 code:

Begin SSDataWidgets_B.SSDBDropDown SSDBDropDown1 
	...
End
Begin SSDataWidgets_B.SSDBCombo SSDBCombo1 
	...
End
Begin SSDataWidgets_B.SSDBGrid SSDBGrid1
	...
	Caption         =   "SSDBGrid1"
	...
End

C# code:

public  AxSSDataWidgets_B.AxSSDBDropDown SSDBDropDown1;
public  AxSSDataWidgets_B.AxSSDBCombo SSDBCombo1;
public  AxSSDataWidgets_B.AxSSDBGrid SSDBGrid1;
...
private void  InitializeComponent(){
	...
	this.SSDBDropDown1 = new AxSSDataWidgets_B.AxSSDBDropDown();
	this.SSDBCombo1 = new AxSSDataWidgets_B.AxSSDBCombo();
	this.SSDBGrid1 = new AxSSDataWidgets_B.AxSSDBGrid();
	...
}

VB.NET code:

Public WithEvents SSDBDropDown1 As AxSSDataWidgets_B.AxSSDBDropDown
Public WithEvents SSDBCombo1 As AxSSDataWidgets_B.AxSSDBCombo
Public WithEvents SSDBGrid1 As AxSSDataWidgets_B.AxSSDBGrid
...
Private Sub InitializeComponent()
	Me.SSDBDropDown1 = New AxSSDataWidgets_B.AxSSDBDropDown
	Me.SSDBCombo1 = New AxSSDataWidgets_B.AxSSDBCombo
	Me.SSDBGrid1 = New AxSSDataWidgets_B.AxSSDBGrid
	...
End Sub

6. SSDesignerWidgetsTabs

6.1. To System.Windows.Forms.TabControl

Converts Sheridan’s SSDesignerWidgetsTabs control to a .NET native library.

This option removes the dependency on the legacy COM control.

General Description:

The Sheridan SSDesignerWidgetsTabs is an ActiveX library that contains several visual controls. The SSIndexTab contains Tab items which in turn contain controls displayed when the Tab is selected. Although the controls are placed on a Tab at design time, they are actually stored on a page of that Tab designated as page zero. This page is unique and it cannot be removed.

Deployment Note:

The following list shows which SSDesignerWidgetsTabs components are mapped to .NET equivalents:

6.2. To COM Interop

Original VB6 code:

Begin SSDesignerWidgetsTabs.SSIndexTab SSIndexTab1
	...
	BeginProperty FontSub {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
		Name            =   "MS Sans Serif"
		...
	EndProperty
	BeginProperty PageFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
		Name            =   "MS Sans Serif"
		...
	EndProperty
	BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
		Name            =   "MS Sans Serif"
		...
	EndProperty
	BeginProperty ActivePageFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
		Name            =   "MS Sans Serif"
		...
	EndProperty
End

C# code:

public AxSSDesignerWidgetsTabs.AxSSIndexTab SSIndexTab1;
...
private void  InitializeComponent(){
	...
	this.SSIndexTab1 = new AxSSDesignerWidgetsTabs.AxSSIndexTab();
	((System.ComponentModel.ISupportInitialize) 
	this.SSIndexTab1.Name = " SSIndexTab1";
	this.SSIndexTab1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("SSIndexTab1.OcxState");
	...
}

VB.NET code:

Public WithEvents SSIndexTab1 As AxSSDesignerWidgetsTabs.AxSSIndexTab
...
Private Sub InitializeComponent()
	....
	Me.SSIndexTab1 = New AxSSDesignerWidgetsTabs.AxSSIndexTab
	CType(Me.SSIndexTab1, System.ComponentModel.ISupportInitialize).BeginInit()
	Me.SSIndexTab1.Name = "SSIndexTab1"
	Me.SSIndexTab1.OcxState = CType(resources.GetObject("SSIndexTab1.OcxState"), System.Windows.Forms.AxHost.State)
	...
End Sub

7. SSListBar

7.1. To Infragistics UltraWinListBar.NET Suite

Converts Sheridan’s SSListBar controls to Infragistics UltraWinListBar.NET controls.

This option converts Sheridan SSListBar control to Infragistics UltraWinListBar.NET.

General Description:

The Sheridan ActiveListBar is a navigation control that gives applications an appearance similar to that of Microsoft Outlook. It incorporates a system of sliding Groups, each of which is identified by its header. Clicking a Group's header causes the group to become active, slide into view and display the ListItems it contains.

The ActiveListBar has a single collection of items regardless of the group where they are located. The SSListItem.Index property indicates the position of the item in the collection.

Deployment Note:

The following list shows which SSListBar components are mapped to Infragistics UltraWinListBar.NET Suite equivalents:

Original VB6 code:

Begin Listbar.SSListBar SSListBar1
    Groups(1).CurrentGroup=   -1  'True'
    Groups(1).Caption=   "New Group"
End

C# code:

public Infragistics.Win.UltraWinListBar.Group Group_1_SSListBar1;
public Infragistics.Win.UltraWinListBar.UltraListBar SSListBar1;
...
private void  InitializeComponent(){
	...
	this.SSListBar1 = new Infragistics.Win.UltraWinListBar.UltraListBar();
	this.Group_1_SSListBar1 = new Infragistics.Win.UltraWinListBar.Group();
	this.SSListBar1.SuspendLayout();
	...
}

VB.NET code:

Public WithEvents Group_1_SSListBar1 AsInfragistics.Win.UltraWinListBar.Group
Public WithEvents SSListBar1 As Infragistics.Win.UltraWinListBar.UltraListBar
...
Private Sub InitializeComponent()
	Me.SSListBar1 = New Infragistics.Win.UltraWinListBar.UltraListBar
	Me.Group_1_SSListBar1 = New Infragistics.Win.UltraWinListBar.Group
	Me.SSListBar1.SuspendLayout()
	...
End Sub

7.2. To COM Interop

Original VB6 code:

Begin Listbar.SSListBar SSListBar1
    Groups(1).CurrentGroup=   -1  'True'
    Groups(1).Caption=   "New Group"
End

C# code:

public AxListbar.AxSSListBar SSListBar1; 
...
private void  InitializeComponent(){
	...
	this.SSListBar1 = new AxListbar.AxSSListBar();
	((System.ComponentModel.ISupportInitialize) 
	this.SSListBar1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("SSListBar1.OcxState");
	...
}

VB.NET code:

Public WithEvents SSListBar1 As AxListbar.AxSSListBar
...
Private Sub InitializeComponent()
	Me.SSListBar1 = New AxListbar.AxSSListBar
	CType(Me.SSListBar1, System.ComponentModel.ISupportInitialize).BeginInit(
	Me.SSListBar1.OcxState = CType(resources.GetObject("SSListBar1.OcxState"), System.Windows.Forms.AxHost.State)
	...
End Sub

8. SSPanels

8.1. On (Empty SSPanel converted to Label)

Convert Threed.SSPanel classes to System.Windows.Forms.Label when the SSPanel doesn't have any other control inside. If it has controls inside, it will be converted to a System.Windows.Forms.Panel.

By using this option the converted application will not have any reference to the COM Component.

Original VB6 code:

Private Sub Form_Load()
    ...
    SSPanel1.Tag = "Some Tag"
    SSPanel1.Height = 1200
    SSPanel1.Width = 900
    SSPanel1.Align = 0
    X1 = SSPanel1.BackColor
    SSPanel1.Enabled = False
    Call SSPanel1.Refresh
    X2 = SSPanel1.Font
End Sub

C# code:

private void Form_Load()
{
	SSPanel1.Tag = "Some Tag";
	SSPanel1.Height = 80;
	SSPanel1.Width = 60;
	SSPanel1.Dock = DockStyle.None;
	Color X1 = SSPanel1.BackColor;
	SSPanel1.Enabled = false;
	SSPanel1.Refresh();
	string X2 = SSPanel1.Font.Name;
}

partial class Form1
{
	...
	public System.Windows.Forms.Label SSPanel1;
	...
	private void InitializeComponent()
	{
		...
		this.SSPanel1 = new System.Windows.Forms.Label();
		...
	}
	...
}

VB.NET code:

Private Sub Form_Load()
	SSPanel1.Tag = "Some Tag"
	SSPanel1.Height = 80
	SSPanel1.Width = 60
	SSPanel1.Dock = DockStyle.None
	Dim X1 As Color = SSPanel1.BackColor
	SSPanel1.Enabled = False
	SSPanel1.Refresh()
	Dim X2 As String = SSPanel1.Font.Name
End Sub

Partial Class Form1
	...
	Public WithEvents SSPanel1 As System.Windows.Forms.Label
	...
	Private Sub InitializeComponent()
		...
		Me.SSPanel1 = New System.Windows.Forms.Label()
		...

8.2. Off

Convert Threed.SSPanel classes to System.Windows.Forms.Panel.

By using this option the converted application will not have any reference to the COM Component.

Original VB6 code:

Private Sub Form_Load()
    ...
    SSPanel1.Tag = "Some Tag"
    SSPanel1.Height = 1200
    SSPanel1.Width = 900
    SSPanel1.Align = 0
    X1 = SSPanel1.BackColor
    SSPanel1.Enabled = False
    Call SSPanel1.Refresh
    X2 = SSPanel1.Font
End Sub

C# code:

private void Form_Load()
{
	SSPanel1.Tag = "Some Tag";
	SSPanel1.Height = 80;
	SSPanel1.Width = 60;
	SSPanel1.Dock = DockStyle.None;
	Color X1 = SSPanel1.BackColor;
	SSPanel1.Enabled = false;
	SSPanel1.Refresh();
	string X2 = SSPanel1.Font.Name;
}

partial class Form1
{
	...
	public System.Windows.Forms.Panel SSPanel1;
	...
	private void InitializeComponent()
	{
		...
		this.SSPanel1 = new System.Windows.Forms.Panel();
		...
	}
	...
}

VB.NET code:

Private Sub Form_Load()
	SSPanel1.Tag = "Some Tag"
	SSPanel1.Height = 80
	SSPanel1.Width = 60
	SSPanel1.Dock = DockStyle.None
	Dim X1 As Color = SSPanel1.BackColor
	SSPanel1.Enabled = False
	SSPanel1.Refresh()