- Код: Выделить всё
Public Sub New( _
Optional ByVal _id As ULong = 0, _
Optional ByVal _Category As UInteger = 0, _
Optional ByVal _Name As String = "", _
Optional ByVal _myPrices() As Double = {0.0, 0.0, 0.0, 0.0, 0.0}, _
Optional ByVal _Remain As String = "", _
Optional ByVal _gift As Boolean = False)
Me.ID = _id
Me.Category = _Category
Me.Name = _Name
Me.myPrices() = _myPrices
Me.Remain = ""
Me.gift = False
End Sub
Выскакивает ошибка 'Expression expected' в строке ...As Double = {0.0, ... на первой фигурной скобке.
Почему?