비트 맵으로 axmschart를 변환 할 수 없습니다. (vb.net)

Question

vb6에서 vb.net로 마이그레이션되는 프로젝트에서 작업 중입니다. 크리스탈 리포트 작업 중이 문제가 발생했습니다. 사실 저는해야합니다. 보고서에서 내 응용 프로그램의 axmschart를 인쇄하십시오. 다음 코드를 사용하고 있습니다.

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)