[OFF] MOSTREM SUAS TELAS NOVEMBRO/2009

 Tópico anterior Próximo tópico Novo tópico

[OFF] MOSTREM SUAS TELAS NOVEMBRO/2009

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#327214 - 09/11/2009 10:17:02

RICATOM
MARINGA
Cadast. em:Dezembro/2004


 Anexos estao visíveis somente para usuários registrados

outra

Buscai ao Senhor enquanto se pode achar, invocai-o enquanto est perto.(Isaas 55:6).


#327220 - 09/11/2009 11:11:10

NICOLLAS2
CURITIBA
Cadast. em:Maio/2009


Última edição em 09/11/2009 11:17:20 por NICOLLAS2


cara que []T[] esse seu grfico.... que componente esse?




#327230 - 09/11/2009 12:29:46

JWCELYO
SAO PAULO
Cadast. em:Julho/2009


RICARDO TOMIM sistema bacana em. que componet esse de graficos

*/ LIFE RUNS ON CODE /*

#327241 - 09/11/2009 13:23:51

RICATOM
MARINGA
Cadast. em:Dezembro/2004


Última edição em 09/11/2009 13:25:07 por RICARDO TOMIM

Citação:
JWCELYO escreveu: RICARDO TOMIM sistema bacana em. que componet esse de graficos


Obrigado colegas, o componente o RMChart

Buscai ao Senhor enquanto se pode achar, invocai-o enquanto est perto.(Isaas 55:6).


#327251 - 09/11/2009 14:42:41

CAIO_FR_SP
FRANCA
Cadast. em:Março/2007


RICARDO TOMIM, muito boa tela.
a tempos tento usar o rmchart, mas nao consigo.
voce sabe onde posso encontrar exemplos de uso dele com o vb?
abraos

Resoft


#327256 - 09/11/2009 15:14:41

RICATOM
MARINGA
Cadast. em:Dezembro/2004


 Anexos estao visíveis somente para usuários registrados

CAIO_FR_SP, tem alguns exemplos aqui no site mesmo (como o link que postei acima), mas o que achei mais facil de entender que o vem no proprio exemplo do RMChart.

Ao instalar o RMChart, ele cria um icone (em forma de piramide) no desktop, clique nele, escolha um exemplo e depois clique no 5 boto da toolbar (copy source to clipboard)

Codigo gerado

      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:


Buscai ao Senhor enquanto se pode achar, invocai-o enquanto est perto.(Isaas 55:6).


#327326 - 10/11/2009 12:52:20

SUELISMAR
SALES OLIVEIRA
Cadast. em:Setembro/2009


 Anexos estao visíveis somente para usuários registrados

Sistema de Controle Financeiro....

[txt-color=#088A4B]Mariano, S.[/txt-color]

Depto. Desenvolvimento e criao

Brasil camisetas uniformizao ME.

Av. Dom Pedro II n 320  - Sales Oliveira - SP
MSN: suelismar_maf@hotmail.com  [B

#327360 - 10/11/2009 15:41:22

INFOSISTEMAS
CAMPINA GRANDE
Cadast. em:Outubro/2004


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 abrao !!

Wanderson Lucena <br> Analista de Sistemas <br>  InfoSistemas TI


#327531 - 12/11/2009 13:36:17

RICATOM
MARINGA
Cadast. em:Dezembro/2004


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 abrao !!


Somente alguns controles criados em runtime, que so criado no load do form e destruidos no unload do mesmo.





Buscai ao Senhor enquanto se pode achar, invocai-o enquanto est perto.(Isaas 55:6).


#327585 - 12/11/2009 22:41:40

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


vem c gente ....................... vamos falar serio


SER Q A MODA DE RIBBON VAI PEGAR????

eu tava olhando a net e achei um componente q cria um menu no office 2007. Agora pergunto eu .... menu com barra de ferramenta OU ribbon????


o autoCAD 2009 e 2010 vem com ribbon na sua interface .... mas tem uma opo q o usurio coloca menus e barra de ferramentas !!!!



e vejo q os colegas, muitos colegas, ainda usam menus e barra de ferramenta


????????? q vc achammmm??????????

____________________________________________________________________
Episcopal Studios


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 01/12/2009 09:36:35