Оператор ReDim

[ANDLL]

Оператор ReDim ведет себя в том числе и как Dim.
Например такой код:

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
    ReDim A(0) As String
End Sub


Будет корректен по мнению компилятора, несмотря на Option Explicit.
И кроме того есть еще непонятный эффект.
Такой код:

Код: Выделить всё

Option Explicit
Dim A As Form

Private Sub Form_Load()
    ReDim A(0) As String
    MsgBox TypeName(A(0))
End Sub


Вызывает ошибку компиляции. А вот такой:

Код: Выделить всё

Option Explicit
Dim WithEvents A As Form

Private Sub Form_Load()
    ReDim A(0) As String
    MsgBox TypeName(A(0))
End Sub


Ошибки не вызывает

[tyomitch]

Оператор ReDim ведет себя в том числе и как Dim.
Например такой код:

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
    ReDim A(0) As String
End Sub


Будет корректен по мнению компилятора, несмотря на Option Explicit.

Документировано:

The ReDim statement acts as a declarative statement if the variable it declares doesn't exist at module level or procedure level. If another variable with the same name is created later, even in a wider scope, ReDim will refer to the later variable and won't necessarily cause a compilation error, even if Option Explicit is in effect. To avoid such conflicts, ReDim should not be used as a declarative statement, but simply for redimensioning arrays.

И кроме того есть еще непонятный эффект.

А вот это уже любопытнее

[Amed]

Притом, если сделать

Код: Выделить всё

Option Explicit
Private WithEvents A As VB.App

Private Sub Form_Load()
    ReDim A(0) As VB.App
    MsgBox TypeName(A(0))
End Sub

объектная переменная будет пустой:

Nothing - Object variable that doesn't refer to an object

[DirectXManiac]

Amed
Ну вроде всё правильно. Объект же должен создаться! Вроде) Если не прав - объясните пожалуйста)