RmChart+kleines Problem

[roherter]

Versuche gerade ein stück sourcecode aus dem RMChart designer zu übersetzen.
Das ist VB code wie mache ich das am besten Structure oder Linked List?

Ps:. Ich will ein Balken diagramm machen.

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)
;--------------------

[Kiffi]

Versuche gerade ein stück sourcecode aus dem RMChart designer zu übersetzen.

schau Dir mal den PureDispHelper von Thomas an. In dem Archiv sind
auch 2 Beispiele zum RMChart vorhanden.

Grüße ... Kiffi

[roherter]

Alles klar, danke Kiffi.

[roherter]

Wenn ich die OCX benutze muss ich die auch registrieren wie mache ich das am besten?
Ich hatte mir das Setup von rmchart runter geladen damit haben die beispiele funktioniert nur wie gesagt weiß ich nicht wie ich die ocx datei registrieren muss?

Sorry wegen der Doppelpost!

[ts-soft]

Im Examples\PureOCXHelper Ordner befindet sich die "Register_Unregister_ActiveX.pb"

Also Augen auf im Verkehr

[roherter]

Es funzt

Jo,bin schon müde,thx.