[OFF] MOSTREM SUAS TELAS NOVEMBRO/2009

Citação:

JWCELYO escreveu: RICARDO TOMIM sistema bacana em. que componet é esse de graficos

      Dim i AS LONG
    Dim nC AS LONG
    Dim nDataCount AS LONG
    Dim nRetVal AS LONG
    Dim sTemp AS STRING
    ReDim aData(0) AS DOUBLE
    ReDim aData2(0) AS DOUBLE
    ReDim aPPC(0) AS LONG
    ReDim aColor(0) AS LONG
    Dim tChart AS tRMC_CHART
    Dim tRegion AS tRMC_REGION
    Dim tCaption AS tRMC_CAPTION
    Dim tLegend AS tRMC_LEGEND
    Dim tGrid AS tRMC_GRID
    Dim tDataAxis AS tRMC_DATAAXIS
    Dim tLabelAxis AS tRMC_LABELAXIS
    Dim tBarSeries AS tRMC_BARSERIES
    Dim tLineSeries AS tRMC_LINESERIES
    Dim tGridlessSeries AS tRMC_GRIDLESSSERIES
    Dim tXYAxis AS tRMC_XYAXIS
    Dim tXYSeries AS tRMC_XYSERIES
 
 
    [ô]************** Create the chart ********************** 
    tChart.nLeft        = 10  
    tChart.nTop         = 10  
    tChart.nWidth       = 600
    tChart.nHeight      = 450
    tChart.nBackColor   = AliceBlue
    tChart.nCtrlStyle   = RMC_CTRLSTYLEFLAT
    tChart.sBgImage     = [Ô][Ô]
    tChart.sFontName    = [Ô]Tahoma[Ô]
    tChart.nToolTipWidth= 0
    tChart.nBitmapBKColor= Default
    nRetVal = RMC_CreateChartOnDCI(Me.hDC, ID_RMC1, tChart)
    IF nRetVal < 0 THEN GOTO IsError
    [ô]************** Add Region 1 ***************************** 
    tRegion.nLeft       = 5
    tRegion.nTop        = 5
    tRegion.nWidth      = -5
    tRegion.nHeight     = -5
    tRegion.sFooter     = [Ô][Ô]
    tRegion.nShowBorder = FALSE
    nRetVal = RMC_AddRegionI(ID_RMC1, tRegion) 
    IF nRetVal < 0 THEN GOTO IsError
    [ô]************** Add caption to region 1 ******************* 
    tCaption.sText  =     [Ô]This is the chart[ô]s caption[Ô]
    tCaption.nBackColor = Blue
    tCaption.nTextColor = Yellow
    tCaption.nFontSize  = 11
    tCaption.nIsBold    = TRUE
    nRetVal = RMC_AddCaptionI(ID_RMC1, 1, tCaption)
    IF nRetVal < 0 THEN GOTO IsError
    [ô]************** Add grid to region 1 ***************************** 
    tGrid.nGridBackColor = White
    tGrid.nAsGradient    = FALSE
    tGrid.nBicolor       = RMC_BICOLOR_LABELAXIS
    tGrid.nLeft          = 0
    tGrid.nTop           = 0
    tGrid.nWidth         = 0
    tGrid.nHeight        = 0
    nRetVal = RMC_AddGridI(ID_RMC1, 1, tGrid)
    IF nRetVal < 0 THEN GOTO IsError
    [ô]************** Add data axis to region 1 ***************************** 
    tDataAxis.nAlignment      = RMC_DATAAXISLEFT
    tDataAxis.nMinValue       = 0
    tDataAxis.nMaxValue       = 100
    tDataAxis.nTickCount      = 11
    tDataAxis.nFontsize       = 8
    tDataAxis.nTextColor      = Black
    tDataAxis.nLineColor      = Black
    tDataAxis.nLineStyle      = RMC_LINESTYLESOLID
    tDataAxis.nDecimalDigits  = 0
    tDataAxis.sUnit           = [Ô][Ô]
    tDataAxis.sText           = [Ô][Ô]
    nRetVal = RMC_AddDataAxisI(ID_RMC1, 1, tDataAxis)
    IF nRetVal < 0 THEN GOTO IsError
    [ô]************** Add label axis to region 1 ***************************** 
    tLabelAxis.nCount         = 1
    tLabelAxis.nTickCount     = 5
    tLabelAxis.nAlignment     = RMC_LABELAXISBOTTOM
    tLabelAxis.nFontsize      = 8
    tLabelAxis.nTextColor     = Black
    tLabelAxis.nTextAlignment = RMC_TEXTCENTER
    tLabelAxis.nLineColor     = Black
    tLabelAxis.nLineStyle     = RMC_LINESTYLENONE
    tLabelAxis.sText          = [Ô][Ô]
    sTemp = [Ô]Label 1*Label 2*Label 3*Label 4*Label 5[Ô]
    nRetVal = RMC_AddLabelAxisI(ID_RMC1, 1, sTemp, tLabelAxis)
    IF nRetVal < 0 THEN GOTO IsError
    [ô]************** Add Series 1 to region 1 ******************************* 
    tBarSeries.nType             = RMC_BARSINGLE
    tBarSeries.nStyle            = RMC_BAR_FLAT_GRADIENT2
    tBarSeries.nIsLucent         = FALSE
    tBarSeries.nColor            = Default
    tBarSeries.nIsHorizontal     = FALSE
    tBarSeries.nWhichDataAxis    = 1
    tBarSeries.nValueLabelOn     = RMC_VLABEL_NONE
    tBarSeries.nPointsPerColumn  = 1
    tBarSeries.nHatchMode        = RMC_HATCHBRUSH_OFF
    [ô]****** Read data values ******
    REDIM aData(4)
    aData(0) = 50 : aData(1) = 70 : aData(2) = 40 : aData(3) = 60 : aData(4) = 30
    nRetVal = RMC_AddBarSeriesI(ID_RMC1, 1, aData(0), 5, tBarSeries)
    IF nRetVal < 0 THEN GOTO IsError
 
    nRetVal = RMC_SetWatermark(RMC_USERWM,RMC_USERWMCOLOR,RMC_USERWMLUCENT,RMC_USERWMALIGN,RMC_USERFONTSIZE)
    nRetVal = RMC_Draw(ID_RMC1)
    IF nRetVal < 0 THEN GOTO IsError
    Exit SUB 
 
    IsError: 
 

Citação:

INFOSISTEMAS escreveu: gostaria de prguntar ao amigo RICARDO TOMIM como utilizar essa ferramenta para colocar essas barras como se fosse um barra de ferramentas do windows fico agurdando o retorno um abraço !!