Mini Kabibi Habibi
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.XtraReports
Namespace ReportWpfDemo
Partial Public Class RichText
Inherits ReportModuleBase
Public Sub New()
InitializeComponent()
End Sub
End Class
Public Class RichTextViewModel
Inherits ReportModuleViewModelBase
Protected Overrides Function CreateReport() As IReport
Return New XtraReportsDemos.RichText.Report()
End Function
Protected Overrides Sub FillData(ByVal dataFiller As DataFiller)
dataFiller.Fill(CType(ReportPreviewModel.Report, XtraReportsDemos.RichText.Report))
End Sub
End Class
End Namespace