C
cmdolcet69
In the below code exact line If _graphicScreenShots(intloop) =
"Summary" Then....... I get an error message
Overload resolution failed because no Public '=' can be called with
these arguments:
'Public Shared Operator =(a As String, b As String) As Boolean':
Argument matching parameter 'a' cannot convert from 'Bitmap'
to 'String'.
Code:
//
**********************************************************************************************************************
Private Sub AddSummaryInformation()
If _graphicScreenShots.Count > 0 Then
Dim intloop As Integer
For intloop = 0 To _graphicScreenShots.Count - 1
If _graphicScreenShots(intloop) = "Summary" Then
Dim transaction As
System.ComponentModel.Design.DesignerTransaction =
host.CreateTransaction("Drop Field")
Try
Dim report As
DevExpress.XtraReports.UI.XtraReport = reportDesigner.RootReport
Dim tmpPicBox As
DevExpress.XtraReports.UI.XRControl =
DevExpress.XtraReports.Design.FieldDragHandler.CreateXRControl(GetType(XRPictureBox),
reportDesigner.RootReport.Bands(DevExpress.XtraReports.UI.BandKind.Detail),
New System.Drawing.Point(0, 0), Nothing, reportDesigner.SnapToGrid,
reportDesigner.GridSize)
With CType(tmpPicBox, XRPictureBox)
.Image = _graphicScreenShots(intloop + 1)
.Sizing =
DevExpress.XtraPrinting.ImageSizeMode.StretchImage
.Tag = "Summary Graphic"
End With
myNC.ControlName = "picSummary"
AddToContainer(host, tmpPicBox)
Catch ex As Exception
_TListener.AddMethodError(ex)
Finally
transaction.Commit()
End Try
Exit For
End If
Next
End If
End Sub
"Summary" Then....... I get an error message
Overload resolution failed because no Public '=' can be called with
these arguments:
'Public Shared Operator =(a As String, b As String) As Boolean':
Argument matching parameter 'a' cannot convert from 'Bitmap'
to 'String'.
Code:
//
**********************************************************************************************************************
Private Sub AddSummaryInformation()
If _graphicScreenShots.Count > 0 Then
Dim intloop As Integer
For intloop = 0 To _graphicScreenShots.Count - 1
If _graphicScreenShots(intloop) = "Summary" Then
Dim transaction As
System.ComponentModel.Design.DesignerTransaction =
host.CreateTransaction("Drop Field")
Try
Dim report As
DevExpress.XtraReports.UI.XtraReport = reportDesigner.RootReport
Dim tmpPicBox As
DevExpress.XtraReports.UI.XRControl =
DevExpress.XtraReports.Design.FieldDragHandler.CreateXRControl(GetType(XRPictureBox),
reportDesigner.RootReport.Bands(DevExpress.XtraReports.UI.BandKind.Detail),
New System.Drawing.Point(0, 0), Nothing, reportDesigner.SnapToGrid,
reportDesigner.GridSize)
With CType(tmpPicBox, XRPictureBox)
.Image = _graphicScreenShots(intloop + 1)
.Sizing =
DevExpress.XtraPrinting.ImageSizeMode.StretchImage
.Tag = "Summary Graphic"
End With
myNC.ControlName = "picSummary"
AddToContainer(host, tmpPicBox)
Catch ex As Exception
_TListener.AddMethodError(ex)
Finally
transaction.Commit()
End Try
Exit For
End If
Next
End If
End Sub