Autor Tema: Chart 3d  (Leído 3104 veces)

0 Usuarios y 1 Visitante están viendo este tema.

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Chart 3d
« 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


Se podrá recrear en VB6 algo asi???

y con su respectivo tooltip todavia:


Y tiene mas funcionalidades pero al menos la primera vista seria interesante desarrollar.
« última modificación: Enero 28, 2014, 02:06:42 am por YAcosta »
Me encuentras en YAcosta.com

Virgil Tracy

  • Kilobyte
  • **
  • Mensajes: 64
  • Reputación: +38/-1
    • Ver Perfil
Re:Chart 3d
« Respuesta #1 en: Febrero 05, 2014, 12:31:12 pm »


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




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

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Re:Chart 3d
« Respuesta #2 en: Febrero 05, 2014, 01:05:58 pm »
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.
Me encuentras en YAcosta.com

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +151/-8
    • Ver Perfil
Re:Chart 3d
« Respuesta #3 en: Febrero 05, 2014, 04:43:58 pm »
Muy bien Virgil, te estas llevando varios +1, muy buenas tus ayudas y aportes!

Saludos.

ssccaann43

  • Terabyte
  • *****
  • Mensajes: 970
  • Reputación: +97/-58
    • Ver Perfil
    • Sistemas Nuñez, Consultores y Soporte, C.A.
Re:Chart 3d
« Respuesta #4 en: Febrero 05, 2014, 06:54:29 pm »
Excelente aporte...!

Le meti un On Error Resume Next en ucBar.ctl:
Código: (vb) [Seleccionar]
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...!
Miguel Núñez.