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)