Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: RHL en Noviembre 07, 2011, 10:12:54 pm

Título: No puedo usar mi DLL en VB
Publicado por: RHL en Noviembre 07, 2011, 10:12:54 pm
hola buenas  ;D
bueno tengo un problema :/ me impresiona las cosas que me detienen eso quiere decir que aun me falta que aprender :P
bueno estoy intentando crear un proyecto que use una dll ya lo tengo en la mente como funciona y todo :P
un ejemplo de mi DLL:

Class1:

Public Function CAL(num1 As Long, num2 As Long) As Long
HOLA = num1 + num2
End Function

ahora en un proyecto estandar lo e hecho de varias formas y no me funka  :-\

Código: [Seleccionar]
Dim A As New Class1

Private Sub Form_Load()
Dim c As Long


c = A.CAL(10, 30) 'ERROR

End Sub

Código: [Seleccionar]
Option Explicit

Dim A As Proyecto1.Class1

Private Sub Form_Load()
Dim c As Long

Set A = New Class1 ' ERROR


Debug.Print A.HOLA(10, 20)



End Sub
me lanza el error : El componente activex no puede crear el objeto

por cierto ahora que me fijo tendria que agregar la dll a referencia como haria para no hacer eso?
me imagino que declarandola como las API pero de que forma :P ( private function CAL Lib "proyecto1.dll" (byval N1 as long, Byval N2 as long ) as long )

alguien podria hecharme la mano por fa :)

Título: Re:No puedo usar mi DLL en VB
Publicado por: seba123neo en Noviembre 07, 2011, 10:17:59 pm
si, tenes que agregarla como referencia y listo, ahi vas a poder usarla bien.

pero para usarla tipo apis de windows es otra cosa:

Crear una DLL normal de Windows con Visual Basic 6.0 explicado paso a paso (http://www.elguille.info/vb/avanzado/crear_dll_windows_con_vb6_explicado.htm)
Título: Re:No puedo usar mi DLL en VB
Publicado por: RHL en Noviembre 07, 2011, 10:34:07 pm
gracias man revisare el tuto tiene buena pinta :)
por cierto si lo estaba agregando a referencias y me daba esos errores :P
Título: Re:No puedo usar mi DLL en VB
Publicado por: YAcosta en Noviembre 08, 2011, 12:20:49 am
Yo entiendo poco, en esta parte tengo una duda:
Public Function CAL(num1 As Long, num2 As Long) As Long
HOLA = num1 + num2    '<---- AQUI
End Function

Que acaso no debería ser así?:
Public Function CAL(num1 As Long, num2 As Long) As Long
CAL = num1 + num2
End Function
Título: Re:No puedo usar mi DLL en VB
Publicado por: RHL en Noviembre 08, 2011, 01:45:59 am
si perdon xD es que es asi como dices pero es que modifique el codigo xD no podia poner "HOLA" como lo tenia yo xDD
pero aun asi no me funciona :/

Juntando Mensajes

Buenas a todos! :D
bueno respondo de nuevo aqui porque ahora que termine mi dll tengo problemas para hacer la dll como normal :P
es más! e bajado los proyectos de el guille y los e compilado y me da error tambien!
primero lo intente en Win7 luego pense que era por el Win :P
luego lo intente en WinXP y me daba los mismo errores :P
hago todo lo que dice reemplazo el link , es mas me baje el link que el hizo y lo reemplace y aun asi nada
me sale esto a la hora de compilar :P

(http://img207.imageshack.us/img207/6563/54927569.png)
(http://img502.imageshack.us/img502/6518/11225407.png)

en ese orden me salen los msj :P
alguien por favor puede probar en su pc  :(

EDICION

ya lo arregle :D
mi error era que no ponia en mi proyecto un .cls y el nombre del link tambien :P :D