Foro de elhacker.net

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 (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 (http://nova-digital.net/prueba.rar)

.
Revisa la descarga de los skins.

Dulces Lunas!¡.

El controlo tiene código de LeandroA, y probablemente fue victima de fugas en GDI (http://www.leandroascierto.com/foro/index.php?topic=126.0) así que ... a revisar el código! :P

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

Dulces Lunas!¡.

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

busca los SelectObject()

Se arregla haciendo algo asi:

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

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:

Private Sub UserControl_Terminate()
 
    Call DeleteDC(hDCSkin)
 
End Sub

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

por ejemplo:

Linea 966

 
        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...

 
DeleteObject SelectObject(hdcMemory, hBmp)
 
 

Dulces Lunas!¡.