VB.Net, Convert Type to a Structure

Tom McLaughli
#1 / 4

Convert Type to a Structure

How do I change this vb5 code to .net code.

VB5
Public Type RecordType
NoteName As String * 50
NoteCode As String * 1000
End Type
Public MyNotes As RecordType

I've tried the following but I get an error. I need the strings to be
a length that allows reading a record from a file.

Structure RecordType
Public NoteName as String=New String(" "c,50)
Public NoteCode as String=New String(" "c,1000)
End Structure

Public MyNotes As RecordType

Wed, 19 Jan 2005 10:49:10 GMT

sjkuype
#2 / 4

Convert Type to a Structure

If you must, you can use the VB6 compatibility layer. Strings in NET are not
fixed length

Quote:

> How do I change this vb5 code to .net code.

> VB5
> Public Type RecordType
> NoteName As String * 50
> NoteCode As String * 1000
> End Type
> Public MyNotes As RecordType

> I've tried the following but I get an error. I need the strings to be
> a length that allows reading a record from a file.

> Structure RecordType
> Public NoteName as String=New String(" "c,50)
> Public NoteCode as String=New String(" "c,1000)
> End Structure

> Public MyNotes As RecordType

Wed, 19 Jan 2005 10:55:45 GMT

sjkuype
#3 / 4

Convert Type to a Structure

Try
Structure RecordType
dim NoteName as new
Microsoft.VisualBasic.Compatibility.VB6.FixedLengthString(50)
...
end structure

Quote:

> How do I change this vb5 code to .net code.

> VB5
> Public Type RecordType
> NoteName As String * 50
> NoteCode As String * 1000
> End Type
> Public MyNotes As RecordType

> I've tried the following but I get an error. I need the strings to be
> a length that allows reading a record from a file.

> Structure RecordType
> Public NoteName as String=New String(" "c,50)
> Public NoteCode as String=New String(" "c,1000)
> End Structure

> Public MyNotes As RecordType

Wed, 19 Jan 2005 11:09:44 GMT

Corrado Cavall
#4 / 4

Convert Type to a Structure

Structure RecordType
Public NoteName As String
Public NoteCode As String
Sub New(ByVal dummy As Int32)
Me.NoteName = New String(" "c, 50)
Me.NoteCode = New String(" "c, 1000)
End Sub
End Structure

Use:
Dom uMyStruct as new RecordType(0)

HTH
Corrado

Wed, 19 Jan 2005 15:32:57 GMT