[vb] Object als string

[Twilight]

Ik ben met Visual Basic aant het klooien, het probleem is alleen dat ik in dit geval mn mediaplayer niet kan aanroepen.
ik heb nu dit:

Private Function Fade(Speler As Integer, Seconds As Integer)
playerOut = "Player" & Speler
Do While playerOut.Volume > -10000
hier komt wat shit.
Loop

PlayerOut is dus variabel. Hij maakt daar Player1 en Player2 van die ik in mn form heb. Hij moet OF Player1 OF Player2 aanroepen.

Nu krijg ik als error: object required bij playerOut.Volume

Kun je geen string gebruiken om een object aan te roepen ofzo?

[mulder]

Kun je niet beter het object aan die functie meegeven ipv het nummer?

[Twilight]

Dat kan, maar die is variabel, en is het zo makkelijker...

[mulder]

Dat het makkelijker is zou ik niet willen zeggen.

Dynamische variabelen zijn volgen mijn weten niet mogelijk in VB. Wat je zou kunnen doen is een array van objecten kunnen gebruiken. Of misschien dat GetObject iets kan betekenen, maar daar weet ik ook verder niet veel van.

[Verwijderd]

Het makkelijkst is om de ene mediaplayer weg te gooien, dan de andere te kopieren en te plakken. VB vraagt dan zelf of je een array wilt, dan zeg je Yes. Nu kan je MediaPlayer1(0) en MediaPlayer1(1) gebruiken . Die 0 en 1 kan je variabel maken door een integer.

Want wat je nu probeerd (ala Flash) kan VB (gelukkig!) niet aan. Want dan zou VB code helemaal onleesbaar worden .

[Verwijderd]

Verwijderd schreef op 18 januari 2003 @ 19:22:
Het makkelijkst is om de ene mediaplayer weg te gooien, dan de andere te kopieren en te plakken. VB vraagt dan zelf of je een array wilt, dan zeg je Yes.

Gewoon index property invullen leek je te simpel

[Sponge]

Misschien kan je CallByName wel gebruiken, als het gaat om objecten. Ik weet de exacte syntax niet meer, maar ik heb er een tutorial op m'n site over

[robjanssen]

Gebruik inderdaad een Array.

code:

Private Function Fade(Speler As Integer, Seconds As Integer)

Do While player(Speler).Volume > -10000
  hier komt wat shit.
Loop

End Function

Of geef het Object mee aan de functie

code:

Private Function Fade(player As Object)

Do While player.Volume > -10000
  hier komt wat shit.
Loop

End Function

[Mart!]

De laatste oplossing die robjanssen geeft is natuurlijk het beste. Deze code duw je zo in een library en kun je dan in alle projecten waar je een mediaplayer gebruikt DIRECT weer gebruiken. Dat is bij de eerste oplossing niet zo.