Cargar imagenes por function

[Brian1511]

hola a todos quisiera que me ayudacen con este pequeñito problema.

el caso es que es un juego winsock que estoy creando, apenas voy por el inicio de sesion y la peticion de los datos al servidor, el inicio esta bien lo unico que agoe s que cuando se conecta, se conecta a otro winsock que esta abierto y pues esta a la escucha con otro puerto.

Amm lo que hace este winsock es revisar un archivo .ini que contiene los datos del usuario y lo manda por una cadena de texto con unas split "|" este es el codigo para separar los datos recividos.

Código (vb) [Seleccionar] Expandir

Function Carga()

lblUser.Caption = s_usr
lblNivel.Caption = s_nvl
data_XP = Split(s_xp, "|")
lblXP.Caption = data_XP(0)
lblXPMax.Caption = data_XP(1)

''Llama los objetos que tiene el usuario
data_Objetos = Split(s_objetos, "|")


Call Load_Objetos(data_Objetos(0), data_Objetos(1), data_Objetos(2), data_Objetos(2), _
data_Objetos(4), data_Objetos(5), data_Objetos(6), data_Objetos(7), data_Objetos(8), _
data_Objetos(9), data_Objetos(10), data_Objetos(11), data_Objetos(12), data_Objetos(13), _
data_Objetos(14), data_Objetos(15), data_Objetos(16), data_Objetos(17), data_Objetos(18), _
data_Objetos(19), data_Objetos(20), data_Objetos(21), data_Objetos(22), data_Objetos(23), _
data_Objetos(24), data_Objetos(25))

''Llama las medallas que tiene el usuario
data_Medallas = Split(s_medallas, "|")
Call Medallas(data_Medallas(0), data_Medallas(1), data_Medallas(2), data_Medallas(3), _
data_Medallas(4), data_Medallas(5), data_Medallas(6))

''Carga el avatar del usaurio
imgAvatar.LoadImageFromFile (App.Path & "\images\Avatares\" & s_avatar & ".jpg")
lblMonedas.Caption = s_monedas

''Carga el rango y sus opciones
Call Rank(s_rank)
lblWins.Caption = s_Wins
lblLoses.Caption = s_Loses

''Llama los datos de tu digimon 1
data_Digimon1 = Split(s_digimon1, "|")

Call Digimon1(data_Digimon1(0), data_Digimon1(1), data_Digimon1(3), data_Digimon1(4))

''Llama los datos de tu digimon 2
data_Digimon2 = Split(s_digimon2, "|")

Call Digimon2(data_Digimon2(0), data_Digimon2(1), data_Digimon2(3), data_Digimon2(4))


''Llama los datos de tu digimon 3
data_Digimon3 = Split(s_digimon3, "|")

Call Digimon3(data_Digimon3(0), data_Digimon3(1), data_Digimon3(3), data_Digimon3(4))

''Llama los datos de tu digimon 3
data_Digimon4 = Split(s_digimon4, "|")

Call Digimon4(data_Digimon4(0), data_Digimon4(1), data_Digimon4(3), data_Digimon4(4))

frmMain.Enabled = True
pnlInicio.Visible = False

End Function

bueno esto es algo basico pues lo que ago es llamar a funciones para que me arreglen los datos como por ejeplo los objetos, las medallas y los digimons!

aqui esta el problema que no acepta este codigo que esta en el modulo:

Código (vb) [Seleccionar] Expandir

Public Function Load_Objetos(O1 As String, O2 As String, O3 As String, _
O4 As String, O5 As String, O6 As String, O7 As String, _
O8 As String, O9 As String, O10 As String, O11 As String, _
O12 As String, O13 As String, O14 As String, O15 As String, _
O16 As String, O17 As String, O18 As String, O19 As String, _
O20 As String, O21 As String, O22 As String, O23 As String, _
O24 As String, O25 As String, O26 As String) As String




For cont_obj = 0 To 25

imgObjects(cont_obj).LoadImageFromFile (App.Path & "\Images\Objetos\" & Load_Objetos(cont_obj) & ".png")
imgObjects(cont_obj).Tag = cont_obj

Next cont_obj


End Function

Public Function Medallas(M1, M2, M3, M4, M5, M6, M7)

Dim cont_medallas As Integer

For cont_medallas = 0 To 25

imgMedallas(cont_medallas).LoadImageFromFile (App.Path & "\Images\Medallas\" & Medallas(cont_obj) & ".png")
imgMedallas(cont_medallas).Tag = Medallas(cont_medallas)

Next cont_medallas

End Function



lo que quiero es cargar las imagenes de los objetos a las imagenes que estan ya un una carpeta llamada "Objetos".

el servidor manda la id del objeto , ejemplo 1 o 2 o 3 , los objetos estan guardados con el nombre de su id ejemplo 1.png , 2.png para poder llamarlos en el modulo facilmente.

Igual pasa con las medallas no me funcionan...

espero que me puedan ayudar!

El error que me sale este:

Código [Seleccionar] Expandir



Error de compilacion:

El tipo de argumento ByRef no coincide