Ayuda con ActiveX/OCX
Publicado por Claudia (1 intervención) el 04/12/2004 23:44:51
Hola a todos
Estoy intentando realizar un control ActiveX/OCX en VB6 para que los botones dejen de tener aspecto rectangular y puedan adoptar otras formas (circulares, triangulares, etc). El problema está en que debo \"copiar\" en mi control el fragmento del Formulario en el que se coloque este, sea cual sea, mediante una llamada a la API Bitblt. Esa llamada debe hacerse en el evento RESIZE. Ahora bien, mi control no puede (porque no sé cómo hacerlo) averiguar en qué posición del Formulario se ha colocado, es decir, no permite las propiedades LEFT y TOP. Alguien sabría cómo hacerlo. Estaré eternamente agradecida a quien me ayude.
P.D. la llamada la realizo en USERCONTROL_RESIZE así: r=BitBlt (UserControl.hDC, 0, 0, UserControl.Width, UserControl.Height, UserControl.Parent.hDC, *, *, SRCCOPY)
¿Qué puedo poner en lugar de los asteriscos (*)?
Gracias a todos
Estoy intentando realizar un control ActiveX/OCX en VB6 para que los botones dejen de tener aspecto rectangular y puedan adoptar otras formas (circulares, triangulares, etc). El problema está en que debo \"copiar\" en mi control el fragmento del Formulario en el que se coloque este, sea cual sea, mediante una llamada a la API Bitblt. Esa llamada debe hacerse en el evento RESIZE. Ahora bien, mi control no puede (porque no sé cómo hacerlo) averiguar en qué posición del Formulario se ha colocado, es decir, no permite las propiedades LEFT y TOP. Alguien sabría cómo hacerlo. Estaré eternamente agradecida a quien me ayude.
P.D. la llamada la realizo en USERCONTROL_RESIZE así: r=BitBlt (UserControl.hDC, 0, 0, UserControl.Width, UserControl.Height, UserControl.Parent.hDC, *, *, SRCCOPY)
¿Qué puedo poner en lugar de los asteriscos (*)?
Gracias a todos
Valora esta pregunta


0