Visual Basic Foro
General => General => Mensaje iniciado por: YAcosta en Enero 28, 2014, 02:03:32 am
-
Vean que paga este control web
http://www.googlezeitgeist.com/es-419/top-lists/pe/fastest-rising-people (http://www.googlezeitgeist.com/es-419/top-lists/pe/fastest-rising-people)
(http://i.snag.gy/PfEa6.jpg)
Se podrá recrear en VB6 algo asi???
y con su respectivo tooltip todavia:
(http://i.snag.gy/InDgs.jpg)
Y tiene mas funcionalidades pero al menos la primera vista seria interesante desarrollar.
-
(http://www.googlezeitgeist.com/img/graphs/toplists/spritesheet.png)
Esta imagen es la que la pagina ocupa para crear las barras, es un png con canal alpha, para simplificar la programacion y no tener que usar gdi, recorte los pedazos que nesecitaba y los converti en iconos, asi solo con un DrawIconEx() los pinto en el usercontrol, el usercontrol que te pongo de ejemplo debes verlo como un progressbar vertical, cada barra del grafico es un usercontrol independiente, asi que las barras que pertenescan a un mismo grafico deben tener el mismo valor de MaxValue, ademas las barras deben estar contenidas dentro de un picturebox, porque cada barra antes de pintarse captura el fondo en donde esta puesta y la funcion captureback la deje solo para que funcionara sobre un picture, en el ejemplo solo se pintan las barras para el topten, pero se puede seguir modificando para pintar las barras de las semanas
(http://s8.postimg.org/yfh71gcep/gz_Chart.jpg) (http://postimg.org/image/yfh71gcep/)
en el comprimido te dejo todas las imagenes que pude capturar de la pagina, aparte de las barras cuadradas, tambien hay para hacer barras circulares
http://www.4shared.com/rar/gn0XbmS-ba/gzChart.html (http://www.4shared.com/rar/gn0XbmS-ba/gzChart.html)
-
E X C E L E N T E ! ! !
Que genial doctor, lo acabo de ver y es tal cual, voy a ver el codigo mas detenidamente.
Fuerte abrazo.
-
Muy bien Virgil, te estas llevando varios +1, muy buenas tus ayudas y aportes!
Saludos.
-
Excelente aporte...!
Le meti un On Error Resume Next en ucBar.ctl:
Private Sub DrawBar()
On Error Resume Next
Ya que me generaba error al cargar por la divición entre cero (0).
Del resto queda genial... Le hice otros ajustes para visualizarlo como si fuesen por meses así muestro una grafica mensual...
Quedo muy buena....!
Saludos...!