Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: ssccaann43 en Agosto 08, 2011, 02:07:16 pm
-
Buenas tardes,
Mas que todo me gustaría saber si alguien ha visto en algun control de usuario, ocx, o lo que sea algunos charts como los que presento en las imagenes siguientes....
Quisiera colocarlos en mi proyecto... ::)
Modelo 1
(http://s2.postimage.org/a5hk859b8/modelo1.jpg)
Modelo 2
(http://s3.postimage.org/jj05yw7x5/modelo2.jpg)
Modelo 3
(http://s3.postimage.org/qm8hxvu8u/modelo3.jpg)
Modelo 4
(http://s3.postimage.org/fzfk7o7hc/modelo5.jpg)
-
lo unico que se me ocurre es que puedes agregar un webbrowser y trabajar con la api de Google Chart
EDITO:
aca tenes un ejemplo que hizo el Leandro con Google Chart necesitas 4 botones 1 Picture1 y 1 HScroll
http://foro.elhacker.net/programacion_visual_basic/api_google_char-t221541.0.html;msg1050662
-
Grande el aporte de Leo, pero no me funciona ese... :(
-
Lo acabo de probar y se ve bueno, pero me parece que solo funcionaria con conexión a Internet, no?
-
Bien basicamente encontre algo y quiero compartirlo con ustedes...!
Sin embargo tengo una interrogante enorme, para aquel quien logre usarlo, he tratado de mover las Leyendas de lugar y no puedo... :( Quisiera saber si alguien puede ayudarme a ubicar dichas leyendas, a ver que puedo hacer con ello.
Bajar aquí (http://www.megaupload.com/?d=GZIBM5DA)
Aquí una imagen..!
(http://s4.postimage.org/7jbxrcocp/Chart1.jpg)
Si se fijan en la imagen, se me corta la Leyenda...!
Luego de leer y leer el codigo, logro moverlo un poco, pero vaya estoy super hinchado de darle a esto y no lograr nada... Si alguien puede ayudarme a mover la leyenda sea Arriba o Abajo o ajustarla, se lo agradezco.. Saludos...
Aquí la imagen con la modificación...
(http://s1.postimage.org/veuzoxrck/Chart2.jpg)
En el source lo que hice fue buscar en el control de usuario esta linea y le quite + 400...
For S = 1 To oSeries.Count
CurrentColor = (S - 1) Mod 10
With UserControl
.CurrentX = (Width - uRightMargin [b]+ 400[/b])
Y1 = .CurrentY
UserControl.Line (.CurrentX - 100, .CurrentY + 30)-(.CurrentX - 230, .CurrentY + TextHeight(oSeries(S)) - 30), Colors(CurrentColor, 0), BF
.CurrentY = Y1
.CurrentX = (Width - uRightMargin [b] + 400[/b])
End With
Print oSeries(S)
Next S
Saludos
-
No entiendo, ami no me sale cortado
(https://byfiles.storage.live.com/y1p0EQTlGuv03QLCfxdLyLVj_6YZX9aDrCe_rIbwuyIi-a_sMpHChQ83A9LPn_J9kSuBwneGhQxCCM/Ultra.JPG?psid=1)
-
No entiendo, ami no me sale cortado
Doc, mira la imagen que yo coloque.. No te sale cortado porque colocas AÑO..! Pero si tu leyenda estuviese caracterizada por Nombre como en mi caso, se jode todo...!
Por ejemplo allí solo trato de colocar en la Leyenda: Gastos e Ingresos.
Pero realmente colocaré otras cosas como:
Gastos de Personal
Gastos Operativos
Gastos Bancarios
Gastos de Impuestos
Sin embargo ya se como resolverlo, lo que se me ocurrio es agregarle solo Iniciales, y luego en alguna parte del formulario coloco dicha leyenda... Ejemplo
GP = Gastos de Personal
GO = Gastos Operativos
GB = Gastos Bancarios
GI = Gastos de Impuestos
Que aparecerían en vez de aparecer los años...! Me sigues?
-
Aja tienes razon, sorry probe muy a la ligera, voy a ver.
-
Doc, no lo he resuelto casi del todo ya que podria ser una nueva propiedad del control, pero esto te puede dar una idea de por donde ir.
Como quieres meter mas texto habria que reducir el grafico para que se vea asi:
(https://byfiles.storage.live.com/y1pQScM2UGsxEr2vCMuEaQjOkw3471b6b4xN07HXO4ibpRnKXiRsUIK12HCueo2MrTz4gz7AshE8rA/SCAN2.JPG?psid=1)
Y donde meti mano fue:
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
On Error Resume Next
With PropBag
uTopMargin = .ReadProperty("uTopMargin")
uBottomMargin = .ReadProperty("uBottomMargin")
uLeftMargin = .ReadProperty("uLeftMargin")
uRightMargin = .ReadProperty("uRightMargin") + 1200 'con este valor sumado haces mas margen a la derecha y queda como la foto
uContentBorder = .ReadProperty("uContentBorder")
uSelectable = .ReadProperty("uSelectable", False)
uHotTracking = .ReadProperty("uHotTracking", False)
uSelectedColumn = .ReadProperty("uSelectedColumn", -1)
uChartTitle = .ReadProperty("uChartTitle", UserControl.Name)
uChartSubTitle = .ReadProperty("uChartSubTitle", uChartSubTitle)
uDisplayCategory = .ReadProperty("uDisplayCategory", uDisplayCategory)
uDisplayYAxis = .ReadProperty("uDisplayYAxis", uDisplayYAxis)
uColorBars = .ReadProperty("uColorBars", False)
uIntersectMajor = .ReadProperty("uIntersectMajor", 10)
uIntersectMinor = .ReadProperty("uIntersectMinor", 2)
uMaxYValue = .ReadProperty("uMaxYValue", 100)
uDisplayDescript = .ReadProperty("uDisplayDescript", False)
uXAxisLabel = .ReadProperty("uXAxisLabel")
uYAxisLabel = .ReadProperty("uYAxisLabel")
UserControl.BackColor = .ReadProperty("BackColor")
UserControl.ForeColor = .ReadProperty("ForeColor")
uOldSelection = -1
m_ActiveTheme = .ReadProperty("ActiveTheme", 0)
m_Animate = .ReadProperty("Animate", True)
m_RefreshOnChangeValue = .ReadProperty("RefreshOnChangeValue", True)
m_TextDegree = .ReadProperty("TextDegree", 0)
End With
End Sub
-
Gracias Doc, esta excelente eso....! =)
-
Hola, YAcosta no es necesario modificar el código, simplemente le pones en la propiedad "MarginRight" el valor que quieras, porque sino cuando quieras poner en otro gráfico un margen menor te seguirá poniendo uno grande.
Saludos.
-
jeje si pues como dice la chilindrina... "yo decia no mas", lo que pasa es que no conozco el control y pues me cai alli y se resolvió pero efectivamente que no es la mejor solución. Alli se enterara Scann.
Edito: jajaja coincido con Miguel que snooobsaso jajajaa, ya estaba en las propiedades... y echandole 1 hora al codigo jajajaja asumiendo de plano que no existía esa propiedad... aun nos falta mucho. Gracias Lea.
-
:'( Me pase de noob, no lo habia visto claro, ciertamente solo debo pasarle ese valor y ya...!
Gracias Leo... Gracias Yvan...
Quedo excelente =) =) ::) ::) ::)
(http://s2.postimage.org/3dmvcwq1h/EXCELENTE.jpg)