图片查看器的设计和实现.docVIP

PAGE  PAGE 8 VB6.0环境下图片查看器的设计与实现 —VB程序设计初探 平山县回舍中学 郜兵山 本文设计与实现了能查看电脑中所存放的图片的查看器,并提供了在VB6.0环境下的源代码。 关键词 VB6.0 图片查看器 Activex控件 1、引言 VB6.0提供了Image控件,利用该控件，可以加载.BMP.GIF.JPG等不同类型的图片文件，并显示出来。本文利用VB6.0所提供的Image控件、Commdlg32.OCX控件及Filelistbox控件,可以选择电脑中存放的图片文件,并进行查看 2、设计思路 2.1选择电脑中存放的图片文件 通过对通用对话框（Commondlg32.OCX）及Filelistbox控件和Textbox控件属性的设置,可以选择电脑中存放的不同类型的图片,并将图片文件在Filelistbox控件中显示出来,在该列表中选择要显示的图片,就可以在Image控件中显示出来。 2．2查看图片 单击“查看图片”按钮之后，在IMAGE控件中查看选中的图片。 2．3退出程序 当图片查看结束之后，单击“关闭”按钮，可以退出程序的运行。 3功能实现 3．1建立工程，打开窗体设计器 执行“开始”→“程序”→“Microsoft Visual Basic 6.0中文版”→“Microsoft Visual Basic 6.0中文版”命令,打开“新建工程”对话框,如下图所示. 在此对话框中,单击“打开”按钮，打开窗体设计器，如下图所示。 3．2在窗体设计器中添加控件 3．2．1添加三个命令按钮 三次双击工具箱中的Command控件，在窗体中添加三个命令按钮Command1、Command2、Command3。 3．2．2添加图像框（Image）控件 双击工具箱中的IMAGE控件，在窗体中添加一个Image控件。 3．2．3添加文件列表（Filelistbox）控件 双击工具箱中的文件列表Filelistbox控件，在窗体中添加一个FILELISTBOX控件。 3．2．4添加通用对话框（Commondlg）控件 工具箱中没有通用对话框控件，为在窗体中添加这个控件，要先把它添加到控件工具箱中。具体方法如下：在控件工具箱的空白处，单击鼠标右键，在打开的菜单中，选择“部件…”命令，打开“部件”对话框，如下图所示。 在该对话框中，单击“浏览（B）…”按钮，打开“添加Activex控件”对话框，如下图所示。 在“添加Activex控件”对话框中，选择控件“Comdlg32.OCX”后，单击“打开”按钮，在“部件”对话框中，出现控件“Microsoft Common Dolog Contror6.0(Sp6)”同时,这个控件被选中.单击“应用”按钮之后，该控件出现中控件工具箱中。双击该控件工具箱中的Commondlg控件，在窗体中添加一个通用对话框（Commondlg）控件。 3．3调整窗体及控件的大小和位置 调整窗体的大小至合适位置。选中窗体中的各控件，调整其大小和位置。调整后的效果如下图所示。 3．4设置窗体及窗体中各控件的属性 窗体及窗体中各控件的属性如下表所示。设置属后的窗体效果如下图所示。 窗体及窗体中各控件的属性窗体及窗体中的控件对象属性属性值窗体名称Form1Caption图片查看器1.0Command1名称Command1Caption浏览Command2名称Command2Caption查看图片Command3名称Command3Caption关闭Image名称Image1StretchTrueAppearanceTrueCommdlg名称Commdlg1Filetier*.jpg; * .bmp;* .gifTextbox名称Text1Text空Filelistbox名称File1Pattern*.JPG;*.BMP;*.GIF 3．5功能实现 3．5．1窗体加载事件过程代码 在代码窗口中，选择窗体Form1，在事件中选择Load事件，添加如下所示代码： Private Sub Form_Load () Text1.FontSize = 10 File1.Pattern = *.JPG;*.BMP;*.GIF End Sub 3．5．2浏览图片文件 在代码窗口中选择对象Command1，在事件中选择Click事件，添加如下所示代码： Private Sub Command1_Click () CommonDialog1.Filter = *.JPG;*.BMP;*.GIF CommonDialog1.FileName = CommonD