Function и ReDim

[_Мика_]

Почему слетает??

Private Function blabla () as string
dim bt as byte
...
redim bt (lof(1)-1)
...
End Sub

[Amed]

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

Private Function blabla() As String
Dim bt() As Byte
'...
ReDim bt(LOF(1) - 1)
'...
End Function

[_Мика_]

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

Private Function blabla() As String
Dim bt() As Byte
'...
ReDim bt(LOF(1) - 1)
'...
End Function

Не смешно!

А скобочки после bt у меня стоят. Т.е. если убрать Function и сделать обычный Sub то все нормально работает.

[Amed]

Не верю!

[_Мика_]

ВОТ ВЕСЬ КОД

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

Dim MK7s As String

Private Sub MK7(ByVal sFilename As String)
Dim s As Currency
Dim sum As Currency
Dim btArray() As Byte
i = -1
s = 0
sum = 0
Open sFilename For Binary As #1
ReDim btArray(LOF(1) - 1)
Get #1, , btArray
Close #1
Do Until i = UBound(btArray)
DoEvents
i = i + 1
s = btArray(i) / (i + 1)
sum = sum + s
Loop
MK7s = sum
End Sub

Private Sub Command1_Click()
MK7 ("C:\1.swf")
Text1 = MK7s
End Sub

Private Sub Form_Load()

End Sub


[Amed]

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

Private Function MK7(filename As String) As String
Dim s As Currency
Dim sum As Currency
Dim btArray() As Byte
i = -1
s = 0
sum = 0
Open sFilename For Binary As #1
ReDim btArray(LOF(1) - 1)
Get #1, , btArray
Close #1
Do Until i = UBound(btArray)
DoEvents
i = i + 1
s = btArray(i) / (i + 1)
sum = sum + s
Loop
MK7 = CStr(sum)
End Function

Private Sub Command1_Click()
Text1 = MK7("C:\accords.doc")
End Sub

И зачем только дёрнуло тебя передавать параметры byval?

[_Мика_]

Спасибо....