Upgrade problems

[callydata]

I upgraded a project from VB6 to .Net, but it leaves me with this code that has errors.

Dim rectype As New VB6.FixedLengthString(1)
        Dim trancode As New VB6.FixedLengthString(2)
        Dim recbank As New VB6.FixedLengthString(9)
        Dim recbank2 As String
        Dim recbank3 As String
        Dim recbank4 As String
        Dim bankacct As New VB6.FixedLengthString(17)
        Dim amount As New VB6.FixedLengthString(10)
        Dim idnumber As New VB6.FixedLengthString(15)
        Dim indname As New VB6.FixedLengthString(22)
        Dim discretion As New VB6.FixedLengthString(2)
        Dim addenda As New VB6.FixedLengthString(1)
        Dim tracenumber As New VB6.FixedLengthString(15)
        Dim zst As New VB6.FixedLengthString(15)
        Dim counter As Short
        Dim fullrec As New VB6.FixedLengthString(94)
        Dim achtotal As Integer
        Dim rec1p1 As New VB6.FixedLengthString(23)
        Dim rec1p2 As New VB6.FixedLengthString(10)
        Dim rec1p4 As New VB6.FixedLengthString(61)
        Dim fullrec1 As New VB6.FixedLengthString(94)
        Dim rec5p1 As New VB6.FixedLengthString(63)
        Dim rec5p2 As New VB6.FixedLengthString(6)
        Dim rec5p3 As New VB6.FixedLengthString(6)
        Dim rec5p4 As New VB6.FixedLengthString(19)
        Dim fullrec5 As New VB6.FixedLengthString(94)
        Dim rec8p1 As New VB6.FixedLengthString(4)
        Dim rec8p2 As New VB6.FixedLengthString(6)
        Dim rec8p3 As New VB6.FixedLengthString(10)
        Dim rec8p4 As New VB6.FixedLengthString(12)
        Dim rec8p5 As New VB6.FixedLengthString(12)
        Dim rec8p6 As New VB6.FixedLengthString(50)
        Dim fullrec8 As New VB6.FixedLengthString(94)
        Dim rec9p1 As New VB6.FixedLengthString(7)
        Dim rec9p2 As New VB6.FixedLengthString(6)
        Dim rec9p3 As New VB6.FixedLengthString(8)
        Dim rec9p4 As New VB6.FixedLengthString(10)
        Dim rec9p5 As New VB6.FixedLengthString(12)
        Dim rec9p6 As New VB6.FixedLengthString(12)
        Dim rec9p7 As New VB6.FixedLengthString(39)
        Dim fullrec9 As New VB6.FixedLengthString(94)
        Dim hashcount As Integer
        Dim blocks As Integer
        Dim blockfill As Short
        Dim fillblock As Short
        Dim fullfill As New VB6.FixedLengthString(94)
        Dim fillstring As New VB6.FixedLengthString(10)
        Dim fillstring2 As New VB6.FixedLengthString(4)
        Dim fullfill3 As New VB6.FixedLengthString(94)
        Dim totalblocks As Integer
        fillstring.Value = "9999999999"
        fillstring2.Value = "9999"

How would you write this in .Net friendly code? I noticed a lot of the errors stem from having "VB." in front of the statement.
Thanks

[Neoharuo]

Well, "VB6." isn't recognized in my version of .NET and neither is "FixedLengthString()"

Are you including a library?

[callydata]

I am naive, I think there is a library included, I didn't post all the code, cause its long. Basically, what I need the

VB6.FixedLengthString(17)

to do is specify how long the string is going to be and can only be the amount long.
thanks

[Asgorath]

Maybe you need to add the Microsoft.VisualBasic.Compatibility.VB6 namespace.

Regards
Jorge

[gigemboy]

<VBFixedString(15)> Dim FirstName As String

From MSDN.....

The VBFixedStringAttribute is informational and cannot be used to convert a variable length string to a fixed string. The purpose of this attribute is to modify how strings in structures and non-local variables are used by methods or API calls that recognize the VBFixedStringAttribute. Keep in mind that this attribute does not change the actual length of the string itself.

[gigemboy]

Asgorath was correct.. go to "Project" then "add reference"... locate the "Microsoft VisualBasic .NET Compatibility Runtime" and add it.. then add the imports statement to the top of your form...

Imports Microsoft.VisualBasic.Compatibility

All should be well after that...

[Neoharuo]

Maybe you need to add the Microsoft.VisualBasic.Compatibility.VB6 namespace.

Regards
Jorge

I'm curious, is this an added refrence or is it an Import? I can't find it in either place. Where is it?

--Sorry, must have been posting at the same time!--

[callydata]

The add reference fixed the problem, but I am still having a problem with this code. It says the VB is not declared, I am confused about how to fix this problem as well.

rec8p3.Value = [COLOR=DarkRed]VB[/COLOR].Left(zst.Value, 10 - Len(Trim(Str(hashcount)))) & [COLOR=DarkRed]VB[/COLOR].Right(Str(hashcount), Len(Trim(Str(hashcount))))

Thanks

[gigemboy]

hehe its much longer now....

Microsoft.VisualBasic.Strings.Left(......)
Microsoft.VisualBasic.Strings.Right(......)

-That is unless you put in "Imports Microsoft.Visualbasic.Strings" at the top...
then its just merely typing in "Left(....) and Right(....)