Memoria Insuficiente en Control

[DarkMatrix]

Buenas, necesito un poco de ayuda. He detectado que este control tiene un error grave:

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/214-boton-checkbox-optionbutton-con-skin.htm

Lo que sucede es que cuando el control es cargado y descargado de la memoria muchas veces, visual basic manda un error de Memoria Insuficiente, he probado varios usercontrols de botones pero ninguno manda el error como lo hace este. Lo primero que imagine fue que el control creba un DC que luego no liberaba pero creo que ese no es el problema.

Bueno a ver si pueden ayudarme a encontrar el error.

Adjunto un archivo con la prueba que hize: http://nova-digital.net/prueba.rar

[BlackZeroX]

.
Revisa la descarga de los skins.

Dulces Lunas!¡.

[raul338]

El controlo tiene código de LeandroA, y probablemente fue victima de fugas en GDI así que ... a revisar el código!

[BlackZeroX]

.
Ahora entiendo por que http://www.leandroascierto.com.ar/tips.php ya no estaba xP

Dulces Lunas!¡.

[DarkMatrix]

El controlo tiene código de LeandroA, y probablemente fue victima de fugas en GDI así que ... a revisar el código!

Algo asi me imagine, por eso aun no doy con el problema o.o

[BlackZeroX]

busca los SelectObject()

Se arregla haciendo algo asi:

Código (vb) [Seleccionar] Expandir



hOldhGDIObj = selectObject(hDC, hNewGDIObj)
....
selectObject hDC, hOldhGDIObj
DeleteObject hNewGDIObj



Dulces Lunas!¡.

[DarkMatrix]

.
Revisa la descarga de los skins.

Dulces Lunas!¡.

Segui el consejo de BlackZeroX y creo que di con el problema, busque donde se descargaba el skin que usa el control pero en ningun lado se libera el DC "hDCSkin" asi que inclui esto en el usercontrol y ahora si deja cargar todos los controles que se quiera sin saturar la memoria:

Código (vb) [Seleccionar] Expandir

Private Sub UserControl_Terminate()

    Call DeleteDC(hDCSkin)
   
End Sub

[BlackZeroX]

.
acabo de revisar nuevamente el codigo para  ver las fugas de memoria sobre GDI, y si hay fugas de GDI...

por ejemplo:

Linea 966

Código (vb) [Seleccionar] Expandir



        hDCMemory = CreateCompatibleDC(0)
        hBmp = CreateCompatibleBitmap(dc, lPixelWidth, lPixelHeight)
        Call SelectObject(hDCMemory, hBmp)



En lo personal yo lo hago asi... solo elimino el original y le dejo uno nuevo...

Código (vb) [Seleccionar] Expandir



DeleteObject SelectObject(hdcMemory, hBmp)



Dulces Lunas!¡.