1'*************************************************************************2'**模块名：CR_DynLoadPics3'**说明：Facesun.cn版权所有2005-2006(C)4'**创建人：Babyt(阿泰)http://www.cnblogs.com/babyt5'**日期：2005-04-216'**修改人：7'**日期：8'**描述：从本地磁盘获取图片文件进行显示9'本程序为原型程序，未进行完整保护10'**版本：V1.0.011'*************************************************************************1213ImportsSystem.Data14'注意此处IO的加入是为了读取图片文件15ImportsSystem.IO16PublicClassForm117InheritsSystem.Windows.Forms.Form1819#Region"Windows窗体设计器生成的代码"2021PublicSubNew()22MyBase.New()2324'该调用是Windows窗体设计器所必需的。25InitializeComponent()2627'在InitializeComponent()调用之后添加任何初始化2829EndSub3031'窗体重写dispose以清理组件列表。32ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)33IfdisposingThen34IfNot(componentsIsNothing)Then35components.Dispose()36EndIf37EndIf38MyBase.Dispose(disposing)39EndSub4041'Windows窗体设计器所必需的42PrivatecomponentsAsSystem.ComponentModel.IContainer4344'注意:以下过程是Windows窗体设计器所必需的45'可以使用Windows窗体设计器修改此过程。46'不要使用代码编辑器修改它。47FriendWithEventsButton1AsSystem.Windows.Forms.Button48FriendWithEventsTextBox1AsSystem.Windows.Forms.TextBox49FriendWithEventsCrystalReportViewer1AsCrystalDecisions.Windows.Forms.CrystalReportViewer50FriendWithEventsLabel1AsSystem.Windows.Forms.Label51<System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()52Me.Button1=NewSystem.Windows.Forms.Button53Me.TextBox1=NewSystem.Windows.Forms.TextBox54Me.CrystalReportViewer1=NewCrystalDecisions.Windows.Forms.CrystalReportViewer55Me.Label1=NewSystem.Windows.Forms.Label56Me.SuspendLayout()57'58'Button159'60Me.Button1.Location=NewSystem.Drawing.Point(520,40)61Me.Button1.Name="Button1"62Me.Button1.TabIndex=063Me.Button1.Text="生成报表"64'65'TextBox166'67Me.TextBox1.Location=NewSystem.Drawing.Point(40,40)68Me.TextBox1.Name="TextBox1"69Me.TextBox1.Size=NewSystem.Drawing.Size(392,21)70Me.TextBox1.TabIndex=171Me.TextBox1.Text="E:\myNet\CR_DynLoadPics\Pics"72'73'CrystalReportViewer174'75Me.CrystalReportViewer1.ActiveViewIndex=-176Me.CrystalReportViewer1.AutoScroll=True77Me.