Strings e Vetores de tamanho fixo
•Situação Problemática
•
•Private Type MeuTipo
• Nome as String * 100
• Medidas(10) As Single
•End Type
•
•Sub DefineMedidas()
• Dim Objeto As MeuTipo
•End Sub
Situação Ideal
Private Type MeuTipo
Nome as String
Medidas() As Single
End Type
Sub DefineMedidas()
Dim Objeto As MeuTipo
Objeto.Nome = String(100, “ “)
Redim Objeto.Medidas(10) As Single
End Sub
Visual Basic 6.0
Dim Nome As String * 100
Visual Basic .NET
Dim Nome As New VB6.FixedLengthString(100)