私がやったビュアーのカスタマイズ方法が掲載されているサイトは知りません。
"defaultAnimation.gif"がありませんというエラーメッセージが
表示され、フォームにカスタマイズしたビューアを配置すること
すらできません。
VS2008pro付属のだとエラーにならないのですが、Crystal Reports For .NetFramework 4.0だとエラーになりますね。
調べてみたところ、初期化時にクラスが配置されているアセンブリ内のリソースからDefaultAnimation.gifを取り出しているようです。継承した場合、継承クラスが配置されているアセンブリ内のリソースを探してしまい、存在しないためにエラーになっています。
ですから、継承したうえで回避するには、継承したクラスのアセンブリにDefaultAnimation.gifという画像ファイル(読み込み中にぐるぐる回っているgifアニメ)を「埋め込まれたリソース」として含めてやることで可能になります。
(new Bitmap(GetType(継承クラス),"DefaultAnimation.gif")でリソースが取れる状態にする)
継承しなくても以下のコードで印刷ボタンを乗っ取れることは確認しました。
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Windows.Forms
Public Class Form1
Sub New()
' この呼び出しはデザイナーで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
crvex = New CrystalReportViewerEx(Me.CrystalReportViewer1)
End Sub
Private crvex As CrystalReportViewerEx
End Class
Public Class CrystalReportViewerEx
'Inherits CrystalReportViewer '元のCrystalReportViewerに継承できないバグがあるので
'Public Sub New()
' MyBase.New()
' ReplacePrintButton(Me)
' '以下のコードがでリソースが取れない場合は継承したクラスは使い物になりません。
' Dim t As Type
' t = GetType(CrystalReportViewerEx)
' Dim manifestResourceStream As System.IO.Stream = t.Assembly.GetManifestResourceStream(t, "DefaultAnimation.gif")
'End Sub
Public Sub New(ByVal target As CrystalReportViewer)
baseCrystalReportViewer = target
ReplacePrintButton(target)
End Sub
Private baseCrystalReportViewer As CrystalReportViewer
Private basePrintButton As ToolStripItem
Private thisPrintButton As ToolStripButton
Private Sub ReplacePrintButton(ByVal target As CrystalReportViewer)
Dim baseToolstrip As ToolStrip
baseToolstrip = FindControl(Of ToolStrip)(target)
If (baseToolstrip IsNot Nothing) Then
For Each item As ToolStripItem In baseToolstrip.Items
If (item.ToolTipText.Contains("印刷") OrElse item.ToolTipText.Contains("Print")) Then
basePrintButton = item
thisPrintButton = New ToolStripButton()
thisPrintButton.Text = item.Text
thisPrintButton.Image = item.Image
thisPrintButton.Size = item.Size
thisPrintButton.Padding = item.Padding
thisPrintButton.Margin = item.Margin
thisPrintButton.DisplayStyle = item.DisplayStyle
thisPrintButton.ImageScaling = item.ImageScaling
thisPrintButton.ForeColor = item.ForeColor
thisPrintButton.BackColor = item.BackColor
thisPrintButton.ToolTipText = item.ToolTipText
thisPrintButton.AccessibleName = item.AccessibleName
thisPrintButton.Tag = item.Tag
AddHandler thisPrintButton.Click, AddressOf thisPrintButton_Click
Dim index As Integer
index = baseToolstrip.Items.IndexOf(basePrintButton)
baseToolstrip.Items.Insert(index, thisPrintButton)
'baseToolstrip.Items.Remove(basePrintButton)
basePrintButton.Visible = False
Exit For
End If
Next
End If
End Sub
Private Sub thisPrintButton_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("印刷")
'baseCrystalReportViewer.PrintReport()
End Sub
Private Function FindControl(Of T As Control)(ByVal ctl As Control) As T
If (TypeOf ctl Is T) Then
Return CType(ctl, T)
End If
Dim retval As T = Nothing
For Each child As Control In ctl.Controls
System.Diagnostics.Debug.Print(child.GetType().ToString())
retval = FindControl(Of T)(child)
If (retval IsNot Nothing) Then
Exit For
End If
Next
Return retval
End Function
End Class
個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)
