Skicka combobox som inparameter till procedur

[d_jonsson]

Hur skickar man ett Combobox-objekt (som finns på ett formulär) som inparameter till en funktion?

ex: Proceduren "Proc1" tar en inparameter som är en combobox:
Private Sub Proc1(cboBox as Combobox)
' gör nåt med cboBox (som ju skickades med "By Reference)
End Sub

anropar man denna procedur med följande kod, så blir det fel, eftersom det är comboboxens värde och inte själva combobox-objektet som skickas:

Proc1(Me.cboKombinationsruta)

Hur gör man fgör att skicka objekltet, och inte dess aktuella värde?

[fredrik]

Felet ligger snarare i hur du gör anropet till proceduren.

Om du ska använda paranteser när du ropar på subben måste du skriva "call" framför:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:[/kod]<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
call proc1(me.combo1)
[/kod]
annars för du skippa paranteserna:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:[/kod]<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
proc1 me.combo1
[/kod]

Objektet skickas alltså som ett objekt och inte med dess värde.

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/ (http://server.webwerkstaden.se/fredde/default.asp)