PureBoard

Code: Alles auswählen

Const ID_RMC1 = 10001
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
DoTheChart
End Sub
Private Sub Form_Paint()
RMC_Paint ID_RMC1
End Sub
Private Sub Form_Unload(Cancel As Integer)
RMC_DeleteChart ID_RMC1
End Sub
Sub DoTheChart()
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
 
 ;----Diese Stück meine ich
'************** Create the chart ********************** 
tChart.nLeft        = 10  
tChart.nTop         = 10  
tChart.nWidth       = 247
tChart.nHeight      = 227
tChart.nBackColor   = DeepYellow
tChart.nCtrlStyle   = RMC_CTRLSTYLE3D
tChart.sBgImage     = ""
tChart.sFontName    = "Arial"
tChart.nToolTipWidth= 0
tChart.nBitmapBKColor= Default

  nRetVal = RMC_CreateChartOnDCI(Me.hDC, ID_RMC1, tChart)
;--------------------