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!¡.
Cita de: raul338 en 21 Octubre 2011, 00:02 AM
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
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!¡.
Cita de: BlackZeroX (Astaroth) en 20 Octubre 2011, 21:53 PM
.
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:
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!¡.