devolver datos de una funcion

[ebu]

hola compis!
acabo de empezar programar con vb y x eso me he registrado en este foro para que me podais ayudar con mis dudas de principiante.
he creado una simple funcion y quiero devolver al programa principal una variante de tipo string y un array de tipo variant. he leido algo d q debo usar return+el nombre de las variables.pero tb he leido q ese return tiene q ir acompañado de un go sub.para q me sirve el go sub??y como puedo sacar las variables de la funcion???
gracias! un saludo!

[David]

¿Con qué versión de Visual Basic estás trabajando?

[ebu]

estoy desde el editor de vb del excel 03. kiero pasar visualizar unos datos de solidworks en excel. para ello he creado una funcion dnd se cargan los nombres del sw pero no se como los puedo llamar para usarlo en el programa general.

[David]

En ese caso no se usa Return, básicamente es:

Código vb:

Function MiFuncion() As String
   MiFuncion = "Valor Devuelto"
End Function
 

[ebu]

gracias, pero si kiero devolver un string y una matriz desde una misma funcion?seria posible o tendria q crear dos funciones diferentes?

[David]

Lo que puedes hacer es pasar como parámetro ByRef la matriz en la que quieres devolver los datos y modificarlo directamente dentro de la función.

[ebu]

te importaria ponerme un ejemplo, sq acabo de empezar y todavia estoy muy verde...
gracias

[David]

Ejemplo:

Código vb:

Dim vArray(0) As Integer
ModifyArray vArray
MsgBox vArray(0) 'Aquí saldrá un mensaje mostrando 50 ya que lo modificamos dentro del procedimiento
 

Código vb:

Sub ModifyArray(ByRef vArray() As Integer)
vArray(0) = 50
End Sub
 

[ebu]

tengo otra duda. al declara el array tengo que poner es necesario poner su longitud (lo q pones entre parentesis). sq en mi caso esa longitud es desconocida.
y otra duda:cuando se una un array y cuando una matriz? es solo cuestion de espacio?

[David]

Si deseas hacer una matriz sin conocer el límite puedes poner:

Código vb:

Dim vArray() As Integer
 

Pero tienes que tener en cuenta que cada vez que vas a agregar un nuevo índice debes hacer un ReDim Preserve.

[ebu]

te importa si te mando el programilla para q me lo eches un vistazo, sq llevo todo el dia y me da mi errores.
gracias.

[David]

Puedo ayudarte si nos muestras los errores que te da.

O si quieres poner tu proyecto aquí quizás alguien que tenga algo de tiempo guste revisarlo.

[ebu]

los datos q kiero sakar d esta funcion para luego visualizarlos en un excel son un array donde se van a guardar los nombres de las configuraciones de una pieza concreta de solidworks y el nombre donde se guarda el nombre de la pieza de solidworks.

'lo q viene a continuacion del sub modifyarray es para mandar esos datos al programa general, pero no se si es asi.
Sub ModifyArray(ByRef swCompArr() As Variant, nombre As String)

Dim swApp As Object
Dim Part As Object
Dim CnMgr As Object

'abre un doc y seleccina el configuration manager que es de donde kiero coger yo los datos
On Error Resume Next
Set swApp = GetObject("SldWorks\pieza1.sldprt")
Set Part = swApp.ActiveDoc
Set CnMgr = Part.ConfigurationManager

'con esto se supone que se guarda en la variable nombre el nombre de la pieza1, pero no lo se si es asi.
nombre = SldWorks.GetDocumentDependencies2(CnMgr)

ReDim swCompArr(0)
'se supone que esto cuenta las configuraciones que tiene la pieza, pero tanpoco se si es asi
nSelCount = CnMgr.GetSelectedObjectCount

'se guardan en un array todos los nombres de las configuraciones
For i = 1 To nSelCount
swCompArr(i) = SelMgr.GetConfigurationNames
Next

End Sub

soy principiante en esto por lo q cualquier cosa que me querais correjir, comentar,... bienvenida sea.
gracias!

[David]

Primero, quita el On Error Resume Next, así sabrás donde están los errores, uno de ellos es que el array no lo estás redefiniendo para añadir un nuevo elemento.

[ebu]

sq uno de mis problemas es que no se como llamar a las diferentes configuraciones de una pieza de solidworks. En el API help me ponia esto, pero asi llamare a una configuracion, y las demas??

swCompArr(i) = SelMgr.GetConfigurationNames

[David]

Yo no uso "solidworks", así que infelizmente en eso que preguntas no puedo ayudarte.

Tal vez esa función devuelva directamente un array, pero habría que hacer las pruebas para saberlo.