Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: YAcosta en Mayo 24, 2011, 08:59:14 pm
-
Hola
No se si alguien ha usado este control:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=71430&lngWId=1 (http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=71430&lngWId=1)
Yo lo estoy usando en mi sistema y va muy bien, solo que hay un detalle a nivel de estetica que quiero cambiar y no consigo hacerlo, quiere hacer mas pequeño los textos del eje X como lo indico en el círculo fucsia del gráfico que adjunto
(http://de9cbw.bay.livefilestore.com/y1pBQ0j4u4kQzHDkTcSwIHrS6agJd-h9CT8WqGuWC9CzcbEoXLK-8HEyTu2QIiahHXtT0r1S3xzvuqujKKfPOSRrZD-uXgl_Pvz/Chart.JPG?psid=1)
He revisado el codigo pero no la chunto, creo que se esta dibujando ese texto no se, alguien lo uso? y sabe donde pueda ir a modificarlo? gracias.
-
Hola Yvan, si te fijas dentro del user control vas a ver esta funcion DrawSignleBar
dentro de ella casi al final vas a ver estas lineas
DrawRotatedText Txt, 0, -100
x = x + (lngWidth / 2) - UserControl.CurrentX
y = UserControl.ScaleHeight - 60 + UserControl.CurrentX
DrawRotatedText Txt, x, y
si te fijas la funcion DrawRotatedText tiene mas parametros donde podes setear el Tipo de fuente, tamaño, etc, entonces si el control lo usas para una sola cosa y no tenes nececidad de utilizar varios tamaños de fuente podes poner un tamaño de 10 (por defecto esta utilizando un tamaño de 16)
remplaza esas cuatro lineas por estas
DrawRotatedText Txt, 0, -100, , 10 'asigne un tamaño de fuente a 10
x = x + (lngWidth / 2) - UserControl.CurrentX
y = UserControl.ScaleHeight - 50 + UserControl.CurrentX '50 es la distancia de las barras modificalo a gusto
DrawRotatedText Txt, x, y, , 10 'asigne un tamaño de fuente a 10
si vas a utilizar varios controles y queres tener distintos tipos de fuente crea propiedades para asignar los valores.
Saludos.
-
Excelente doctor, muchisimas gracias, no la daba. voy a ver ese tema ya mismo.
Muchas gracias.
-
Si!!!! quedó excelente, también he logrado modificar el enviarle valores con formato (ej: 30,450.00) . La ultima molestia, donde se aplica el texto generado con DrawRotatedText hay una especie de "piso" o "suelo" o "base" que quiero hacerlo un poco mas delgado, estoy modificando algunas cosas pero nuevamente no le doy.
Igual seguiré leyendo mas sobre este UC para entender como esta creado y a partir de eso modificarlo y crear la propiedad que me sugieres.
Muchas Gracias.
-
I suggest using TeeChart...
-
Gracias, se ve bueno el TeeChart pero es una herramienta externa y la licencia es un poco rara. Seguire con el que tengo porque me da mas control.
Igual gracias
-
Felicitaciones IvanB Se ve muy bien tu software!!!
-
Muchas gracias doc, espero seguir mejorándolo.