Область видимости переменных

[prowoke]

Вот есть такой код

PHP код:

Public X(4, 2) As Single
Public Y(3) As Single
Public i As Integer, j As Integer, k As Integer

Private Sub button_Click()
Select Case methodlist.Value
Case "Из файла"
    WorkFile
    MsgBox Y(3)
Case "Из excel"
    MsgBox "Excel"

Case "Из базы"
    MsgBox "Из Базы"
End Select

End Sub

Private Sub methodlist_Change()
End Sub

Private Sub methodlist_Enter()
    methodlist.Clear
    methodlist.AddItem "Из базы"
    methodlist.AddItem "Из файла"
    methodlist.AddItem "Из excel"
End Sub

Sub WorkFile()
Dim MyFile
Dim currentS As String
Dim count As Integer
Dim arr() As String

MyFile = FreeFile
Open ("C:\MyCourse\data.txt") For Input As #MyFile

For i = 1 To 4
    Line Input #MyFile, currentS 'Читаем файл TEST.T
    arr() = Split(currentS, "  ")
    count = UBound(arr) - LBound(arr) + 1 'Считаем количество элементов в массиве
    
    If count = 5 Then
      For j = 1 To count - 1
        Select Case j
            Case 2
                Y(j) = arr(1)
            Case 3
                X(j, 1) = arr(2)
            Case 4
                X(j, 2) = arr(3)
            Case 5
                X(j, 3) = arr(4)
        End Select
      Next j
    End If
Next i

Close #MyFile 'Закрываем файл

End Sub

Private Sub UserForm_Click()
End Sub 


Вначале я обьявляю переменные при помощи Public. Потом из процедур заполняю эти переменные. При компиляции выдаёт такое сообщение:

"Compile error:
Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules"

Помогите, пожалуйста.

[Djeki]

Объявлять необходимо в модуле обычном, а не в модуле формы.

[alex77755]

Либо заменить Public на Dim

[Hugo121]

i As Integer, j As Integer, k As Integer вроде совсем не нуждаются в "публичности"

[prowoke]

Чёт я совсем не понимаю. Мне нужно, чтобы массив заполнялся в процедуре. И как процедура закончится массив оставался в публичной области видимости. Как мне это сделать? В документации написано, что для этого надо использоваться public объявления переменных. Но надо это делать в начале модуля. Я вроде так и сделал. А счётчики типо i,j,k у меня используются во всех процедурах и я решил вынести их тоже.

[Hugo121]

Ну правильно - объявляете массивы публичными в стандартном модуле.
Счётчикам публичность не нужна - если только Вам в другой процедуре не нужно значение, которое осталось в счётчике по окончании цикла в другой процедуре.
Или лень их в каждой процедуре объявлять:?

[alex77755]

Public будет виден во всех модулях и процедурах, но обявлять надо только в обычном модуле. Судя по Private Sub UserForm_Click это у вас в модуле формы. В модуле формы не может быть объявлено публичных переменных. Если есть другие модули где надо использовать массив, то обявления надо выносить в модуль. Если же всё в одном модуле формі, но в разных процедурах достаточно обявить как Private или просто Dim