ビットマップとしてaxmschartを変換することができません。（vb.net）

Question

私はvb6からvb.netに移行されているプロジェクトに取り組んでいます。そして、クリスタルレポートの作業中にこの問題が発生しました。私のアプリケーションのaxmschartをreportsで印刷してください。私は次のコードを使用しています：

gtmpString = Application.StartupPath & gsGraphPicPath 

    Dim myPic As New Bitmap(_chtAnlysGraph_0.AsBitmap)'''''ERROR here...as bitmap is     not a member of AXMSCHART'''''''' 
    PictureBox1.Image = myPic 
    PictureBox1.Image.Save(gtmpString, System.Drawing.Imaging.ImageFormat.Png) 

    Dim intCount As Short 
    Dim dRow As DataRow 
    Dim dTable As New DataTable 
    Dim dt As New DataSetResults.AnalysisTableDataTable 'Report filling 

    dTable = dt.Copy 
    dRow = dTable.NewRow 
    For intCount = 1 To msgAnlysData.Rows - 1 
     dRow = dTable.NewRow 
     dRow.Item("Sr_No") = msgAnlysData.get_TextMatrix(intCount, 1) 
     dRow.Item("abs_val") = msgAnlysData.get_TextMatrix(intCount, 2) 
     dRow.Item("pt_conc") = msgAnlysData.get_TextMatrix(intCount, 3) 
     dRow.Item("lin_conc") = msgAnlysData.get_TextMatrix(intCount, 4) 
     dRow.Item("poly_conc") = msgAnlysData.get_TextMatrix(intCount, 5) 
     'If gtmpString = True Then 
     gtmpString = Application.StartupPath & gsGraphPicPath 
     dRow.Item("graph1") = savepic(gtmpString) 
     ' End If 
     If msgAnlysData.get_TextMatrix(intCount, 2) = Nothing Then 

     Else 
      dTable.Rows.Add(dRow) 
     End If 
    Next intCount 

ここをクリックしてplzzしてください。

Answer 1

Dim myPic As New Bitmap(_chtAnlysGraph_0)