Others

This section provides different options to upgrade other controls that are common in VB6 applications and that don’t fit in any of the other sections.

As with the previous options, all these components have two alternatives when upgrading them to .NET, one is to upgrade using COM Interop and the second one is to use .NET components.

1. Accusoft

1.1. To Accusoft .NET Version

General Description:

This solution converts the Accusoft VB6 library to the Accusoft.NET component.

Class

Maps to

AccusoftISISXpress7.ISISXpress

Accusoft.ISISXpressSdk.IsisXpress

AccusoftISISXpress7.ISX_SaveFileType

Accusoft.ISISXpressSdk.FileTypeInfo

AccusoftISISXpress7.ISX_ScanSetting

Accusoft.ISISXpressSdk.ScanSettingInfo

AccusoftISISXpress7.ISX_SetupOptions

Accusoft.ISISXpressSdk.SetupOptions

AccusoftImagXpress13.ImagXpress

Accusoft.ImagXpressSdk.ImageXView

AccusoftImagXpress13.enumAutoSize

Accusoft.ImagXpressSdk.AutoResizeType

AccusoftImagXpress13.enumZoomFit

Accusoft.ImagXpressSdk.ZoomToFitType

Original VB6 code:

Begin AccusoftImagXpress13Ctl.ImagXpress ImagXpress1 
...
End
Begin AccusoftISISXpress7Ctl.ISISXpress ISISXpress1 
...
End

Private Sub Command2_Click()
    Me.ISISXpress1.CreateDib = True
    Me.ISISXpress1.CreateFiles = True
    Dim driver As String
    Dim scanner As String
    Dim r As String
    r = Me.ISISXpress1.Root
    Me.ISISXpress1.Cancel
    Me.ISISXpress1.Cancel True
    Me.ISISXpress1.Cancel False
    Me.ISISXpress1.CancelImmediate
End Sub

Private Sub Form_Load()
    Me.ImagXpress1.FileName = "Tulips.jpg"
    Me.ImagXpress1.ZoomFactor = 1
    Me.ImagXpress1.ZoomToFit ZOOMFIT_BEST
    Me.ImagXpress1.DrawTextString 100, 100, "This is a sample", 0
    Dim n As Integer
    n = ImagXpress1.PageNbr
    MsgBox n
    n = ImagXpress1.Pages
    MsgBox n
    ImagXpress1.AutoSize = ISIZE_BestFit
    MsgBox ImagXpress1.FileName
    ImagXpress1.SaveFile
End Sub

Private Sub ISISXpress1_FeederEmpty(ByVal PageNumber As Long, StopScan As Boolean)
    MsgBox PageNumber
End Sub

C# code:

public Accusoft.ImagXpressSdk.ImageXView ImagXpress1;
public Accusoft.ImagXpressSdk.ImagXpress ImagXpress1_Component;
public Accusoft.ISISXpressSdk.IsisXpress ISISXpress1;
...
this.ImagXpress1 = new Accusoft.ImagXpressSdk.ImageXView();
this.ImagXpress1_Component = new Accusoft.ImagXpressSdk.ImagXpress();
this.ISISXpress1 = new Accusoft.ISISXpressSdk.IsisXpress();
...
private void Command2_Click(Object eventSender, EventArgs eventArgs)
{
	this.ISISXpress1.Output.CreateDib = true;
	this.ISISXpress1.Output.CreateFiles = true;
	string driver = "";
	string scanner = "";
	string r = this.ISISXpress1.Output.Root;
	this.ISISXpress1.Scanner.Cancel();
	this.ISISXpress1.Scanner.Cancel(true);
	this.ISISXpress1.Scanner.Cancel(false);
	this.ISISXpress1.Scanner.Cancel(true);
}

//UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior. private void Form_Load()
{
	this.ImagXpress1.Image = Accusoft.ImagXpressSdk.ImageX.FromFile(ImagXpress1_Component, "Tulips.jpg");
	this.ImagXpress1.ZoomFactor = 1;
	this.ImagXpress1.ZoomToFit(Accusoft.ImagXpressSdk.ZoomToFitType.FitBest);
	Graphics graphics = this.ImagXpress1.Image.GetGraphics();
	graphics.DrawString("This is a sample", new Font(SystemFonts.DefaultFont.Name, SystemFonts.DefaultFont.Size), new SolidBrush(Color.Black), 100, 100);
	this.ImagXpress1.Image.ReleaseGraphics(true);
	int n = ImagXpress1.Image.Page;
	MessageBox.Show(n.ToString(), AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
	n = ImagXpress1.Image.PageCount;
	MessageBox.Show(n.ToString(), AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
	ImagXpress1.AutoResize = Accusoft.ImagXpressSdk.AutoResizeType.BestFit;
	MessageBox.Show(ImagXpress1.Image.Filename, AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
	//UPGRADE_ISSUE: (2064) AccusoftImagXpress13.ImagXpress method ImagXpress1.SaveFile was not upgraded.
	ImagXpress1.SaveFile();
}

private void ISISXpress1_FeederEmpty(object eventSender, Accusoft.ISISXpressSdk.FeederEmptyEventArgs eventArgs)
{
	int PageNumber = eventArgs.PageNumber;
	bool StopScan = eventArgs.StopScan;
	MessageBox.Show(PageNumber.ToString(), AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
}

VB.NET code:

Public WithEvents ImagXpress1 As Accusoft.ImagXpressSdk.ImageXView
Public WithEvents ImagXpress1_Component As Accusoft.ImagXpressSdk.ImagXpress
Public WithEvents ISISXpress1 As Accusoft.ISISXpressSdk.IsisXpress
...
Me.ImagXpress1 = New Accusoft.ImagXpressSdk.ImageXView()
Me.ImagXpress1_Component = New Accusoft.ImagXpressSdk.ImagXpress()
Me.ISISXpress1 = New Accusoft.ISISXpressSdk.IsisXpress()
...
Private Sub Command2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command2.Click
	Me.ISISXpress1.Output.CreateDib = True
	Me.ISISXpress1.Output.CreateFiles = True
	Dim driver As String = "", scanner As String = ""
	Dim r As String = Me.ISISXpress1.Output.Root
	Me.ISISXpress1.Scanner.Cancel()
	Me.ISISXpress1.Scanner.Cancel(True)
	Me.ISISXpress1.Scanner.Cancel(False)
	Me.ISISXpress1.Scanner.Cancel(True)
End Sub

'UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior.'
Private Sub Form_Load()
	Me.ImagXpress1.Image = Accusoft.ImagXpressSdk.ImageX.FromFile(ImagXpress1_Component, "Tulips.jpg")
	Me.ImagXpress1.ZoomFactor = 1
	Me.ImagXpress1.ZoomToFit(Accusoft.ImagXpressSdk.ZoomToFitType.FitBest)
	Dim graphics As Graphics = Me.ImagXpress1.Image.GetGraphics()
	graphics.DrawString("This is a sample", New Font(SystemFonts.DefaultFont.Name, SystemFonts.DefaultFont.Size), New SolidBrush(Color.Black), 100, 100)
	Me.ImagXpress1.Image.ReleaseGraphics(True)
	Dim n As Integer = ImagXpress1.Image.Page
	MessageBox.Show(CStr(n), My.Application.Info.Title)
	n = ImagXpress1.Image.PageCount
	MessageBox.Show(CStr(n), My.Application.Info.Title)
	ImagXpress1.AutoResize = Accusoft.ImagXpressSdk.AutoResizeType.BestFit
	MessageBox.Show(ImagXpress1.Image.Filename, My.Application.Info.Title)
	'UPGRADE_ISSUE: (2064) AccusoftImagXpress13.ImagXpress method ImagXpress1.SaveFile was not upgraded.'
	ImagXpress1.SaveFile()
End Sub

Private Sub ISISXpress1_FeederEmpty(ByVal eventSender As object, ByVal eventArgs As Accusoft.ISISXpressSdk.FeederEmptyEventArgs) Handles ISISXpress1.FeederEmpty
	Dim PageNumber As Integer = eventArgs.PageNumber
	Dim StopScan As Boolean = eventArgs.StopScan
	MessageBox.Show(CStr(PageNumber), 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:

Begin AccusoftImagXpress13Ctl.ImagXpress ImagXpress1 
...
End
Begin AccusoftISISXpress7Ctl.ISISXpress ISISXpress1 
...
End

Private Sub Command2_Click()
    Me.ISISXpress1.CreateDib = True
    Me.ISISXpress1.CreateFiles = True
    Dim driver As String
    Dim scanner As String
    Dim r As String
    r = Me.ISISXpress1.Root
    Me.ISISXpress1.Cancel
    Me.ISISXpress1.Cancel True
    Me.ISISXpress1.Cancel False
    Me.ISISXpress1.CancelImmediate
End Sub

Private Sub Form_Load()
    Me.ImagXpress1.FileName = "Tulips.jpg"
    Me.ImagXpress1.ZoomFactor = 1
    Me.ImagXpress1.ZoomToFit ZOOMFIT_BEST
    Me.ImagXpress1.DrawTextString 100, 100, "This is a sample", 0
    Dim n As Integer
    n = ImagXpress1.PageNbr
    MsgBox n
    n = ImagXpress1.Pages
    MsgBox n
    ImagXpress1.AutoSize = ISIZE_BestFit
    MsgBox ImagXpress1.FileName
    ImagXpress1.SaveFile
End Sub

Private Sub ISISXpress1_FeederEmpty(ByVal PageNumber As Long, StopScan As Boolean)
    MsgBox PageNumber
End Sub

C# code:

public AxAccusoftImagXpress13.AxImagXpress ImagXpress1;
public AxAccusoftISISXpress7.AxISISXpress ISISXpress1;
...
this.ImagXpress1 = new AxAccusoftImagXpress13.AxImagXpress();
this.ISISXpress1 = new AxAccusoftISISXpress7.AxISISXpress();
...
private void Command2_Click(Object eventSender, EventArgs eventArgs)
{
	this.ISISXpress1.CreateDib = true;
	this.ISISXpress1.CreateFiles = true;
	string driver = "";
	string scanner = "";
	string r = this.ISISXpress1.Root;
	//UPGRADE_ISSUE: (2064) AccusoftISISXpress7.ISISXpress method ISISXpress1.Cancel was not upgraded.
	this.ISISXpress1.Cancel(true);
	//UPGRADE_ISSUE: (2064) AccusoftISISXpress7.ISISXpress method ISISXpress1.Cancel was not upgraded.
	this.ISISXpress1.Cancel(true);
	//UPGRADE_ISSUE: (2064) AccusoftISISXpress7.ISISXpress method ISISXpress1.Cancel was not upgraded.
	this.ISISXpress1.Cancel(false);
	this.ISISXpress1.CancelImmediate();
}

//UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior. private void Form_Load()
{
	this.ImagXpress1.FileName = "Tulips.jpg";
	this.ImagXpress1.ZoomFactor = 1;
			this.ImagXpress1.ZoomToFit(AccusoftImagXpress13.enumZoomFit.ZOOMFIT_BEST);
	this.ImagXpress1.DrawTextString(100, 100, "This is a sample", Convert.ToUInt32(0));
	int n = ImagXpress1.PageNbr;
	MessageBox.Show(n.ToString(), AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
	n = ImagXpress1.Pages;
	MessageBox.Show(n.ToString(), AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
	ImagXpress1.CtlAutoSize = AccusoftImagXpress13.enumAutoSize.ISIZE_BestFit;
	MessageBox.Show(ImagXpress1.FileName, AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
	ImagXpress1.SaveFile();
}

private void ISISXpress1_FeederEmpty(Object eventSender, AxAccusoftISISXpress7._IISISXpressEvents_FeederEmptyEvent eventArgs)
{
	MessageBox.Show(eventArgs.pageNumber.ToString(), AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
}

VB.NET code:

Public WithEvents ImagXpress1 As AxAccusoftImagXpress13.AxImagXpress
Public WithEvents ISISXpress1 As AxAccusoftISISXpress7.AxISISXpress
...
Me.ImagXpress1 = New AxAccusoftImagXpress13.AxImagXpress()
Me.ISISXpress1 = New AxAccusoftISISXpress7.AxISISXpress()
...
Private Sub Command2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command2.Click
	Me.ISISXpress1.CreateDib = True
	Me.ISISXpress1.CreateFiles = True
	Dim driver As String = "", scanner As String = ""
	Dim r As String = Me.ISISXpress1.Root
	'UPGRADE_ISSUE: (2064) AccusoftISISXpress7.ISISXpress method ISISXpress1.Cancel was not upgraded.'
	Me.ISISXpress1.Cancel()
	'UPGRADE_ISSUE: (2064) AccusoftISISXpress7.ISISXpress method ISISXpress1.Cancel was not upgraded.'
	Me.ISISXpress1.Cancel(True)
	'UPGRADE_ISSUE: (2064) AccusoftISISXpress7.ISISXpress method ISISXpress1.Cancel was not upgraded.'
	Me.ISISXpress1.Cancel(False)
	Me.ISISXpress1.CancelImmediate()
End Sub

'UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior. Private Sub Form_Load()'
	Me.ImagXpress1.FileName = "Tulips.jpg"
	Me.ImagXpress1.ZoomFactor = 1
	Me.ImagXpress1.ZoomToFit(AccusoftImagXpress13.enumZoomFit.ZOOMFIT_BEST)
	Me.ImagXpress1.DrawTextString(100, 100, "This is a sample", Convert.ToUInt32(0))
	Dim n As Integer = ImagXpress1.PageNbr
	MessageBox.Show(CStr(n), My.Application.Info.Title)
	n = ImagXpress1.Pages
	MessageBox.Show(CStr(n), My.Application.Info.Title)
	ImagXpress1.CtlAutoSize = AccusoftImagXpress13.enumAutoSize.ISIZE_BestFit
	MessageBox.Show(ImagXpress1.FileName, My.Application.Info.Title)
	ImagXpress1.SaveFile()
End Sub

Private Sub ISISXpress1_FeederEmpty(ByVal eventSender As Object, ByVal eventArgs As AxAccusoftISISXpress7._IISISXpressEvents_FeederEmptyEvent) Handles ISISXpress1.FeederEmpty
	MessageBox.Show(CStr(eventArgs.pageNumber), My.Application.Info.Title)
End Sub

2. ActiveBarLibrary

2.1. To DevExpress.XtraBars

Convert ActiveBar2Library.ActiveBar2 classes to DevExpress.XtraBars.BarManager.

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

Class

Maps to

ActiveBar2Library.ActiveBar2.BackColor

DevExpress.XtraBars.BarManager.GetBackColor

ActiveBar2Library.ActiveBar2.ForeColor

DevExpress.XtraBars.BarManager.GetForeColor

ActiveBar2Library.ActiveBar2.Font

DevExpress.XtraBars.BarManager.GetFont

ActiveBar2Library.ActiveBar2.DisplayKeysInToolTip

DevExpress.XtraBars.BarManager.ShowShorcutInScreenTips

ActiveBar2Library.ActiveBar2.DisplayToolTips

DevExpress.XtraBars.BarManager.ToolTipController

ActiveBar2Library.ActiveBar2.Enabled

DevExpress.XtraBars.BarManager.GetEnabled

ActiveBar2Library.ActiveBar2.Bands

DevExpress.XtraBars.BarManager.Bars

Original VB6 code:

Private Sub Form_Load()
    ...
    X1 = Me.ActiveBar1.ForeColor
    X2 = Me.ActiveBar1.Font
    Me.ActiveBar1.DisplayKeysInToolTip = False
    Me.ActiveBar1.DisplayToolTips = True
End Sub

C# code:

private void Form_Load()
{
	Color X1 = this.ActiveBarHelper1.GetForeColor(this.ActiveBar1);
	string X2 = this.ActiveBarHelper1.GetFont(this.ActiveBar1).Name;
	this.ActiveBar1.ShowShortcutInScreenTips = false;
	this.ActiveBar1.ToolTipController.Active = true;
}

VB.NET code:

Private Sub Form_Load()
	Dim X1 As Color = Me.ActiveBarHelper1.GetForeColor(Me.ActiveBar1)
	Dim X2 As String = Me.ActiveBarHelper1.GetFont(Me.ActiveBar1).Name
	Me.ActiveBar1.ShowShortcutInScreenTips = False
	Me.ActiveBar1.ToolTipController.Active = True
End Sub

2.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    ...
    X1 = Me.ActiveBar1.ForeColor
    X2 = Me.ActiveBar1.Font
    Me.ActiveBar1.DisplayKeysInToolTip = False
    Me.ActiveBar1.DisplayToolTips = True
End Sub

C# code:

private void Form_Load()
{
	Color X1 = this.ActiveBarHelper1.GetForeColor(this.ActiveBar1);
	string X2 = this.ActiveBarHelper1.GetFont(this.ActiveBar1).Name;
	this.ActiveBar1.ShowShortcutInScreenTips = false;
	this.ActiveBar1.ToolTipController.Active = true;
}

VB.NET code:

Private Sub Form_Load()
	Dim X1 As Color = Me.ActiveBarHelper1.GetForeColor(Me.ActiveBar1)
	Dim X2 As String = Me.ActiveBarHelper1.GetFont(Me.ActiveBar1).Name
	Me.ActiveBar1.ShowShortcutInScreenTips = False
	Me.ActiveBar1.ToolTipController.Active = True
End Sub

3. Component One Elastic

3.1. To System.Windows.Forms.Panel

This option will port the legacy COM control into the resulting application as a System.Windows.Forms.Panel control.

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

Original VB6 code:

Begin VB.Form Form1 
	...
	Begin C1SizerLibCtl.C1Elastic C1Elastic1 
		...
	End
End

Private Sub Form_Load()
	Dim ctl As C1Elastic
	Set ctl = C1Elastic1
	ctl.Align = asFill
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
End Sub

C# code:

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

private void Form_Load()
{
	Panel ctl = C1Elastic1;
	ctl.Dock = DockStyle.Fill;
	ctl.Width = 200;
	ctl.Top = 3000;
	ctl.Enabled = false;
}

VB.NET code:

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

Private Sub Form_Load()
	Dim ctl As Panel = C1Elastic1
	ctl.Dock = DockStyle.Fill
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
End Sub

3.2. To ComponentOne controls

This option will port the legacy COM control into the resulting application as a System.Windows.Forms.Panel control, along with a C1SizerLight control attached to the resulting form which handles the proportional resizing of all the controls in the form, including the mapped panel.

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

Original VB6 code:

Begin VB.Form Form1 
	...
	Begin C1SizerLibCtl.C1Elastic C1Elastic1 
		...
	End
End

Private Sub Form_Load()
	Dim ctl As C1Elastic
	Set ctl = C1Elastic1
	ctl.Align = asFill
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
End Sub

C# code:

partial class Form1
{
	...
	public System.Windows.Forms.Panel C1Elastic1;
	C1.Win.C1Sizer.C1SizerLight c1sizerlight = null;
	...
	private void InitializeComponent()
	{
		...
		this.C1Elastic1 = new System.Windows.Forms.Panel();
		this.c1sizerlight = new C1.Win.C1Sizer.C1SizerLight(this.components);
		...
	}
}

private void Form_Load()
{
	Panel ctl = C1Elastic1;
	ctl.Dock = DockStyle.Fill;
	ctl.Width = 200;
	ctl.Top = 3000;
	ctl.Enabled = false;
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents C1Elastic1 As System.Windows.Forms.Panel
	Dim c1sizerlight As C1.Win.C1Sizer.C1SizerLight
	...
	Private Sub InitializeComponent()
		...
		Me.C1Elastic1 = New System.Windows.Forms.Panel()
		Me.c1sizerlight = New C1.Win.C1Sizer.C1SizerLight(Me.components)
		...

Private Sub Form_Load()
	Dim ctl As Panel = C1Elastic1
	ctl.Dock = DockStyle.Fill
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
End Sub

3.3. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    ...
    X1 = Me.ActiveBar1.ForeColor
    X2 = Me.ActiveBar1.Font
    Me.ActiveBar1.DisplayKeysInToolTip = False
    Me.ActiveBar1.DisplayToolTips = True
End Sub

C# code:

partial class Form1
{
	...
	public System.Windows.Forms.Panel C1Elastic1;
	C1.Win.C1Sizer.C1SizerLight c1sizerlight = null;
	...
	private void InitializeComponent()
	{
		...
		this.C1Elastic1 = new System.Windows.Forms.Panel();
		this.c1sizerlight = new C1.Win.C1Sizer.C1SizerLight(this.components);
		...
	}
}


private void Form_Load()
{
	Panel ctl = C1Elastic1;
	ctl.Dock = DockStyle.Fill;
	ctl.Width = 200;
	ctl.Top = 3000;
	ctl.Enabled = false;
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents C1Elastic1 As System.Windows.Forms.Panel
	Dim c1sizerlight As C1.Win.C1Sizer.C1SizerLight
	...
	Private Sub InitializeComponent()
		...
		Me.C1Elastic1 = New System.Windows.Forms.Panel()
		Me.c1sizerlight = New C1.Win.C1Sizer.C1SizerLight(Me.components)
		...

Private Sub Form_Load()
	Dim ctl As Panel = C1Elastic1
	ctl.Dock = DockStyle.Fill
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
End Sub

4. Component One Tab

4.1. To System.Windows.Forms.TabControl

This option will port the legacy COM control into the resulting application as a System.Windows.Forms.TabControl control.

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

Original VB6 code:

Private Sub Form_Load()
    Dim ctl As C1Tab
    Dim boolValue As Boolean
    Dim numTab As Integer
    Set ctl = C1Tab1
    ctl.Align = asFill
    ctl.Width = 200
    ctl.Top = 3000
    ctl.Enabled = False
    ctl.CurrTab = 4
    ctl.AddTab "Hola2", Me.C1Tab1.NumTabs
    numTab = ctl.NumTabs
    boolValue = ctl.TabVisible(1)
    boolValue = ctl.TabEnabled(1)
    ctl.AttachPageToTab Me.Command2, Me.C1Tab1.NumTabs - 1
    ctl.Move 1000, 1000, 1000, 1000
End Sub

C# code:

private void Form_Load()
{
	TabControl ctl = C1Tab1;
	ctl.setAlign(DockStyle.Fill);
	ctl.Width = 200;
	ctl.Top = 3000;
	ctl.Enabled = false;
	ctl.SelectedIndex = 4;
	ctl.TabPages.Insert(this.C1Tab1.TabCount, "Hola2");
	int numTab = ctl.TabCount;
	bool boolValue = ctl.TabPages[1].Visible;
	boolValue = ctl.TabPages[1].Enabled;
	ctl.TabPages[this.C1Tab1.TabCount - 1].Controls.Add(this.Command2);
	this.Command2.Dock = DockStyle.Fill;
	ctl.SetBounds(67, 67, 67, 67);
}

VB.NET code:

Private Sub Form_Load()
	Dim ctl As TabControl = C1Tab1
	ctl.setAlign(DockStyle.Fill)
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
	ctl.SelectedIndex = 4
	ctl.TabPages.Insert(Me.C1Tab1.TabCount, "Hola2")
	Dim numTab As Integer = ctl.TabCount
	Dim boolValue As Boolean = ctl.TabPages(1).Visible
	boolValue = ctl.TabPages(1).Enabled
	ctl.TabPages(Me.C1Tab1.TabCount - 1).Controls.Add(Me.Command2)
	Me.Command2.Dock = DockStyle.Fill
	ctl.SetBounds(67, 67, 67, 67)
End Sub

4.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    Dim ctl As C1Tab
    Dim boolValue As Boolean
    Dim numTab As Integer
    Set ctl = C1Tab1
    ctl.Align = asFill
    ctl.Width = 200
    ctl.Top = 3000
    ctl.Enabled = False
    ctl.CurrTab = 4
    ctl.AddTab "Hola2", Me.C1Tab1.NumTabs
    numTab = ctl.NumTabs
    boolValue = ctl.TabVisible(1)
    boolValue = ctl.TabEnabled(1)
    ctl.AttachPageToTab Me.Command2, Me.C1Tab1.NumTabs - 1
    ctl.Move 1000, 1000, 1000, 1000
End Sub

C# code:

private void Form_Load()
{
	AxC1SizerLib.AxC1Tab ctl = C1Tab1;
	ctl.Align = DockStyle.Fill;
	ctl.Width = 200;
	ctl.Top = 3000;
	ctl.Enabled = false;
	ctl.CurrTab = 4;
	ctl.AddTab("Hola2", this.C1Tab1.NumTabs, null);
	int numTab = ctl.NumTabs;
	bool boolValue = ctl.get_TabVisible(1);
	boolValue = ctl.get_TabEnabled(1);
	ctl.AttachPageToTab(this.Command2, this.C1Tab1.NumTabs - 1);
	ctl.Move(1000, 1000, 1000, 1000);
}

VB.NET code:

Private Sub Form_Load()
	Dim ctl As AxC1SizerLib.AxC1Tab = C1Tab1
	ctl.Align = DockStyle.Fill
	ctl.Width = 200
	ctl.Top = 3000
	ctl.Enabled = False
	ctl.CurrTab = 4
	ctl.AddTab("Hola2", Me.C1Tab1.NumTabs)
	Dim numTab As Integer = ctl.NumTabs
	Dim boolValue As Boolean = ctl.TabVisible(1)
	boolValue = ctl.TabEnabled(1)
	ctl.AttachPageToTab(Me.Command2, Me.C1Tab1.NumTabs - 1)
	ctl.Move(1000, 1000, 1000, 1000)
End Sub

5. COMSVCSLib

5.1. To System.EnterpriseServices

Map COMSVCSLib classes and members to their .NET equivalents in System.EnterpriseServices

Class

Maps to

ObjectContext

System.EnterpriseServices.ContextUtil

SharedPropertyGroupManager

System.EnterpriseServices.SharedPropertyGroupManager

SecurityProperty

System.EnterpriseServices.SecurityCallContext

SharedProperty

System.EnterpriseServices.SharedProperty

SharedPropertyGroup

System.EnterpriseServices.SharedPropertyGroup

Original VB6 code:

Implements ObjectControl

Private Sub ObjectControl_Activate()
End Sub

Private Function ObjectControl_CanBePooled() As Boolean
	ObjectControl_CanBePooled = True
End Function

Private Sub ObjectControl_Deactivate()
End Sub

C# code:

public class clsLogon: System.EnterpriseServices.ServicedComponent
{
	protected override void Activate()
	{
	}

	protected override bool CanBePooled()
	{
		return true;
	}

	protected override void Deactivate()
	{
	}
}

VB.NET code:

Public Class clsLogon Inherits System.EnterpriseServices.ServicedComponent
	Private Sub ObjectControl_Activate() Implements COMSVCSLib.ObjectControl.Activate 
	End Sub

	Private Function ObjectControl_CanBePooled() As Boolean Implements COMSVCSLib.ObjectControl.CanBePooled 
		Return True
	End Function

	Private Sub ObjectControl_Deactivate() Implements COMSVCSLib.ObjectControl.Deactivate
	End Sub

5.2. To COM Interop

Original VB6 code:

Implements ObjectControl

Private Sub ObjectControl_Activate()
End Sub

Private Function ObjectControl_CanBePooled() As Boolean
	ObjectControl_CanBePooled = True
End Function

Private Sub ObjectControl_Deactivate()
End Sub

C# code:

public class clsLogon: COMSVCSLib.ObjectControl
{
	public void Activate()
	{
	}

	public bool CanBePooled()
	{
		return true;
	}

	public void Deactivate()
	{
	}
}

VB.NET code:

Public Class clsLogon Implements COMSVCSLib.ObjectControl
	Private Sub ObjectControl_Activate() Implements COMSVCSLib.ObjectControl.Activate
	End Sub

	Private Function ObjectControl_CanBePooled() As Boolean Implements COMSVCSLib.ObjectControl.CanBePooled
		Return True
	End Function

	Private Sub ObjectControl_Deactivate() Implements COMSVCSLib.ObjectControl.Deactivate
	End Sub

6. CRAXDRT_CRVIEWERLibCtl

6.1. To CrystalReports

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

Map CRAXDRT and CRVIEWERLibCtl classes and enums to CrystalReports equivalents.

Class

Maps to

CRAXDRT.Report

CrystalDecisions.CrystalReports.Engine.ReportDocument

CRAXDRT.IFormulaFieldDefinitions

CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinition

CRAXDRT.Report.FormulaFields

CrystalDecisions.CrystalReports.Engine.ReportDocument.DateDefinition.FormulaFields

CRAXDRT.Report.DiscardSavedData

CrystalDecisions.CrystalReports.Engine.ReportDocument.Refresh

CRAXDRT.Report.PrinterDuplex

CrystalDecisions.CrystalReports.Engine.ReportDocument.PrintOptions.PrinterDuplex

CRAXDRT.Report.PaperOrientation

CrystalDecisions.CrystalReports.Engine.ReportDocument.PrintOptions.PaperOrientation

CRAXDRT.Report.ReportTitle

CrystalDecisions.CrystalReports.Engine.ReportDocument.SummaryInfo.ReportTitle

CRAXDRT.Report.Sections

CrystalDecisions.CrystalReports.Engine.ReportDocument.ReportDefinition.Sections

CRAXDRT.FormulaFields

CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinition

CRAXDRT.Section

CrystalDecisions.CrystalReports.Engine.Section

CRAXDRT.ReportObjects

CrystalDecisions.CrystalReports.Engine.ReportObjects

CRAXDRT.SubreportObject

CrystalDecisions.CrystalReports.Engine.SubreportObject

CRVIEWERLib.CRViewer

CrystalDecisions.Windows.Forms.CrystalReportViewer

Original VB6 code:

Private Sub Form_Load()
	Dim objReport As CRAXDRT.Report
	objReport = objApplication.OpenReport(App.Path & "Report.rpt", 1)
	objReport.DiscardSavedData
End Sub

C# code:

private void Form_Load()
{
	CrystalDecisions.CrystalReports.Engine.ReportDocument tempReport = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
	tempReport.Load(Path.GetDirectoryName(Application.ExecutablePath) + "Report.rpt");
	CrystalDecisions.CrystalReports.Engine.ReportDocument objReport = (CrystalDecisions.CrystalReports.Engine.ReportDocument) tempReport;
	objReport.Refresh();
}

VB.NET code:

Private Sub Form_Load()
	Dim tempReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
	tempReport.Load(My.Application.Info.DirectoryPath & "Report.rpt")
	Dim objReport As CrystalDecisions.CrystalReports.Engine.ReportDocument = tempReport
	objReport.Refresh()
End Sub

6.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
	Dim objReport As CRAXDRT.Report
	objReport = objApplication.OpenReport(App.Path & "Report.rpt", 1)
	objReport.DiscardSavedData
End Sub

C# code:

private void Form_Load()
{
	CRAXDRT.Report objReport = (CRAXDRT.Report) objApplication.OpenReport(Path.GetDirectoryName(Application.ExecutablePath) + "Report.rpt", 1);
	objReport.DiscardSavedData();
}

VB.NET code:

Private Sub Form_Load()
	Dim objReport As CRAXDRT.Report = objApplication.OpenReport(My.Application.Info.DirectoryPath & "Report.rpt", 1)
	objReport.DiscardSavedData()
End Sub

7. CrystalReport

7.1. To CrystalReport.NET

Conversion of CrystalReport for Windows Forms using a helper class.

General Description:

CrystalReport is a business intelligence application, marketed to small and medium businesses. It allows the user to generate reports based on databases generated within Visual Basic.

Deployment Note:

The VBUC converts the CrystalReport OCX to a helper class.

Class

Maps to

Crystal.CrystalReport

UpgradeHelper.CrystalReport.CrystalReportHelper

Original VB6 code:

CrystalReport1.ReportFileName = App.Path & "/Test.rpt"
CrystalReport1.Connect = "DSN=" & "kc-qa" & ";uid=" & "sa" & ";pwd=" & "administrator"
CrystalReport1.Destination = crptToWindow

CrystalReport1.Formulas(0) = "{address.country} = '{?param1}'"
CrystalReport1.ParameterFields(0) = "param1;Costa Rica;TRUE"
CrystalReport1.SortFields(0) = "+ {address.line1}"

CrystalReport1.SQLQuery = "SELECT address.line1, address.line2, address.city, address.province, address.postcode, address.country FROM BMTAnonymized.dbo.address address WHERE province = 'ON'"

CrystalReport1.SubreportToChange = "MySubreport"
CrystalReport1.Formulas(0) = "{address.city} = '{?param1}'"
CrystalReport1.SubreportToChange = ""

CrystalReport1.Action = 1
CrystalReport1.Reset

C# code:

...
CrystalReport1.ReportFileName = Path.GetDirectoryName(Application.ExecutablePath) + "/Test.rpt";
CrystalReport1.Connect = "DSN=" + "kc-qa" + ";uid=" + "sa" + ";pwd=" + "administrator";
CrystalReport1.Destination = UpgradeHelpers.CrystalReport.CrystalReportHelper.DestinationConstants.crptToWindow;

CrystalReport1.FormulasValue(0, "{address.country} = '{?param1}'");
CrystalReport1.ParameterFieldsValue(0, "param1;Costa Rica;TRUE");
CrystalReport1.SortFieldsValue(0, "+ {address.line1}");

CrystalReport1.SQLQuery = "SELECT address.line1, address.line2, address.city, address.province, address.postcode, address.country FROM BMTAnonymized.dbo.address address WHERE province = 'ON'";

CrystalReport1.SubreportToChange = "MySubreport";
CrystalReport1.FormulasValue(0, "{address.city} = '{?param1}'");
CrystalReport1.SubreportToChange = "";

CrystalReport1.Action = 1;
CrystalReport1.Reset();

VB.NET code:

...
CrystalReport1.ReportFileName = My.Application.Info.DirectoryPath & "/Test.rpt"
CrystalReport1.Connect = "DSN=" & "kc-qa" & ";uid=" & "sa" & ";pwd=" & "administrator"
CrystalReport1.Destination = UpgradeHelpers.CrystalReport.CrystalReportHelper.DestinationConstants.crptToWindow

CrystalReport1.FormulasValue(0, "{address.country} = '{?param1}'")
CrystalReport1.ParameterFieldsValue(0, "param1;Costa Rica;TRUE")
CrystalReport1.SortFieldsValue(0, "+ {address.line1}")

CrystalReport1.SQLQuery = "SELECT address.line1, address.line2, address.city, address.province, address.postcode, address.country FROM BMTAnonymized.dbo.address address WHERE province = 'ON'"

CrystalReport1.SubreportToChange = "MySubreport"
CrystalReport1.FormulasValue(0, "{address.city} = '{?param1}'")
CrystalReport1.SubreportToChange = ""

CrystalReport1.Action = 1
CrystalReport1.Reset()
...

7.2. To COM Interop

Original VB6 code:

CrystalReport1.ReportFileName = App.Path & "/Test.rpt"
CrystalReport1.Connect = "DSN=" & "kc-qa" & ";uid=" & "sa" & ";pwd=" & "administrator"
CrystalReport1.Destination = crptToWindow

CrystalReport1.Formulas(0) = "{address.country} = '{?param1}'"
CrystalReport1.ParameterFields(0) = "param1;Costa Rica;TRUE"
CrystalReport1.SortFields(0) = "+ {address.line1}"

CrystalReport1.SQLQuery = "SELECT address.line1, address.line2, address.city, address.province, address.postcode, address.country FROM BMTAnonymized.dbo.address address WHERE province = 'ON'"

CrystalReport1.SubreportToChange = "MySubreport"
CrystalReport1.Formulas(0) = "{address.city} = '{?param1}'"
CrystalReport1.SubreportToChange = ""

CrystalReport1.Action = 1
CrystalReport1.Reset

C# code:

...
CrystalReport1.ReportFileName = Path.GetDirectoryName(Application.ExecutablePath) + "/Test.rpt";
CrystalReport1.Connect = "DSN=" + "kc-qa" + ";uid=" + "sa" + ";pwd=" + "administrator";
CrystalReport1.Destination = UpgradeHelpers.CrystalReport.CrystalReportHelper.DestinationConstants.crptToWindow;

CrystalReport1.FormulasValue(0, "{address.country} = '{?param1}'");
CrystalReport1.ParameterFieldsValue(0, "param1;Costa Rica;TRUE");
CrystalReport1.SortFieldsValue(0, "+ {address.line1}");

CrystalReport1.SQLQuery = "SELECT address.line1, address.line2, address.city, address.province, address.postcode, address.country FROM BMTAnonymized.dbo.address address WHERE province = 'ON'";

CrystalReport1.SubreportToChange = "MySubreport";
CrystalReport1.FormulasValue(0, "{address.city} = '{?param1}'");
CrystalReport1.SubreportToChange = "";

CrystalReport1.Action = 1;
CrystalReport1.Reset();

VB.NET code:

...
CrystalReport1.ReportFileName = My.Application.Info.DirectoryPath & "/Test.rpt"
CrystalReport1.Connect = "DSN=" & "kc-qa" & ";uid=" & "sa" & ";pwd=" & "administrator"
CrystalReport1.Destination = UpgradeHelpers.CrystalReport.CrystalReportHelper.DestinationConstants.crptToWindow

CrystalReport1.FormulasValue(0, "{address.country} = '{?param1}'")
CrystalReport1.ParameterFieldsValue(0, "param1;Costa Rica;TRUE")
CrystalReport1.SortFieldsValue(0, "+ {address.line1}")

CrystalReport1.SQLQuery = "SELECT address.line1, address.line2, address.city, address.province, address.postcode, address.country FROM BMTAnonymized.dbo.address address WHERE province = 'ON'"

CrystalReport1.SubreportToChange = "MySubreport"
CrystalReport1.FormulasValue(0, "{address.city} = '{?param1}'")
CrystalReport1.SubreportToChange = ""

CrystalReport1.Action = 1
CrystalReport1.Reset()
...

8. CSTextLib

8.1. To System.Windows.Forms controls

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

Map CSTextLib classes and enums to System.Windows.Forms equivalent.

Class

Maps to

CSTextLib.sicrEdit

System.Windows.Forms.MaskedTextBox

CSTextLib.sicrEdit.BorderEffect

System.Windows.Forms.MaskedTextBox.BorderStyle

CSTextLib.sidbEdit

System.Windows.Forms.MaskedTextBox

CSTextLib.sidbEdit.SelLength

System.Windows.Forms.MaskedTextBox.SelectionLength

CSTextLib.sidbEdit.SelStart

System.Windows.Forms.MaskedTextBox.SelectionStart

CSTextLib.sidbEdit.Text

System.Windows.Forms.MaskedTextBox.Text

CSTextLib.sidtEdit

System.Windows.Forms.DateTimePicker

CSTextLib.sidtEdit.Justification

System.Windows.Forms.DateTimePicker.TextAlign

CSTextLib.silgEdit

System.Windows.Forms.MaskedTextBox

CSTextLib.silgEdit.Enabled

System.Windows.Forms.MaskedTextBox.Enabled

CSTextLib.sitmEdit

System.Windows.Forms.MaskedTextBox

CSTextLib.sitmEdit.Value

System.Windows.Forms.MaskedTextBox.Text

CSTextLib.sitxEdit

System.Windows.Forms.TextBox

CSTextLib.sitxEdit.Mask

System.Windows.Forms.TextBox.Mask

CSTextLib.enumBE

System.Windows.Forms.BorderStyle

CSTextLib.enumJU

System.Windows.Forms.HorizontalAlignment

Original VB6 code:

Private Sub Form_Load()
    Dim newSidbEdit As CSTextLibCtl.sidbEdit
    newSidbEdit.Text = "Hello"
    newSidbEdit.Enabled = True
    newSidbEdit.Visible = True
    newSidbEdit.TabIndex = 4
End Sub

C# code:

private void Form_Load()
{
	MaskedTextBox newSidbEdit = null;
	newSidbEdit.Text = "Hello";
	newSidbEdit.Enabled = true;
	newSidbEdit.Visible = true;
	newSidbEdit.TabIndex = 4;
}

VB.NET code:

Private Sub Form_Load()
	Dim newSidbEdit As MaskedTextBox
	newSidbEdit.Text = "Hello"
	newSidbEdit.Enabled = True
	newSidbEdit.Visible = True
	newSidbEdit.TabIndex = 4
End Sub

8.2. To ComponentOne C1Input controls

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

This option maps:

CSTextLib classes to a Component One Winforms control equivalent.
CSTextLib enums to System.Windows.Forms enums.

Class

Maps to

CSTextLib.sicrEdit

C1.Win.C1Input.C1NumericEdit

CSTextLib.sicrEdit.BorderEffect

C1.Win.C1Input.C1NumericEdit.BorderStyle

CSTextLib.sidbEdit

C1.Win.C1Input.C1NumericEdit

CSTextLib.sidbEdit.SelLength

C1.Win.C1Input.C1NumericEdit.SelectionLength

CSTextLib.sidbEdit.SelStart

C1.Win.C1Input.C1NumericEdit.SelectionStart

CSTextLib.sidbEdit.Text

C1.Win.C1Input.C1NumericEdit.Text

CSTextLib.sidtEdit

C1.Win.C1Input.C1DateEdit

CSTextLib.sidtEdit.Justification

C1.Win.C1Input.C1DateEdit.TextAlign

CSTextLib.silgEdit

C1.Win.C1Input.C1NumericEdit

CSTextLib.silgEdit.Enabled

C1.Win.C1Input.C1NumericEdit.Enabled

CSTextLib.sitmEdit

C1.Win.C1Input.C1DateEdit

CSTextLib.sitmEdit.Value

C1.Win.C1Input.C1DateEdit.Value

CSTextLib.sitxEdit

C1.Win.C1Input.C1TextBox

CSTextLib.sitxEdit.Mask

C1.Win.C1Input.C1TextBox.EditMask

CSTextLib.enumBE

System.Windows.Forms.BorderStyle

CSTextLib.enumJU

System.Windows.Forms.HorizontalAlignment

Original VB6 code:

Private Sub Form_Load()
    Dim newSidbEdit As CSTextLibCtl.sidbEdit
    newSidbEdit.Text = "Hello"
    newSidbEdit.Enabled = True
    newSidbEdit.Visible = True
    newSidbEdit.TabIndex = 4
End Sub

C# code:

private void Form_Load()
{
	C1.Win.C1Input.C1NumericEdit newSidbEdit = null;
	newSidbEdit.Text = "Hello";
	newSidbEdit.Enabled = true;
	newSidbEdit.Visible = true;
	newSidbEdit.TabIndex = 4;
}

VB.NET code:

Private Sub Form_Load()
	Dim newSidbEdit As C1.Win.C1Input.C1NumericEdit
	newSidbEdit.Text = "Hello"
	newSidbEdit.Enabled = True
	newSidbEdit.Visible = True
	newSidbEdit.TabIndex = 4
End Sub

8.3. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    Dim newSidbEdit As CSTextLibCtl.sidbEdit
    newSidbEdit.Text = "Hello"
    newSidbEdit.Enabled = True
    newSidbEdit.Visible = True
    newSidbEdit.TabIndex = 4
End Sub

C# code:

private void Form_Load()
{
	CSTextLib.sidbEdit newSidbEdit = null;
	newSidbEdit.Text = "Hello";
	newSidbEdit.Enabled = true;
	ReflectionHelper.LetMember(newSidbEdit, "Visible", true);
	ReflectionHelper.LetMember(newSidbEdit, "TabIndex", 4);
}

VB.NET code:

Private Sub Form_Load()
	Dim newSidbEdit As CSTextLib.sidbEdit
	newSidbEdit.Text = "Hello"
	newSidbEdit.Enabled = True
	ReflectionHelper.LetMember(newSidbEdit, "Visible", True)
	ReflectionHelper.LetMember(newSidbEdit, "TabIndex", 4)
End Sub

9. CTTips

9.1. To System.Windows.Forms.ToolTip

Convert TipsLib.ctTips classes to System.Windows.Forms.ToolTip.

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

Class

Maps to

TipsLib.ctTips.Active

System.Windows.Forms.ToolTip.Active

TipsLib.ctTips.ShowText

System.Windows.Forms.ToolTip.Show

TipsLib.ctTips.HideTips

System.Windows.Forms.ToolTip.Hide

TipsLib.ctTips.Delay

System.Windows.Forms.ToolTip.Delay

TipsLib.ctTips.BackColor

System.Windows.Forms.ToolTip.BackColor

TipsLib.ctTips.ForeColor

System.Windows.Forms.ToolTip.ForeColor

TipsLib.ctTips.AddTips

System.Windows.Forms.ToolTip.SetToolTip

Original VB6 code:

Private Sub CommandExecute_Click()
    ...
    ctTips1.Delay = 20
    ctTips1.ShowText = "Operation done"
    ctTips1.Active = True
End Sub

...

Private Sub Form_Load()
    Me.ctTips1.AddTips Me.Option1.hWnd, "Adds operand 1 and operand 2 and displays the operation result"
    Me.ctTips1.AddTips Me.Option2.hWnd, "Substracts operand 2 from operand 1 and displays the operation result"
    Me.ctTips1.AddTips Me.Option3.hWnd, "Multiplies operand 1 and operand 2 and displays the operation result"
    Me.ctTips1.AddTips Me.Option4.hWnd, "Divides operand 1 by operand 2 (float division) and displays the operation result"
    Me.ctTips1.AddTips Me.Option5.hWnd, "Divides operand 1 by operand 2 (integer division) and displays the operation result"
    Me.ctTips1.AddTips Me.Option6.hWnd, "Computes operand 1 module operand 2 and displays the operation result"
    Me.ctTips1.AddTips Me.Option7.hWnd, "Computes operand 1 power operand 2 and displays the operation result"
End Sub

Private Sub TextOperand1_Click()
    ctTips1.BackColor = vbWhite
End Sub

Private Sub TextOperand2_Click()
    ctTips1.ForeColor = vbBlue
End Sub

C# code:

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

private void CommandExecute_Click(Object eventSender, EventArgs eventArgs)
{
	...
	ctTips1.InitialDelay = 20 * 100;
	ctTips1.Show("Operation done", this.ActiveControl);
	ctTips1.Active = true;
}

...

private void Form_Load()
{
	this.ctTips1.SetToolTip(this.Option1, "Adds operand 1 and operand 2 and displays the operation result");
	this.ctTips1.SetToolTip(this.Option2, "Substracts operand 2 from operand 1 and displays the operation result");
	this.ctTips1.SetToolTip(this.Option3, "Multiplies operand 1 and operand 2 and displays the operation result");
	this.ctTips1.SetToolTip(this.Option4, "Divides operand 1 by operand 2 (float division) and displays the operation result");
	this.ctTips1.SetToolTip(this.Option5, "Divides operand 1 by operand 2 (integer division) and displays the operation result");
	this.ctTips1.SetToolTip(this.Option6, "Computes operand 1 module operand 2 and displays the operation result");
	this.ctTips1.SetToolTip(this.Option7, "Computes operand 1 power operand 2 and displays the operation result");
}

private void TextOperand1_Click(Object eventSender, EventArgs eventArgs)
{
	ctTips1.BackColor = Color.White;
}

private void TextOperand2_Click(Object eventSender, EventArgs eventArgs)
{
	ctTips1.ForeColor = Color.Blue;
}

VB.NET code:

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

Private Sub CommandExecute_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles CommandExecute.Click
	...
	ctTips1.InitialDelay = 20 * 100
	ctTips1.Show("Operation done", Me.ActiveControl)
	ctTips1.Active = True
End Sub

...

Private Sub Form_Load()
	Me.ctTips1.SetToolTip(Me.Option1, "Adds operand 1 and operand 2 and displays the operation result")
	Me.ctTips1.SetToolTip(Me.Option2, "Substracts operand 2 from operand 1 and displays the operation result")
	Me.ctTips1.SetToolTip(Me.Option3, "Multiplies operand 1 and operand 2 and displays the operation result")
	Me.ctTips1.SetToolTip(Me.Option4, "Divides operand 1 by operand 2 (float division) and displays the operation result")
	Me.ctTips1.SetToolTip(Me.Option5, "Divides operand 1 by operand 2 (integer division) and displays the operation result")
	Me.ctTips1.SetToolTip(Me.Option6, "Computes operand 1 module operand 2 and displays the operation result")
	Me.ctTips1.SetToolTip(Me.Option7, "Computes operand 1 power operand 2 and displays the operation result")
End Sub

Private Sub TextOperand1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles TextOperand1.Click
	ctTips1.BackColor = Color.White
End Sub

Private Sub TextOperand2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles TextOperand2.Click
	ctTips1.ForeColor = Color.Blue
End Sub

9.2. To COM Interop

Original VB6 code:

Private Sub CommandExecute_Click()
    ...
    ctTips1.Delay = 20
    ctTips1.ShowText = "Operation done"
    ctTips1.Active = True
End Sub

...

Private Sub Form_Load()
    Me.ctTips1.AddTips Me.Option1.hWnd, "Adds operand 1 and operand 2 and displays the operation result"
    Me.ctTips1.AddTips Me.Option2.hWnd, "Substracts operand 2 from operand 1 and displays the operation result"
    Me.ctTips1.AddTips Me.Option3.hWnd, "Multiplies operand 1 and operand 2 and displays the operation result"
    Me.ctTips1.AddTips Me.Option4.hWnd, "Divides operand 1 by operand 2 (float division) and displays the operation result"
    Me.ctTips1.AddTips Me.Option5.hWnd, "Divides operand 1 by operand 2 (integer division) and displays the operation result"
    Me.ctTips1.AddTips Me.Option6.hWnd, "Computes operand 1 module operand 2 and displays the operation result"
    Me.ctTips1.AddTips Me.Option7.hWnd, "Computes operand 1 power operand 2 and displays the operation result"
End Sub

Private Sub TextOperand1_Click()
    ctTips1.BackColor = vbWhite
End Sub

Private Sub TextOperand2_Click()
    ctTips1.ForeColor = vbBlue
End Sub

C# code:

partial class Form1
{
	...
	public AxTipsLib.AxctTips ctTips1;
	...
	private void InitializeComponent()
	{
		...
		this.ctTips1 = new AxTipsLib.AxctTips();
		...
	}
	...
}

private void CommandExecute_Click(Object eventSender, EventArgs eventArgs)
{
	...
	ctTips1.Delay = 20;
	ctTips1.ShowText = "Operation done";
	ctTips1.Active = true;
}

...

private void Form_Load()
{
	this.ctTips1.AddTips(this.Option1.Handle.ToInt32(), "Adds operand 1 and operand 2 and displays the operation result");
	this.ctTips1.AddTips(this.Option2.Handle.ToInt32(), "Substracts operand 2 from operand 1 and displays the operation result");
	this.ctTips1.AddTips(this.Option3.Handle.ToInt32(), "Multiplies operand 1 and operand 2 and displays the operation result");
	this.ctTips1.AddTips(this.Option4.Handle.ToInt32(), "Divides operand 1 by operand 2 (float division) and displays the operation result");
	this.ctTips1.AddTips(this.Option5.Handle.ToInt32(), "Divides operand 1 by operand 2 (integer division) and displays the operation result");
	this.ctTips1.AddTips(this.Option6.Handle.ToInt32(), "Computes operand 1 module operand 2 and displays the operation result");
	this.ctTips1.AddTips(this.Option7.Handle.ToInt32(), "Computes operand 1 power operand 2 and displays the operation result");
}

private void TextOperand1_Click(Object eventSender, EventArgs eventArgs)
{
	ctTips1.CtlBackColor = Color.White;
}

private void TextOperand2_Click(Object eventSender, EventArgs eventArgs)
{
	ctTips1.CtlForeColor = Color.Blue;
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents ctTips1 As AxTipsLib.AxctTips
	...
	Private Sub InitializeComponent()
		...
		Me.ctTips1 = New AxTipsLib.AxctTips()
		...
	...

Private Sub CommandExecute_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles CommandExecute.Click
	...
	ctTips1.Delay = 20
	ctTips1.ShowText = "Operation done"
	ctTips1.Active = True
End Sub

...

Private Sub Form_Load()
	Me.ctTips1.AddTips(Me.Option1.Handle.ToInt32(), "Adds operand 1 and operand 2 and displays the operation result")
	Me.ctTips1.AddTips(Me.Option2.Handle.ToInt32(), "Substracts operand 2 from operand 1 and displays the operation result")
	Me.ctTips1.AddTips(Me.Option3.Handle.ToInt32(), "Multiplies operand 1 and operand 2 and displays the operation result")
	Me.ctTips1.AddTips(Me.Option4.Handle.ToInt32(), "Divides operand 1 by operand 2 (float division) and displays the operation result")
	Me.ctTips1.AddTips(Me.Option5.Handle.ToInt32(), "Divides operand 1 by operand 2 (integer division) and displays the operation result")
	Me.ctTips1.AddTips(Me.Option6.Handle.ToInt32(), "Computes operand 1 module operand 2 and displays the operation result")
	Me.ctTips1.AddTips(Me.Option7.Handle.ToInt32(), "Computes operand 1 power operand 2 and displays the operation result")
End Sub

Private Sub TextOperand1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles TextOperand1.Click
	ctTips1.CtlBackColor = Color.White
End Sub

Private Sub TextOperand2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles TextOperand2.Click
	ctTips1.CtlForeColor = Color.Blue
End Sub

10. CWUIControlsLib

10.1. To NationalInstruments Library

General Description: This feature maps the "CWUIControlsLib" set of classes to their .NET equivalent in the "NationalInstruments" library. Both the VB6 and the .NET libraries are owned by the same company called National Instruments, so there is no better alternative when mapping the set of controls defined in the VB6 library to .NET. More information about the company can be found here: https://www.ni.com/en-us.html

This feature maps the "CWUIControlsLib" set of classes to their .NET equivalent in the "NationalInstruments" library.

Original VB6 code:

...
edit1.FormatString = "#0."
edit1.Value = 40
edit1.Minimum = 1
edit1.DiscreteBase = 0
edit1.DiscreteInterval = 1
edit1.Discrete = True
edit1.RangeChecking = True
edit1.BorderStyle = cwuiBorderStyleFixedSingle
edit1.Alignment = cwuiLeftJustify
edit1.IncDecButtonPosition = cwuiLeft
edit1.ForeColorText = -2147483640
edit1.IncDecButtonVisible = True
edit1.IncDecValue = 88
...

C# code:

...
edit1.FormatMode = NationalInstruments.UI.NumericFormatMode.CreateGenericMode("#0.");
edit1.Value = 40;
edit1.Range = new NationalInstruments.UI.Range(1, edit1.Range.Maximum);
edit1.CoercionIntervalBase = 0;
edit1.CoercionInterval = 1;
edit1.CoercionMode = NationalInstruments.UI.NumericCoercionMode.ToInterval;
edit1.CoercionInterval = edit1.CoercionIntervalBase;
edit1.Range = new NationalInstruments.UI.Range(edit1.Range.Minimum, edit1.Range.Maximum);
edit1.BorderStyle = BorderStyle.FixedSingle;
edit1.TextAlign = HorizontalAlignment.Left;
edit1.UpDownAlign = LeftRightAlignment.Left;
edit1.ForeColor = SystemColors.WindowText;
edit1.InteractionMode = NationalInstruments.UI.NumericEditInteractionModes.Buttons 	| NationalInstruments.UI.NumericEditInteractionModes.Text |        	  		NationalInstruments.UI.NumericEditInteractionModes.ArrowKeys;

if (edit1.CoercionMode != NationalInstruments.UI.NumericCoercionMode.None)
{
	edit1.CoercionInterval = 88;
}
...

VB.NET code:

...
edit1.FormatMode = NationalInstruments.UI.NumericFormatMode.CreateGenericMode("0.")
edit1.Value = 40
edit1.Range = New NationalInstruments.UI.Range(1, edit1.Range.Maximum)
edit1.CoercionIntervalBase = 0
edit1.CoercionInterval = 1
edit1.CoercionMode = NationalInstruments.UI.NumericCoercionMode.ToInterval
edit1.CoercionInterval = edit1.CoercionIntervalBase
edit1.Range = New NationalInstruments.UI.Range(edit1.Range.Minimum, 	edit1.Range.Maximum)
edit1.BorderStyle = BorderStyle.FixedSingle
edit1.TextAlign = HorizontalAlignment.Left
edit1.UpDownAlign = LeftRightAlignment.Left
edit1.ForeColor = SystemColors.WindowText
edit1.InteractionMode = 	NationalInstruments.UI.NumericEditInteractionModes.Buttons Or 	NationalInstruments.UI.NumericEditInteractionModes.Text Or 	NationalInstruments.UI.NumericEditInteractionModes.ArrowKeys
If edit1.CoercionMode <> NationalInstruments.UI.NumericCoercionMode.None Then
	edit1.CoercionInterval = 88
End If
...

10.2. To COM Interop

Original VB6 code:

...
edit1.FormatString = "#0."
edit1.Value = 40
edit1.Minimum = 1
edit1.DiscreteBase = 0
edit1.DiscreteInterval = 1
edit1.Discrete = True
edit1.RangeChecking = True
edit1.BorderStyle = cwuiBorderStyleFixedSingle
edit1.Alignment = cwuiLeftJustify
edit1.IncDecButtonPosition = cwuiLeft
edit1.ForeColorText = -2147483640
edit1.IncDecButtonVisible = True
edit1.IncDecValue = 88
...

C# code:

...
edit1.FormatString = "#0.";
edit1.Value = 40;
edit1.Minimum = 1;
edit1.DiscreteBase = 0;
edit1.DiscreteInterval = 1;
edit1.Discrete = true;
edit1.RangeChecking = true;
edit1.BorderStyle = CWUIControlsLib.CWBorderStyles.cwuiBorderStyleFixedSingle;
edit1.Alignment = CWUIControlsLib.CWAlignments.cwuiLeftJustify;
edit1.IncDecButtonPosition = CWUIControlsLib.CWPositions.cwuiLeft;
edit1.ForeColorText = SystemColors.WindowText;
edit1.IncDecButtonVisible = true;
edit1.IncDecValue = 88;
...

VB.NET code:

...
edit1.FormatString = "#0."
edit1.Value = 40
edit1.Minimum = 1
edit1.DiscreteBase = 0
edit1.DiscreteInterval = 1
edit1.Discrete = True
edit1.RangeChecking = True
edit1.BorderStyle = CWUIControlsLib.CWBorderStyles.cwuiBorderStyleFixedSingle
edit1.Alignment = CWUIControlsLib.CWAlignments.cwuiLeftJustify
edit1.IncDecButtonPosition = CWUIControlsLib.CWPositions.cwuiLeft
edit1.ForeColorText = SystemColors.WindowText
edit1.IncDecButtonVisible = True
edit1.IncDecValue = 88
...

11. fpBtnAtlLibCtl

11.1. To System.Windows.Forms.Button

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

This option maps:

The fpBtn class to the Windows Button control.
fpBtnAtlLibCtl constants to the DockStyle enum.

Class

Maps to

fpBtnAtlLib.fpBtn

System.Windows.Forms.Button

fpBtnAtlLib.fpBtn.Enabled

System.Windows.Forms.Button.Enabled

fpBtnAtlLib.fpBtn.Text

System.Windows.Forms.Button.Text

fpBtnAtlLib.fpBtn.Visible

System.Windows.Forms.Button.Visible

fpBtnAtlLib.fpBtn.BackColor

System.Windows.Forms.Button.BackColor

fpBtnAtlLib.fpBtn.TabIndex

System.Windows.Forms.Button.TabIndex

fpBtnAtlLib.fpBtn.TabStop

System.Windows.Forms.Button.TabStop

fpBtnAtlLib.AutoSizeConstants

System.Windows.Forms.DockStyle

fpBtnAtlLib.AutoSizeConstants.fpAutoSizeNone

System.Windows.Forms.DockStyle.fpAutoSizeNone

Original VB6 code:

Private Sub Form_Load()
    fpBtn1.Enabled = True
    fpBtn1.Text = "Click button"
    fpBtn1.BackColor = &H8000000D
    End Sub
    
    Private Sub fpBtn1_Click()
    MsgBox "fp Button Clicked"
End Sub

C# code:

private void Form_Load()
{
	fpBtn1.Enabled = true;
	fpBtn1.Text = "Click button";
	fpBtn1.BackColor = SystemColors.Highlight;
}

private void fpBtn1_Click(Object eventSender, EventArgs eventArgs)
{
	MessageBox.Show("fp Button Clicked", AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
}

VB.NET code:

Private Sub Form_Load()
	fpBtn1.Enabled = True
	fpBtn1.Text = "Click button"
	fpBtn1.BackColor = SystemColors.Highlight
End Sub

Private Sub fpBtn1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles fpBtn1.Click
	MessageBox.Show("fp Button Clicked", My.Application.Info.Title)
End Sub

11.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    fpBtn1.Enabled = True
    fpBtn1.Text = "Click button"
    fpBtn1.BackColor = &H8000000D
    End Sub
    
    Private Sub fpBtn1_Click()
    MsgBox "fp Button Clicked"
End Sub

C# code:

private void Form_Load()
{
	fpBtn1.Enabled = true;
	fpBtn1.Text = "Click button";
	fpBtn1.BackColor = SystemColors.Highlight;
}

private void fpBtn1_ClickEvent(Object eventSender, EventArgs eventArgs)
{
	MessageBox.Show("fp Button Clicked", AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
}

VB.NET code:

Private Sub Form_Load()
	fpBtn1.Enabled = True
	fpBtn1.Text = "Click button"
	fpBtn1.BackColor = SystemColors.Highlight
End Sub

Private Sub fpBtn1_ClickEvent(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles fpBtn1.ClickEvent
	MessageBox.Show("fp Button Clicked", My.Application.Info.Title)
End Sub

12. ListPro

12.1. To native and helper classes

ListPro allows you to display list items, display single records, or items on multiple rows. FarPoint's List Pro fpCombo control will be mapped to a helper class based on the .NET ComboBox called UpgradeHelpers.Gui.ComboBoxHelper. The List Pro fpList control will be mapped to a native System.Windows.Forms.ListBox.

The VBUC is supporting the ListPro 2.0 and ListPro 3.0 versions of the control.

Original VB6 code:

Private Sub Form_Load()
    fpCombo1.AddItem "Hello"
    fpCombo1.AddItem "Hello Again", 2
    X1 = fpCombo1.BorderColor
    X2 = fpCombo1.ListCount
    X3 = fpCombo1.Row
    fpCombo1.RemoveItem 0
    fpCombo1.Clear
    fpCombo1.Text = "Hi there"
    
    fpList1.AddItem "Hello"
    fpList1.AddItem "Hello Again", 2
    X1 = fpList1.BorderColor
    X2 = fpList1.ListCount
    X3 = fpList1.Row
    fpList1.RemoveItem 0
    fpList1.Clear
    fpList1.Text = "Hi there"
End Sub

C# code:

private void Form_Load()
{
	fpCombo1.AddItem("Hello");
	fpCombo1.AddItem("Hello Again", 2);
	//UPGRADE_ISSUE: (2064) LpLib.fpCombo property fpCombo1.BorderColor was not upgraded.
	Color X1 = fpCombo1.getBorderColor();
	int X2 = fpCombo1.ListCount;
	int X3 = fpCombo1.Row;
	fpCombo1.RemoveItem(0);
	fpCombo1.Clear();
	fpCombo1.Text = "Hi there";
	
	//UPGRADE_WARNING: (2081) AddItem has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2081
	fpList1.Items.Add("Hello");
	//UPGRADE_WARNING: (2081) AddItem has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2081
	fpList1.Items.Add("Hello Again");
	//UPGRADE_ISSUE: (2064) LpLib.fpList property fpList1.BorderColor was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	X1 = fpList1.getBorderColor();
	X2 = fpList1.Items.Count;
	//UPGRADE_ISSUE: (2064) LpLib.fpList property fpList1.Row was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	X3 = fpList1.getRow();
	//UPGRADE_ISSUE: (2064) LpLib.fpList method fpList1.RemoveItem was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	fpList1.RemoveItem(0);
	fpList1.Items.Clear();
	fpList1.Text = "Hi there";
}

VB.NET code:

Private Sub Form_Load()
	fpCombo1.AddItem("Hello")
	fpCombo1.AddItem("Hello Again", 2)
	'UPGRADE_ISSUE: (2064) LpLib.fpCombo property fpCombo1.BorderColor was not upgraded.'
	Dim X1 As Color = fpCombo1.getBorderColor()
	Dim X2 As Integer = fpCombo1.ListCount
	Dim X3 As Integer = fpCombo1.Row
	fpCombo1.RemoveItem(0)
	fpCombo1.Clear()
	fpCombo1.Text = "Hi there"
	
	'UPGRADE_WARNING: (2081) AddItem has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2081
	fpList1.Items.Add("Hello")
	'UPGRADE_WARNING: (2081) AddItem has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2081
	fpList1.Items.Add("Hello Again")
	'UPGRADE_ISSUE: (2064) LpLib.fpList property fpList1.BorderColor was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	X1 = fpList1.getBorderColor()
	X2 = fpList1.Items.Count
	'UPGRADE_ISSUE: (2064) LpLib.fpList property fpList1.Row was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	X3 = fpList1.getRow()
	'UPGRADE_ISSUE: (2064) LpLib.fpList method fpList1.RemoveItem was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	fpList1.RemoveItem(0)
	fpList1.Items.Clear()
	fpList1.Text = "Hi there"
End Sub

12.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    fpCombo1.AddItem "Hello"
    fpCombo1.AddItem "Hello Again", 2
    X1 = fpCombo1.BorderColor
    X2 = fpCombo1.ListCount
    X3 = fpCombo1.Row
    fpCombo1.RemoveItem 0
    fpCombo1.Clear
    fpCombo1.Text = "Hi there"
End Sub

C# code:

private void Form_Load()
{
	fpCombo1.AddItem("Hello");
	fpCombo1.AddItem("Hello Again", 2);
	Color X1 = fpCombo1.BorderColor;
	int X2 = fpCombo1.ListCount;
	int X3 = fpCombo1.Row;
	fpCombo1.RemoveItem(0);
	fpCombo1.Clear();
	fpCombo1.CtlText = "Hi there";
}

VB.NET code:

Private Sub Form_Load()
	fpCombo1.AddItem("Hello")
	fpCombo1.AddItem("Hello Again", 2)
	Dim X1 As Color = fpCombo1.BorderColor
	Dim X2 As Integer = fpCombo1.ListCount
	Dim X3 As Integer = fpCombo1.Row
	fpCombo1.RemoveItem(0)
	fpCombo1.Clear()
	fpCombo1.CtlText = "Hi there"
End Sub

13. MemoLibfpMemo

13.1. To System.Windows.Forms.TextBox

Convert MemoLib.fpMemo classes to System.Windows.Forms.TextBox.

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

Class

Maps to

MemoLib.fpMemo.BackColor

System.Windows.Forms.TextBox.BackColor

MemoLib.fpMemo.Enabled

System.Windows.Forms.TextBox.Enabled

MemoLib.fpMemo.ForeColor

System.Windows.Forms.TextBox.ForeColor

MemoLib.fpMemo.HideSelection

System.Windows.Forms.TextBox.HideSelection

MemoLib.fpMemo.ScrollBars

System.Windows.Forms.TextBox.ScrollBars

MemoLib.fpMemo.TabIndex

System.Windows.Forms.TextBox.TabIndex

MemoLib.fpMemo.Text

System.Windows.Forms.TextBox.Text

MemoLib.fpMemo.WordWrap

System.Windows.Forms.TextBox.WordWrap

Original VB6 code:

Private Sub Form_Load()
    ...
    X1 = fpMemo1.BackColor
    X2 = fpMemo1.ForeColor
    fpMemo1.Enabled = False
    fpMemo1.Text = "Hello"
    fpMemo1.Visible = False
    fpMemo1.ScrollBars = BothAuto
End Sub

C# code:

private void Form_Load()
{
	Color X1 = fpMemo1.BackColor;
	Color X2 = fpMemo1.ForeColor;
	fpMemo1.Enabled = false;
	fpMemo1.Text = "Hello";
	fpMemo1.Visible = false;
	fpMemo1.ScrollBars = ScrollBars.Both;
}

VB.NET code:

Private Sub Form_Load()
	Dim X1 As Color = fpMemo1.BackColor
	Dim X2 As Color = fpMemo1.ForeColor
	fpMemo1.Enabled = False
	fpMemo1.Text = "Hello"
	fpMemo1.Visible = False
	fpMemo1.ScrollBars = ScrollBars.Both
End Sub

13.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    fpCombo1.AddItem "Hello"
    fpCombo1.AddItem "Hello Again", 2
    X1 = fpCombo1.BorderColor
    X2 = fpCombo1.ListCount
    X3 = fpCombo1.Row
    fpCombo1.RemoveItem 0
    fpCombo1.Clear
    fpCombo1.Text = "Hi there"
End Sub

C# code:

private void Form_Load()
{
	Color X1 = fpMemo1.CtlBackColor;
	Color X2 = fpMemo1.CtlForeColor;
	fpMemo1.Enabled = false;
	fpMemo1.Text = "Hello";
	fpMemo1.Visible = false;
	fpMemo1.ScrollBars = MemoLib.ScrollBarsConstants.BothAuto;
}

VB.NET code:

Private Sub Form_Load()
	Dim X1 As Color = fpMemo1.CtlBackColor
	Dim X2 As Color = fpMemo1.CtlForeColor
	fpMemo1.Enabled = False
	fpMemo1.Text = "Hello"
	fpMemo1.Visible = False
	fpMemo1.ScrollBars = MemoLib.ScrollBarsConstants.BothAuto
End Sub

14. PictureBox

14.1. To System.Windows.Forms.PictureBox

Converts VB.PictureBox to a .NET native PictureBox control.

This option converts the PictureBox control to .NET PictureBox control from Windows.Forms.

This optional feature maps PictureBox control to its .NET counterpart. It's a control used to display images in Windows Forms.

Class

Maps to

Vb.PictureBox

System.Windows.Forms.PictureBox

Vb.PictureBox.BorderStyle

System.Windows.Forms.PictureBox.BorderStyle

Vb.PictureBox.Picture

System.Windows.Forms.PictureBox.Image

Vb.PictureBox.AutoSize

System.Windows.Forms.PictureBox.SizeMode

Vb.PictureBox.Align

System.Windows.Forms.PictureBox.Dock

Vb.PictureBox.hDC

System.Windows.Forms.PictureBox.CreateGraphics.GetHdc

Original VB6 code:

'Load Image'
Private Sub Command1_Click()
    Picture2.Picture = LoadPicture(App.Path & "\Square.bmp")
End Sub

'Clear Image'
Private Sub Command2_Click()
    Picture2.Picture = Nothing
End Sub

'Paint in PictureBox'
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static oldX As Single
    Static oldY As Single
    Picture2.Line (oldX, oldY)-(X, Y), vbBlue
    oldX = X
    oldY = Y
End Sub

C# code:

//Load Image
private void Command1_Click(Object eventSender, EventArgs eventArgs)
{
	Picture2.Image = Image.FromFile(Path.GetDirectoryName(Application.ExecutablePath) + "\\Square.bmp");
}

//Clear Image
private void Command2_Click(Object eventSender, EventArgs eventArgs)
{
	Picture2.Image = null;
}

//Paint in PictureBox
float oldX_Picture2_MouseMove = 0;
float oldY_Picture2_MouseMove = 0;
private void Picture2_MouseMove(Object eventSender, MouseEventArgs eventArgs)
{
	int Button = (eventArgs.Button == MouseButtons.Left) ? 1 : ((eventArgs.Button == MouseButtons.Right) ? 2 : 4);
	int Shift = ((int) Control.ModifierKeys) / 65536;
	float X = eventArgs.X * 15;
	float Y = eventArgs.Y * 15;
	using (Graphics g = Picture2.CreateGraphics())
	{
		g.DrawLine(new Pen(Color.Blue), Convert.ToInt32(oldX_Picture2_MouseMove), Convert.ToInt32(oldY_Picture2_MouseMove), Convert.ToInt32(X), Convert.ToInt32(Y));
	}
	oldX_Picture2_MouseMove = X;
	oldY_Picture2_MouseMove = Y;
}

VB.NET code:

'Load Image'
Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click
	Picture2.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\Square.bmp")
End Sub

'Clear Image'
Private Sub Command2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command2.Click
	Picture2.Image = Nothing
End Sub

'Paint in PictureBox'
Private Sub Picture2_MouseMove(ByVal eventSender As Object, ByVal eventArgs As MouseEventArgs) Handles Picture2.MouseMove
	Dim Button As Integer = IIf(eventArgs.Button = MouseButtons.Left, 1, IIf(eventArgs.Button = MouseButtons.Right, 2, 4))
	Dim Shift As Integer = Control.ModifierKeys / 65536
	Dim X As Single = eventArgs.X * 15
	Dim Y As Single = eventArgs.Y * 15
	Static oldX, oldY As Single
	Using g As Graphics = Picture2.CreateGraphics()
		g.DrawLine(New Pen(Color.Blue), oldX, oldY, X, Y)
	End Using
	oldX = X
	oldY = Y
End Sub

14.2. To System.Windows.Forms.Picture helper class

Converts VB.PictureBox to a PictureBoxExtended helper class.

This option converts the PictureBox control by using a helper class, but with a high automation level.

This optional feature maps PictureBox control through a set of helper objects to provide equivalent behavior.

Class

Maps to

Vb.PictureBox

UpgradeHelpers.Gui.PictureBoxExtended

Vb.PictureBox.Picture

UpgradeHelpers.Gui.PictureBoxExtended.Image

Vb.PictureBox.CurrentX

UpgradeHelpers.Gui.PictureBoxExtended.CurrentX

Vb.PictureBox.CurrentY

UpgradeHelpers.Gui.PictureBoxExtended.CurrentY

Vb.PictureBox.ScaleHeight

UpgradeHelpers.Gui.PictureBoxExtended.ScaleHeight

Vb.PictureBox.ScaleLeft

UpgradeHelpers.Gui.PictureBoxExtended.ScaleLeft

Vb.PictureBox.FillStyle

UpgradeHelpers.Gui.PictureBoxExtended.FillStyle

Vb.PictureBox.FillColor

UpgradeHelpers.Gui.PictureBoxExtended.FillColor

Vb.PictureBox.Print

UpgradeHelpers.Gui.PictureBoxExtended.Print

Vb.PictureBox.Circle

UpgradeHelpers.Gui.PictureBoxExtended.Circle

Vb.PictureBox.Cls

UpgradeHelpers.Gui.PictureBoxExtended.Cls

VBRUN.DrawStyleConstants

System.Drawing.Drawing2D.DashStyle

VBRUN.FillStyleConstants.vbFsSolid

UpgradeHelpers.Gui.FillStyleConstants.vbFsSolid

VBRUN.FillStyleConstants.vbCross

UpgradeHelpers.Gui.FillStyleConstants.vbCross

Original VB6 code:

'Load Image'
Private Sub Command1_Click()
    Picture2.Picture = LoadPicture(App.Path & "\Square.bmp")
End Sub

'Clear Image'
Private Sub Command2_Click()
    Picture2.Picture = Nothing
End Sub

'Paint in PictureBox'
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static oldX As Single
    Static oldY As Single
    Picture2.Line (oldX, oldY)-(X, Y), vbBlue
    oldX = X
    oldY = Y
End Sub

C# code:

//Load Image
private void Command1_Click(Object eventSender, EventArgs eventArgs)
{
	Picture2.Image = Image.FromFile(Path.GetDirectoryName(Application.ExecutablePath) + "\\Square.bmp");
}

//Clear Image
private void Command2_Click(Object eventSender, EventArgs eventArgs)
{
	Picture2.Image = null;
}

//Paint in PictureBox
float oldX_Picture2_MouseMove = 0;
float oldY_Picture2_MouseMove = 0;
private void Picture2_MouseMove(Object eventSender, MouseEventArgs eventArgs)
{
	int Button = (eventArgs.Button == MouseButtons.Left) ? 1 : ((eventArgs.Button == MouseButtons.Right) ? 2 : 4);
	int Shift = ((int) Control.ModifierKeys) / 65536;
	float X = eventArgs.X * 15;
	float Y = eventArgs.Y * 15;
	Picture2.Line(oldX_Picture2_MouseMove, oldY_Picture2_MouseMove, X, Y, Color.Blue);
	oldX_Picture2_MouseMove = X;
	oldY_Picture2_MouseMove = Y;
}

VB.NET code:

'Load Image'
Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click
	Picture2.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\Square.bmp")
End Sub

'Clear Image'
Private Sub Command2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command2.Click
	Picture2.Image = Nothing
End Sub

'Paint in PictureBox'
Private Sub Picture2_MouseMove(ByVal eventSender As Object, ByVal eventArgs As MouseEventArgs) Handles Picture2.MouseMove
	Dim Button As Integer = IIf(eventArgs.Button = MouseButtons.Left, 1, IIf(eventArgs.Button = MouseButtons.Right, 2, 4))
	Dim Shift As Integer = Control.ModifierKeys / 65536
	Dim X As Single = eventArgs.X * 15
	Dim Y As Single = eventArgs.Y * 15
	Static oldX, oldY As Single
	Picture2.Line(oldX, oldY, X, Y, Color.Blue)
	oldX = X
	oldY = Y
End Sub

15. Printer

15.1. To .NET Printer helper class

Converts VB.Global.Printer to a .NET native Printer helper class.

This option converts the class Printer by using a .NET native Printer helper class.

This optional feature maps Printer to its .NET counterpart by using a helper.

Every mapping of VB.Global.Printer will be upgraded to PrinterHelper.Printer.

Original VB6 code:

Private Sub Command1_Click()
	Printer.FontName = "Verdana"
	Printer.FontSize = 16
	Printer.FontBold = True
	Printer.FontItalic = True
	Printer.FontUnderline = True
	Printer.Print "This is an example"
	Printer.EndDoc
End Sub

Private Sub Form_Load()
Dim prnPrinter As Printer
For Each prnPrinter In Printers
	If prnPrinter.DeviceName = "Device1" Then
		Set Printer = prnPrinter
	Exit For
End If
Next
End Sub

C# code:

private void Command1_Click(Object eventSender, EventArgs eventArgs)
{
	PrinterHelper.Printer.FontName = "Arial";
	PrinterHelper.Printer.FontSize = 14;
	PrinterHelper.Printer.FontBold = true;
	PrinterHelper.Printer.FontItalic = true;
	PrinterHelper.Printer.FontUnderline = true;
	PrinterHelper.Printer.Print("This is an example");
	PrinterHelper.Printer.EndDoc();
}

//UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior.
private void Form_Load()
{
	PrinterHelper prnPrinter = null;
	foreach (PrinterHelper prnPrinterIterator in PrinterHelper.Printers)
	{
		prnPrinter = prnPrinterIterator;
		if (PrinterHelper.Printer.DeviceName == "Device1")
		{
			PrinterHelper.Printer = prnPrinter;
			break;
		}
	}
}

VB.NET code:

Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click
	PrinterHelper.Printer.FontName = "Arial"
	PrinterHelper.Printer.FontSize = 14
	PrinterHelper.Printer.FontBold = True
	PrinterHelper.Printer.FontItalic = True
	PrinterHelper.Printer.FontUnderline = True
	PrinterHelper.Printer.Print("This is an example")
	PrinterHelper.Printer.EndDoc()
End Sub

'UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior.'
Private Sub Form_Load()
	Dim prnPrinter As PrinterHelper
	For Each prnPrinterIterator As PrinterHelper In PrinterHelper.Printers
		prnPrinter = prnPrinterIterator
		If PrinterHelper.Printer.DeviceName = "Device1" Then
			PrinterHelper.Printer = prnPrinter
			Exit For
		End If
	Next prnPrinterIterator
End Sub

15.2. To PowerPacks helper class

Convert VB.Global.Printer to Helper using VisualBasic.PowerPacks.Printing.Compatibility.VB6.Printer.

This option converts the class Printer through helper using Printer from namespace Microsoft.VisualBasic.

This optional feature maps Printer to its .NET counterpart through a helper using Printer from Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 provided by Microsoft.

The PowerPacks provides a Printer object for use by upgraded VB6 code.

Class

Maps to

Vb.Printer.FontName

PowerPacksPrinterHelper.Instance.FontName

Vb.Printer.ColorMode

PowerPacksPrinterHelper.Instance.ColorMode

Vb.Printer.Copies

PowerPacksPrinterHelper.Instance.Copies

Vb.Printer.CurrentX

PowerPacksPrinterHelper.Instance.CurrentX

Vb.Printer.CurrentY

PowerPacksPrinterHelper.Instance.CurrentY

Vb.Printer.DeviceName

PowerPacksPrinterHelper.Instance.DeviceName

Vb.Printer.FontItalic

PowerPacksPrinterHelper.Instance.FontItalic

Vb.Printer.FontSize

PowerPacksPrinterHelper.Instance.FontSize

Original VB6 code:

Private Sub Command1_Click()
	Printer.FontName = "Verdana"
	Printer.FontSize = 16
	Printer.FontBold = True
	Printer.FontItalic = True
	Printer.FontUnderline = True
	Printer.Print "This is an example"
	Printer.EndDoc
End Sub

Private Sub Form_Load()
Dim prnPrinter As Printer
For Each prnPrinter In Printers
	If prnPrinter.DeviceName = "Device1" Then
		Set Printer = prnPrinter
	Exit For
End If
Next
End Sub

C# code:

private void Command1_Click(Object eventSender, EventArgs eventArgs)
{
	PowerPacksPrinterHelper.Instance.FontName = "Arial";
	PowerPacksPrinterHelper.Instance.FontSize = 14;
	PowerPacksPrinterHelper.Instance.FontBold = true;
	PowerPacksPrinterHelper.Instance.FontItalic = true;
	PowerPacksPrinterHelper.Instance.FontUnderline = true;
	PowerPacksPrinterHelper.Instance.Print("This is an example");
	PowerPacksPrinterHelper.Instance.EndDoc();
}

//UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior.
private void Form_Load()
{
	PrinterHelper prnPrinter = null;
	foreach (PrinterHelper prnPrinterIterator in PrinterHelper.Printers)
	{
		prnPrinter = prnPrinterIterator;
		if (PowerPacksPrinterHelper.Instance.DeviceName == "Device1")
		{
			PrinterHelper.Printer = prnPrinter;
			break;
		}
	}
}

VB.NET code:

Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click
	PowerPacksPrinterHelper.Instance.FontName = "Arial"
	PowerPacksPrinterHelper.Instance.FontSize = 14
	PowerPacksPrinterHelper.Instance.FontBold = True
	PowerPacksPrinterHelper.Instance.FontItalic = True
	PowerPacksPrinterHelper.Instance.FontUnderline = True
	PowerPacksPrinterHelper.Instance.Print("This is an example")
	PowerPacksPrinterHelper.Instance.EndDoc()
End Sub

'UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load method and has a new behavior.'
Private Sub Form_Load()
	Dim prnPrinter As PrinterHelper
	For Each prnPrinterIterator As PrinterHelper In PrinterHelper.Printers
		prnPrinter = prnPrinterIterator
		If PowerPacksPrinterHelper.Instance.DeviceName = "Device1" Then
			PrinterHelper.Printer = prnPrinter
			Exit For
		End If
	Next prnPrinterIterator
End Sub

16. TDBDate6

16.1. To System.Windows.Forms.DateTimePicker

Convert TDBDate6.TDBDate classes to System.Windows.Forms.DateTimePicker.

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

Class

Maps to

TDBDate6.TDBDate.Enabled

System.Windows.Forms.DateTimePicker.Enabled

TDBDate6.TDBDate.Font

System.Windows.Forms.DateTimePicker.Font

TDBDate6.TDBDate.Height

System.Windows.Forms.DateTimePicker.Height

TDBDate6.TDBDate.Left

System.Windows.Forms.DateTimePicker.Left

TDBDate6.TDBDate.Text

System.Windows.Forms.DateTimePicker.Text

TDBDate6.TDBDate.ValueIsNull

System.Windows.Forms.DateTimePicker.ValueIsNull

TDBDate6.TDBDate.Width

System.Windows.Forms.DateTimePicker.Width

TDBDate6.TDBDate.MaxDate

System.Windows.Forms.DateTimePicker.MaxDate

Original VB6 code:

Private Sub Form_Load()
    Dim X1 As TDBDate
    X1.Enabled = True
    Font1 = X1.Font
    X1.Height = 450
    X1.Left = 150
    Value1 = X1.Value
    X1.MaxDate = "12/31/2025"
    Tex1 = X1.Text
    X1.Text = "New Date"
End Sub

C# code:

private void Form_Load()
{
	DateTimePicker X1 = null;
	X1.Enabled = true;
	string Font1 = X1.Font.Name;
	X1.Height = 450;
	X1.Left = 150;
	object Value1 = X1.GetValue();
	X1.MaxDate = DateTime.Parse("12/31/2025");
	string Tex1 = X1.Text;
	X1.Text = "New Date";
}

VB.NET code:

Private Sub Form_Load()
	Dim X1 As DateTimePicker
	X1.Enabled = True
	Dim Font1 As String = X1.Font.Name
	X1.Height = 450
	X1.Left = 150
	Dim Value1 As Object = X1.GetValue()
	X1.MaxDate = CDate("12/31/2025")
	Dim Tex1 As String = X1.Text
	X1.Text = "New Date"
End Sub

16.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    Dim X1 As TDBDate
    X1.Enabled = True
    Font1 = X1.Font
    X1.Height = 450
    X1.Left = 150
    Value1 = X1.Value
    X1.MaxDate = "12/31/2025"
    Tex1 = X1.Text
    X1.Text = "New Date"
End Sub

C# code:

private void Form_Load()
{
	AxTDBDate6.AxTDBDate X1 = null;
	X1.Enabled = true;
	string Font1 = X1.Font.Name;
	X1.Height = 30;
	X1.Left = 10;
	object Value1 = X1.Value;
	X1.MaxDate = "12/31/2025";
	string Tex1 = X1.CtlText;
	X1.CtlText = "New Date";
}

VB.NET code:

Private Sub Form_Load()
	Dim X1 As AxTDBDate6.AxTDBDate
	X1.Enabled = True
	Dim Font1 As String = X1.Font.Name
	X1.Height = 30
	X1.Left = 10
	Dim Value1 As Object = X1.Value
	X1.MaxDate = "12/31/2025"
	Dim Tex1 As String = X1.CtlText
	X1.CtlText = "New Date"
End Sub

17. TDBTime6

17.1. To System.Windows.Forms.DateTimePicker

Convert TDBTime6.TDBTime classes to System.Windows.Forms.DateTimePicker.

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

Class

Maps to

TDBTime6.TDBTime.Enabled

System.Windows.Forms.DateTimePicker.Enabled

TDBTime6.TDBTime.Top

System.Windows.Forms.DateTimePicker.Top

TDBTime6.TDBTime.Height

System.Windows.Forms.DateTimePicker.Height

TDBTime6.TDBTime.Left

System.Windows.Forms.DateTimePicker.Left

TDBTime6.TDBTime.Text

System.Windows.Forms.DateTimePicker.Text

TDBTime6.TDBTime.ValueIsNull

System.Windows.Forms.DateTimePicker.ValueIsNull

TDBTime6.TDBTime.Width

System.Windows.Forms.DateTimePicker.Width

TDBTime6.TDBTime.TabIndex

System.Windows.Forms.DateTimePicker.TabIndex

Original VB6 code:

Private Sub Form_Load()
    Dim x1 As TDBTime
    x1.Enabled = True
    Font1 = x1.Font
    x1.Height = 600
    x1.Text = "New Time"
    x1.Top = 150
    x1.Value = "11:32:20"
    Value1 = x1.Value
End Sub

C# code:

private void Form_Load()
{
	DateTimePicker x1 = null;
	x1.Enabled = true;
	string Font1 = x1.Font.Name;
	x1.Height = 600;
	x1.Text = "New Time";
	x1.Top = 150;
	//UPGRADE_WARNING: (2081) Value has a new behavior.
	x1.SetValue("11:32:20");
	object Value1 = x1.GetValue();
}

VB.NET code:

Private Sub Form_Load()
	Dim x1 As DateTimePicker
	x1.Enabled = True
	Dim Font1 As String = x1.Font.Name
	x1.Height = 600
	x1.Text = "New Time"
	x1.Top = 150
	'UPGRADE_WARNING: (2081) Value has a new behavior.'
	x1.SetValue("11:32:20")
	Dim Value1 As Object = x1.GetValue()
End Sub

17.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    Dim x1 As TDBTime
    x1.Enabled = True
    Font1 = x1.Font
    x1.Height = 600
    x1.Text = "New Time"
    x1.Top = 150
    x1.Value = "11:32:20"
    Value1 = x1.Value
End Sub

C# code:

private void Form_Load()
{
	AxTDBTime6.AxTDBTime x1 = null;
	x1.Enabled = true;
	string Font1 = x1.Font.Name;
	x1.Height = 40;
	x1.CtlText = "New Time";
	x1.Top = 10;
	x1.Value = "11:32:20";
	object Value1 = x1.Value;
}

VB.NET code:

Private Sub Form_Load()
	Dim x1 As AxTDBTime6.AxTDBTime
	x1.Enabled = True
	Dim Font1 As String = x1.Font.Name
	x1.Height = 40
	x1.CtlText = "New Time"
	x1.Top = 10
	x1.Value = "11:32:20"
	Dim Value1 As Object = x1.Value
End Sub

18. TeeChart

18.1. To Steema TeeChart for .NET v4

Convert Steema TeeChart to .NET Steema TeeChart.

This option converts the TeeChart control to the .NET TeeChart control.

General Description:

This optional feature maps Steema TeeChart Pro Activex Control v5 to its .NET counterpart provided by the same company: Steema TeeChart for .NET v4.

Class

Maps to

TeeChart.TChart

Steema.TeeChart.TChart

TeeChart.ILegend

Steema.TeeChart.Legend

TeeChart.IExport

Steema.TeeChart.Export.Exports

TeeChart.ISeries

Steema.TeeChart.Styles.Series

TeeChart.IValueList

Steema.TeeChart.Styles.ValueList

TeeChart.EVerticalAxis

Steema.TeeChart.Styles.VerticalAxis

TeeChart.IGanttSeries

Steema.TeeChart.Styles.Gantt

TeeChart.IPointer

Steema.TeeChart.Styles.SeriesPointer

TeeChart.EPointerStyle

Steema.TeeChart.Styles.PointerStyles

TeeChart.ITitles

Steema.TeeChart.Header

TeeChart.IPanel

Steema.TeeChart.Panel

TeeChart.ESeriesClass

Steema.TeeChart.Styles.*, the migration depends on the context:

Steema.TeeChart.Styles.Bar
Steema.TeeChart.Styles.Gantt
Steema.TeeChart.Styles.Line
Steema.TeeChart.Styles.Points

TeeChart.ICanvas

Steema.TeeChart.Drawing.Graphics3D

TeeChart.IPen

The migration depends on the context, the following classes are used:

Steema.TeeChart.Drawing.ChartPen
Steema.TeeChart.Axis.GridPen
Steema.TeeChart.Axis.TicksPen

TeeChart.EChartPenStyle

System.Drawing.Drawing2D.DashStyle

TeeChart.IBrush

Steema.TeeChart.Drawing.ChartBrush

TeeChart.IAxes

Steema.TeeChart.Axes

TeeChart.IAxis

Steema.TeeChart.Axis

TeeChart.IAxisTitle

Steema.TeeChart.AxisTitle

TeeChart.IAxisLabels

Steema.TeeChart.AxisLabels

TeeChart.EAxisLabelStyle

Steema.TeeChart.AxisLabelStyle

TeeChart.IChartFont

Steema.TeeChart.Drawing.ChartFont

Original VB6 code:

Dim ctl As TChart
Set ctl = TChart1
ctl.Series(0).Clear
For i = 1 To 10
    ctl.Series(0).Add 500 * Rnd + 100, "P" & i, 65535 / i
Next i

C# code:

Steema.TeeChart.TChart ctl = TChart1;
ctl.Series[0].Clear();
for (int i = 1; i <= 10; i++)
{
	ctl.Series[0].Add(500 * VBMath.Rnd() + 100, "P" + Convert.ToString(i), 65535 / Convert.ToDouble(i);
}

VB.NET code:

Dim ctl As Steema.TeeChart.TChart = TChart1
ctl.Series(0).Clear()
For i As Integer = 1 To 10
	ctl.Series(0).Add(500 * VBMath.Rnd() + 100, CDbl("P" & i), CStr(65535 / i))
Next i

18.2. To COM Interop

Original VB6 code:

Dim ctl As TChart
Set ctl = TChart1
ctl.Series(0).Clear
For i = 1 To 10
    ctl.Series(0).Add 500 * Rnd + 100, "P" & i, 65535 / i
Next i

C# code:

AxTeeChart.AxTChart ctl = TChart1;
ctl.Series(0).Clear();
for (int i = 1; i <= 10; i++)
{
    ctl.Series(0).Add(500 * VBMath.Rnd() + 100, "P" + i.ToString(), ColorTranslator.FromOle(65535 / ((int) i)));
}

VB.NET code:

Dim ctl As AxTeeChart.AxTChart = TChart1
ctl.Series(0).Clear()
For i As Integer = 1 To 10
	ctl.Series(0).Add(500 * VBMath.Rnd() + 100, "P" & i, ColorTranslator.FromOle(65535 / i))
Next i

19. VsPrinter

19.1. To ComponentOne C1PrintPreviewControl helper class

Conversion of ComponentOne VSPrinter using a C1Report helper class.

General Description:

The VSPrinter control makes it easy to create documents and reports for printing and print previewing from your applications. It only takes one statement to print plain text or RTF files, and a little more work to print graphics, tables, and formatted text. You have complete control over the printing device and document layout, including paper size and orientation, number of columns, headers and footers, page borders, shading, fonts, and so on.

Deployment Note:

The VBUC converts the Component One VSPrinter to a C1Report helper class.

Class

Maps to

ComponentOne.VSPrinter

UpgradeHelper.C1Report.C1PrintPreviewControlExtension

Original VB6 code:

Private Sub RenderFile()
    ' Set up the document'
    vp.DocName = "VSPrinter Sample"
    vp.Header = "Sample||Page %d"
    vp.Footer = Format(Now, "dd-mmm-yy") & "||" & FileName
    vp.PageBorder = pbAll
    'Read file'
    Dim sText As String
    Open FileName For Binary As #1
    sText = Input$(LOF(1), 1)
    Close #1
    'Start document'
    vp.StartDoc
    vp.Paragraph = sText
    vp.Text = vbNewLine & "This is a test of vsPrinter Text property!" 
    'appends to exisitng text.'
    vp.EndDoc
End Sub

C# code:

private void RenderFile()
{
	// Set up the document
	vp.DocName = "VSPrinter Sample";
	vp.Header = "Sample||Page %d";
	vp.Footer = DateTime.Now.ToString("dd-MMM-yy") + "||" + FileName;
	vp.PageBorder = UpgradeHelpers.C1Report.C1PrintDocumentExtension.PageBorderSettings.pbAll;
	//Read file
	string sText = "";
	FileSystem.FileOpen(1, FileName, OpenMode.Binary, OpenAccess.Default, OpenShare.Default, -1);
	sText = FileSystem.InputString(1, (int) FileSystem.LOF(1));
	FileSystem.FileClose(1);
	//Start document
	vp.StartDoc();
	vp.Paragraph = sText;
	vp.Text = Environment.NewLine + "This is a test of vsPrinter Text property!"; 
	//appends to exisitng text.
	vp.EndDoc();
}

VB.NET code:

Private Sub RenderFile()
    
    ' Set up the document'
    vp.DocName = "VSPrinter Sample"
    vp.Header = "Sample||Page %d"
    vp.Footer = DateTime.Now.ToString("dd-MMM-yy") & "||" & FileName
    vp.PageBorder = UpgradeHelpers.C1Report.C1PrintDocumentExtension.PageBorderSettings.pbAll
    'Read file'
    Dim sText As String = ""
    FileSystem.FileOpen(1, FileName, OpenMode.Binary)
    sText = FileSystem.InputString(1, FileSystem.LOF(1))
    FileSystem.FileClose(1)
    'Start document'
    vp.StartDoc()
    vp.Paragraph = sText
    vp.Text = Environment.NewLine & "This is a test of vsPrinter Text property!"
    'appends to exisitng text.'
    vp.EndDoc()
End Sub

19.2. To COM Interop

Original VB6 code:

Private Sub RenderFile()
    ' Set up the document'
    vp.DocName = "VSPrinter Sample"
    vp.Header = "Sample||Page %d"
    vp.Footer = Format(Now, "dd-mmm-yy") & "||" & FileName
    vp.PageBorder = pbAll
    'Read file'
    Dim sText As String
    Open FileName For Binary As #1
    sText = Input$(LOF(1), 1)
    Close #1
    'Start document'
    vp.StartDoc
    vp.Paragraph = sText
    vp.Text = vbNewLine & "This is a test of vsPrinter Text property!" 
    'appends to exisitng text.'
    vp.EndDoc
End Sub

C# code:

private void RenderFile()
{
	// Set up the document
	vp.DocName = "VSPrinter Sample";
	vp.Header = "Sample||Page %d";
	vp.Footer = DateTime.Now.ToString("dd-MMM-yy") + "||" + FileName;
	vp.PageBorder = VSPrinter8Lib.PageBorderSettings.pbAll;
	//Read file
	string sText = "";
	FileSystem.FileOpen(1, FileName, OpenMode.Binary, OpenAccess.Default, OpenShare.Default, -1);
	sText = FileSystem.InputString(1, (int) FileSystem.LOF(1));
	FileSystem.FileClose(1);
	//Start document
	vp.StartDoc();
	vp.Paragraph = sText;
	vp.CtlText = Environment.NewLine + "This is a test of vsPrinter Text property!"; 
	//appends to exisitng text.
	vp.EndDoc();
}

VB.NET code:

Private Sub RenderFile()
    ' Set up the document'
    vp.DocName = "VSPrinter Sample"
    vp.Header = "Sample||Page %d"
    vp.Footer = DateTime.Now.ToString("dd-MMM-yy") & "||" & FileName
    vp.PageBorder = VSPrinter8Lib.PageBorderSettings.pbAll
    'Read file'
    Dim sText As String = ""
    FileSystem.FileOpen(1, FileName, OpenMode.Binary)
    sText = FileSystem.InputString(1, FileSystem.LOF(1))
    FileSystem.FileClose(1)
    'Start document'
    vp.StartDoc()
    vp.Paragraph = sText
    vp.CtlText = Environment.NewLine & "This is a test of vsPrinter Text property!" 
    'appends to exisitng text.'
    vp.EndDoc()
End Sub

20. WshRuntimeLib

20.1. To Microsoft.Win32.RegistryKey helper class

Convert the registry operations of IWshRuntimeLib to Microsoft.Win32.RegistryKey by using some helpers.

Original VB6 code:

Dim EXAMPLE_KEYVALUE_NAME As String
EXAMPLE_KEYVALUE_NAME = "HKLM\Example\KeyName\ValueName"

Dim objWScriptShell As IWshRuntimeLibrary.IWshShell
Set objWScriptShell = New IWshRuntimeLibrary.IWshShell_Class

objWScriptShell.RegWrite EXAMPLE_KEYVALUE_NAME, "example data value", "REG_SZ"

Dim regDataValue As Variant
regDataValue = objWScriptShell.RegRead(EXAMPLE_KEYVALUE_NAME)

objWScriptShell.RegDelete EXAMPLE_KEYVALUE_NAME

C# code:

string EXAMPLE_KEYVALUE_NAME = "HKLM\\Example\\KeyName\\ValueName";

IWshRuntimeLibrary.IWshShell objWScriptShell = (IWshRuntimeLibrary.IWshShell) new IWshRuntimeLibrary.WshShell();

object tempRefParam = "example data value";
object tempRefParam2 = "REG_SZ";
RegistryHelper.RegWriteValue(EXAMPLE_KEYVALUE_NAME, ref tempRefParam, ReflectionHelper.GetPrimitiveValue<string>(ref tempRefParam2));

object regDataValue = RegistryHelper.RegReadDataValue(EXAMPLE_KEYVALUE_NAME);

RegistryHelper.RegDeleteValue(EXAMPLE_KEYVALUE_NAME);

VB.NET code:

Dim EXAMPLE_KEYVALUE_NAME As String = "HKLM\Example\KeyName\ValueName"

Dim objWScriptShell As IWshRuntimeLibrary.IWshShell = New IWshRuntimeLibrary.WshShell()

RegistryHelper.RegWriteValue(EXAMPLE_KEYVALUE_NAME, "example data value", "REG_SZ")

Dim regDataValue As Object = RegistryHelper.RegReadDataValue(EXAMPLE_KEYVALUE_NAME)

RegistryHelper.RegDeleteValue(EXAMPLE_KEYVALUE_NAME)

20.2. To COM Interop

Original VB6 code:

Dim EXAMPLE_KEYVALUE_NAME As String
EXAMPLE_KEYVALUE_NAME = "HKLM\Example\KeyName\ValueName"

Dim objWScriptShell As IWshRuntimeLibrary.IWshShell
Set objWScriptShell = New IWshRuntimeLibrary.IWshShell_Class

objWScriptShell.RegWrite EXAMPLE_KEYVALUE_NAME, "example data value", "REG_SZ"

Dim regDataValue As Variant
regDataValue = objWScriptShell.RegRead(EXAMPLE_KEYVALUE_NAME)

objWScriptShell.RegDelete EXAMPLE_KEYVALUE_NAME

C# code:

string EXAMPLE_KEYVALUE_NAME = "HKLM\\Example\\KeyName\\ValueName";

IWshRuntimeLibrary.IWshShell objWScriptShell = (IWshRuntimeLibrary.IWshShell) new IWshRuntimeLibrary.WshShell();

object tempRefParam = "example data value";
object tempRefParam2 = "REG_SZ";
objWScriptShell.RegWrite(EXAMPLE_KEYVALUE_NAME, ref tempRefParam, ref tempRefParam2);

object regDataValue = objWScriptShell.RegRead(EXAMPLE_KEYVALUE_NAME);

objWScriptShell.RegDelete(EXAMPLE_KEYVALUE_NAME);

VB.NET code:

Dim EXAMPLE_KEYVALUE_NAME As String = "HKLM\Example\KeyName\ValueName"

Dim objWScriptShell As IWshRuntimeLibrary.IWshShell = New IWshRuntimeLibrary.WshShell()

objWScriptShell.RegWrite(EXAMPLE_KEYVALUE_NAME, "example data value", "REG_SZ")

Dim regDataValue As Object = objWScriptShell.RegRead(EXAMPLE_KEYVALUE_NAME)

objWScriptShell.RegDelete(EXAMPLE_KEYVALUE_NAME)

21. XArray

21.1. To System.Array

Convert Apex XArrayObject to .NET as a System.Array.

This option converts XArray objects to .NET as a System.Array.
The VBUC supports APEX Control version 1.0.007

General Description:

The XArray object allows users to create arrays with any bounds that you want. For instance, an XArray can be declared with its lower bound starting at 5 or 1000. This kind of array declaration is not supported because .NET arrays are always zero-based.

Original VB6 code:

Dim aTest(1 To 2) As New XArrayObject.XARRAY

Dim lTestP As Variant

lTestP = aTest.Count(0)

lTestP = aTest(0, 0, 0).Value(0)

lTestP = aTest(0, 0, 0).Value(0, 1, 2, 3)

C# code:

using System; 

static Array[] aTest = ArraysHelper.InitializeArray<Array>(2);

object lTestP;	

ReflectionHelper.SetPrimitiveValue(ref lTestP, aTest[0, 0, 0].GetValue(0));
			
ReflectionHelper.SetPrimitiveValue(ref lTestP, aTest[0, 0, 0].GetValue(0, 1, 2, 3));

VB.NET code:

Imports System

Dim aTest() As Array = ArraysHelper.InitializeArray(Of Array)(2)

Dim lTestP As Object

ReflectionHelper.SetPrimitiveValue(lTestP, aTest(0, 0, 0).GetValue(0))

ReflectionHelper.SetPrimitiveValue(lTestP, aTest(0, 0, 0).GetValue(0, 1, 2, 3))

21.2. To COM Interop

Original VB6 code:

Dim aTest(1 To 2) As New XArrayObject.XARRAY

Dim lTestP As Variant

lTestP = aTest.Count(0)

lTestP = aTest(0, 0, 0).Value(0)

lTestP = aTest(0, 0, 0).Value(0, 1, 2, 3)

C# code:

using System; 

static XArrayObject.XArray[] aTest =ArraysHelper.InitializeArray<XArrayObject.XArray>(2);

object lTestP;

ReflectionHelper.SetPrimitiveValue(ref lTestP, aTest[0, 0, 0].get_Value(0));

ReflectionHelper.SetPrimitiveValue(ref lTestP, aTest[0, 0, 0].get_Value(0, 1, 2, 3));

VB.NET code:

Dim aTest() As XArrayObject.XArray = ArraysHelper.InitializeArray(Of XArrayObject.XArray)(2)

ReflectionHelper.SetPrimitiveValue(lTestP, aTest(0, 0, 0).get_Value(0))

ReflectionHelper.SetPrimitiveValue(lTestP, aTest(0, 0, 0).get_Value(0, 1, 2, 3))

22. XArrayDB

22.1. To System.Data.DataTable helper class

The migrated code may change depending on the use in Visual Basic 6.

General Description:

The XArrayDB object implements a two-dimensional array of arbitrary variants. XArrayDB objects automatically shift their contents when rows (or columns) are inserted or deleted. Also, the XArrayDB object is used as a data source for a ComponentOne True DBGrid control in storage mode. You can even use XArrayDB outside the context of True DBGrid, as it is packaged as a separate file, XADB8.OCX, which is not dependent on any of the grid .OCX files.

The XArray object can be upgraded to .NET as a System.Array. However, if this object is used to populate an ActiveX TrueDBGrid control, this approach does not work when the TrueDBGrid is converted to a .NET equivalent, because bindable .NET controls must be linked to controls that implement the IListSource interface such as DataSets or DataTables.

The Visual Basic Upgrade Companion assumes XArrayDbObjects are used for managing a two dimensions array. XArrayDBObjects are converted to a Support class that inherits from System.Data.DataTable class.

Original VB6 code:

'General declarations'
Dim x As New XArrayDB
'Allocate space for 100 rows, 4 columns'
x.ReDim 0, 99, 0, 3
'Bind True DBGrid Control to this XArray instance'
Set TDBGrid1.Array = x

C# code:

public class XArray : System.Data.DataTable
	Member of UpgradeHelpers.XArray.VBUtils
//General declarations
private VBUtils.XArray _x = null;
	VBUtils.XArray x{
	get{
		if (_x == null){
			_x = new VBUtils.XArray();
		}
			return _x;
		}set{
			_x = value;
		}
	}
//Allocate space for 100 rows, 4 columns
x.RedimXArray(new int[]{99, 3}, new int[]{0, 0});
//Bind True DBGrid Control to this XArray instance
TDBGrid1.Array = x;

VB.NET code:

Public Class XArray
	Inherits System.Data.DataTable
	Member of VBUtils
'General declarations'
Private _x As VBUtils.XArray = Nothing
Property x() As VBUtils.XArray
	Get
		If _x Is Nothing Then
			_x = New VBUtils.XArray()
		End If
		Return _x
	End Get
	Set(ByVal Value As VBUtils.XArray)
		_x = Value
	End Set
End Property
'Allocate space for 100 rows, 4 columns'
x.RedimXArray(New Integer() {99, 3}, New Integer() {0, 0})
'Bind True DBGrid Control to this XArray instance'
TDBGrid1.Array = x

22.2. To COM Interop

Original VB6 code:

'General declarations'
Dim x As New XArrayDB
'Allocate space for 100 rows, 4 columns'
x.ReDim 0, 99, 0, 3
'Bind True DBGrid Control to this XArray instance'
Set TDBGrid1.Array = x

C# code:

public interface XArrayDB
	Member of Assembly Interop.XArrayDBObject
//General declarations
	private XArrayDBObject.XArrayDB _x = null;
	XArrayDBObject.XArrayDB x{
		get{
			if (_x == null){
				_x = new XArrayDBObject.XArrayDB();
			}
			return _x;
		}set{
			_x = value;
		}
	}
//Allocate space for 100 rows, 4 columns
x.ReDim(0, 99, 0, 3);
//Bind True DBGrid Control to this XArray instance
TDBGrid1.Array = x;

VB.NET code:

Namespace XArrayDBObject
	Member of Interop.XArrayDBObject
'General declarations'
Private _x As XArrayDBObject.XArrayDB = Nothing
Property x() As XArrayDBObject.XArrayDB
	Get
		If _x Is Nothing Then
			_x = New XArrayDBObject.XArrayDB()
		End If
		Return _x
	End Get
	Set(ByVal Value As XArrayDBObject.XArrayDB)
		_x = Value
	End Set
End Property
'Allocate space for 100 rows, 4 columns'
x.ReDim(0, 99, 0, 3)
'Bind True DBGrid Control to this XArray instance'
TDBGrid1.Array = x

PreviousSheridan NextCode Conversion

Last updated 1 year ago

Was this helpful?