/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Arrays mellem procedurer?
Fra : Carsten Troelsgaard


Dato : 28-07-05 11:46


Jeg kan ikke finde en levende vba gruppe, så jeg håber at én her kan
kommentere, hvorfor jeg ikke kan passere arrays (som paramarray) mellem
procedurer. Det har jeg da ellers gjort en del gange før ...?

Carsten

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private dbArray()

Sub SkrivFilTest()
ReDim dbArray( 29 ) As Variant
Dim i As Integer
For i = 0 To 29
Randomize
dbArray( i ) = Rnd * 10000
'MsgBox dbArray(i) ... arrayet bliver fyldt op!
Next i
SkrivFil "Karlo", "D:\Sharp\Proj10", dbArray()
End Sub

..................


Sub SkrivFil( FilForNavn As String , Adresse As String , ParamArray
PArray() As Variant )

Dim dbl As Double
Dim num, ant As Integer
num = FreeFile
ant = UBound( PArray )

........................... ant viser =
0 .... ? Jeg har prøvet alle måder at passere et array mellem
SkrivFilTest og SkrivFil, men det vil ikke! Kan det passe? UBound( PArray,
1 ) er det samme ......................


..
..
..
end sub



 
 
Søg
Reklame
Statistik
Spørgsmål : 177438
Tips : 31962
Nyheder : 719565
Indlæg : 6408047
Brugere : 218879

Månedens bedste
Årets bedste
Sidste års bedste