Devam Ediyor

514490 VB6 - [url removed, login to view] conversion in Vs2008 sp1

Hi all

The objective

*************

I would like my vb6 code (which works!) to compile successfully in Vb.net.

44 critical errors are identified in the automated conversion once I include a missing reference and 10 are unique. The 10 unique errors are shown below.

The deal

********

I will send the source vb6 code and the vs2008 code to the winner. I will not be posting it to bidders . You must demonstrate the compiled [url removed, login to view] code and send the completed code before the project is finished.

I will own the copyright to the code at all times.

The issues

**********

I have converted a vb6 project to [url removed, login to view] in VS2008 SP1. I have only a few unique errors although some of these occur multiple times:

1) name "commondialog1" is not declared

Sub PrintGraph_Click()

[url removed, login to view] = False

[url removed, login to view] = False

'UPGRADE_ISSUE: Constant cdlPDReturnDC was not upgraded. Click for more: 'ms-help://[url removed, login to view]"55B59875-9A95-4B71-9D6A-7C294BF7139D"'

'UPGRADE_ISSUE: [url removed, login to view] property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

[url removed, login to view] = [url removed, login to view]

2) Current x is not a member of [url removed, login to view] and

3) Current y is not a member of [url removed, login to view]

Sub DrawBar(ByRef Trait As String, ByRef Relat As String, ByRef PercentScore As Object, ByRef R As Short, ByRef G As Short, ByRef B As Short)

If Trait = "Emotional" Then

If Relat = "" Or Relat = "C" Then

'UPGRADE_ISSUE: PictureBox property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

[url removed, login to view] = 0

'UPGRADE_ISSUE: PictureBox property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

[url removed, login to view] = 50

4) Line is not a member of [url removed, login to view]

'UPGRADE_ISSUE: PictureBox property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

'UPGRADE_WARNING: Couldn't resolve default property of object PercentScore. Click for more: 'ms-help://[url removed, login to view]"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

'UPGRADE_ISSUE: PictureBox property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

'UPGRADE_ISSUE: PictureBox method [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

[url removed, login to view] (([url removed, login to view] + 71.4 * CShort(PercentScore)), ([url removed, login to view] + 450)), RGB(R, G, B), BF

5) End of statement expected

'UPGRADE_ISSUE: PictureBox property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

'UPGRADE_WARNING: Couldn't resolve default property of object PercentScore. Click for more: 'ms-help://[url removed, login to view]"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

'UPGRADE_ISSUE: PictureBox property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

'UPGRADE_ISSUE: PictureBox method [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

[url removed, login to view] (([url removed, login to view] + 71.4 * CShort(PercentScore)), ([url removed, login to view] + 450)), RGB(R, G, B), BF

'[Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

End Sub

6) As any is not supported in declare statements

'UPGRADE_ISSUE: Declaring a parameter 'As Any' is not supported. Click for more: 'ms-help://[url removed, login to view]"FAE78A8D-8978-4FD4-8208-5B7324A8F795"'

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"(ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wp As Integer, ByRef lp As Any) As Integer

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA"(ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As Integer, ByVal lpInitData As Integer) As Integer

'UPGRADE_ISSUE: Declaring a parameter 'As Any' is not supported. Click for more: 'ms-help://[url removed, login to view]"FAE78A8D-8978-4FD4-8208-5B7324A8F795"'

Declare Function OSWinHelp Lib "user32" Alias "WinHelpA"(ByVal hwnd As Integer, ByVal HelpFile As String, ByVal wCommand As Short, ByRef dwData As Any) As Short

7) Hdc is not a member of [url removed, login to view]

Public Function WYSIWYG_RTF(ByRef RTF As [url removed, login to view], ByRef LeftMarginWidth As Integer, ByRef RightMarginWidth As Integer) As Integer

Dim Printer As New Printer

Dim LeftMargin, LeftOffset, RightMargin As Integer

Dim LineWidth As Integer

Dim PrinterhDC As Integer

Dim R As Integer

' Start a print job to initialize printer object

'[url removed, login to view] Space(1)

'[url removed, login to view] = vbTwips

' Get the offset to the printable area on the page in twips

'UPGRADE_ISSUE: Printer property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

LeftOffset = [url removed, login to view](GetDeviceCaps([url removed, login to view], PHYSICALOFFSETX), [url removed, login to view], [url removed, login to view])

8) Drivername is not a member of [url removed, login to view]

'UPGRADE_ISSUE: Printer property [url removed, login to view] was not upgraded. Click for more: 'ms-help://[url removed, login to view]"CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'

PrinterhDC = CreateDC([url removed, login to view], [url removed, login to view], 0, 0)

9) Update_click is not a member of [url removed, login to view]

KeyDisplay.Update_Click(Nothing, New [url removed, login to view]())

10) Newindex is not a member of [url removed, login to view]

For x = 0 To [url removed, login to view]

Beceriler: .NET, Her şey Kabul, Visual Basic

Daha fazlasını görün: supported declare statements, vb job, vb6 job, vb6 0, user32, objective statement, forms graphs, declare oswinhelp net, vs2008 mscomdlg, wp forms, job vb, wp property, vb6, sp1, sis, offset printer, lp, combobox, bf, vb6 net forms, net private, vb6 rtf, visual basic compile, object printing, visual basic net help

İşveren Hakkında:
( 20 değerlendirme ) Sydney, Australia

Proje NO: #2260422