(vb课程设计)图片浏览器修改
计算机程序设计语言(VB)课程设计实验报告的撰写要求
计算机程序设计语言(VB)课程设计实验报告的撰写要求总体要求：文字通顺，条理清楚，结构合理，格式规范。
☆一套完整的课程设计说明书主要包括：A.封面；B.；C.目录；C.正文；D.参考文献；E.致谢；F.附录等。
课程设计说明书一律左侧装订，装订顺序为：封面→课程设计任务书→目录→正文→参考文献→致谢→附录。
☆正文参考格式：一、设计目的二、系统分析三、系统设计四、系统实现五、系统测试六、总结七、参考文献八、致谢九、附录☆具体要求：1.排版要求页面设置：上下页边距为2.54，左右页边距为2.6；字符间距：标准；页面大小：A4；页码：每页下端居中，全部采用阿拉伯数字排序，如1，2，……，99，100，……等，页码两边不加修饰符，页码编号从正文开始；页眉、页码：页眉为“江苏科技大学南徐学院课程设计”，宋体，五号，居中排列；页码居页面底端居中。
页眉页码均从目录后开始设置。
附录中图纸、原文复印件等可不设置。
2.内容应有目录、中文摘要、关键词、正文、参考文献、致谢、附录；3.“目录”两字用小二号宋体加粗且居中，字与字之间空两个汉字宽，空两行为目录内容，目录内容字体用小4号宋体，页码放在行末，目录内容和页码之间用虚线连接，采用两端对齐。
目录根据正文内容自动生成。
4.中文摘要：主要说明本次课程设计（实习）的目的、内容、方法和主要结果，力求语言精炼准确，字数控制在200字以内。
格式如下（□为一个汉字宽）：□□【摘□要】：（小4号宋体加粗）××××（小4号宋体）5.关键词：关键词是表述说明书（报告）中主要内容信息的单词或术语，关键词数量一般为3-6个，每个关键词之间用逗号隔开。
格式如下：□□【关键词】：（小4号宋体加粗）×××，××，×××（小4号宋体）6.正文：一级标题（1.1）：四号黑体、20磅行距、段前18磅、段后12磅、左对齐；二级标题（1.1.1）：13磅黑体、20磅行距、段前后12磅、左对齐；三级标题（1.1.1.1）：小四号黑体、20磅行距、段前后6磅、左对齐；正文部分：宋体，小四，20磅行距、两端对齐、首行缩进2字符。
VB教案（13）图片框（PictureBox）
VB教案（13）图片框（PictureBox）(十三)图片框（PictureBox）用于在运行中执行画图的方法，故占用资源较多。
也可显示图形和写入文本，用途比较灵活。
一．图片框的属性：1．N ame属性：2．P icture属性：在设计时通过属性窗口加载指定的图片文件。
加载后会产生一个．FRX的文件存放图片。
3．A utoRedraw属性：设为Ｔrue时：自动重绘有效。
图形和文本存在内存中，图片框重现或移动时，图形和文本会自动刷新。
设为Ｆalse时：重绘功能无效。
图形和文本仅输出到屏幕上，并未存入内存，图片框移动或重现时，不能刷新。
4．A utoSize属性：设为True时：图片框会自动调整大小来适应图片文件的尺寸。
当然图片大小超出窗体大小时，也会被裁剪掉右边和底部的超出部分。
设为False时：图片框大小保持不变，图片的超出部分会被从右边和下边裁剪掉。
5．C urrent X和Current Y属性：决定当前的绘图位置坐标，或返回当前位置的坐标值。
6．F illColor属性：决定闭合图形中填充图案的颜色。
7．F illStyle属性：决定闭合图形中填充图案的类型。
０：实心图形。
颜色由FillColor属性决定。
１：（缺省）透明。
２：水平线。
３：垂直线。
４：向上对角线。
５：向下对角线。
６：十字交叉线。
７：对角交叉线。
8．B ackColor和ForeColor属性：9．B orderColor属性：决定边框的颜色。
10．FontTransparent属性：设为True时：文字的周围是透明的。
（当文字和图形重叠时仅感觉文字写在图形上）设为False时：文字的周围不透明。
（当文字和图形重叠时文字以一方块区叠在图形上）11．Align属性：决定图片框在窗体上的大小显示方式和显示的位置。
０：可以在设计时或在程序中确定图片框的大小和位置。
１：图片框显示在窗体顶部。
２：图片框显示在窗体底部。
３：图片框显示在窗体的左边。
vb课程设计
VB课程设计1. 引言VB（Visual Basic）是一种面向对象的编程语言，由微软公司开发。
它结合了基本的编程概念和直观的图形用户界面，使得编写应用程序变得简单和直观。
本文将介绍VB课程设计的相关内容，包括设计目标、设计过程和实施步骤等。
2. 设计目标VB课程设计的主要目标是培养学生的编程能力和解决问题的能力。
通过设计一个实际应用程序，学生可以学习如何使用VB语言进行程序设计，并了解软件开发过程中的各个环节。
3. 设计过程VB课程设计的设计过程包括以下几个步骤：3.1 确定需求在开始设计之前，首先需要明确应用程序的需求。
这包括确定应用程序的功能、用户界面和交互方式等。
如果我们要设计一个学生成绩管理系统，需求可能包括添加学生信息、查询成绩和生成报表等功能。
3.2 设计界面在确定需求后，接下来需要设计应用程序的用户界面。
这包括确定窗体布局、控件位置和样式等。
通过使用VB提供的可视化设计器，可以方便地创建用户界面，并进行调整和修改。
3.3 编写代码界面设计完成后，就可以开始编写代码了。
VB使用基于事件的编程模型，通过响应用户的操作来触发相应的事件处理程序。
在编写代码时，需要考虑到各种可能的情况，并进行适当的错误处理。
3.4 测试和调试在编写完代码后，需要对应用程序进行测试和调试。
这包括对各个功能进行测试，检查是否存在错误和异常情况，并进行适当的修复和优化。
3.5 文档撰写在完成测试和调试后，需要撰写相应的文档。
文档内容包括应用程序的功能介绍、使用说明和技术实现等。
这有助于其他人了解和使用该应用程序。
4. 实施步骤VB课程设计的实施步骤如下：4.1 学习VB语言基础在开始设计之前，学生需要学习VB语言的基础知识。
这包括语法、数据类型、控制结构、函数和对象等。
通过学习这些知识，学生可以掌握VB语言的基本用法。
4.2 学习VB开发环境除了学习VB语言外，学生还需要熟悉VB开发环境。
这包括VB集成开发环境（IDE）的使用、项目管理和调试工具等。
VB公开课教案
VB制作图片浏览器
教学目标
1．知识目标：掌握VB控件——驱动器列表DriveListBox、目录列表DirListBox、文件列表FileListBox；窗体的Resize事件；窗体间的信息传递；
2．能力、情感目标：
通过完成图片浏览器的制作，培养学生的分析问题能力、应用VB解决问题能力和程序调试能力。
引出今天的题目：制作我的图片浏览器（DIY）
二．新课
展示课堂总任务
观察
思考
用查找工具找出本地硬盘的所有图片文件（*.BMP;*.JPG;*.GIF）。
用教学用例（图片浏览器）浏览、查看图片文件。
展示总任务：用VB制作一个自己的图片浏览器。
（停止广播）
让学生通过查找图片文件掌握文件通配符的使用。（复习巩固）
软件不出错
功能完整
功能强大
代码清晰易读
答题思路清晰
20分
10分
10分
30分
10分
10分
10分
给出教学案例，分析程序功能
演示教师事先完成的示例
任务分析
思考
回答提问
完成最简单的图片浏览器：
（给定盘符路径文件名，打开该图片文件进行浏览）
观察控件：
驱动器列表DriveListBox
目录列表DirListBox
文件列表FileListBox
思考：
如何利用三控件去打开任意一个文件？
如何在文件列表中只显示图片文件？
回答
（窗体的关联技术）
（广播）
讲解关键技术：
浏览图片
问题：如何在窗体中浏览图片？
如何实现动态显示不同图片?
Image1 = LoadPicture3;文件名
VB 软件图标修改
VB程序图标用的是两个软件:
IconWorkshop:一款图标编辑软件,不管什么格式图片,只要能打开,就能转成ico图标.
ResHacker:替换VB生成的应用程序的图标.
_____________________________________
方法:
一、先到网上下载N个图标，随便PNG格式还是ico格式。
二、用IconWorkshop打开一个图标，点上方工具栏的“编辑”，“来自此图像的Windows图标项目”，然后弹出一个窗口让你选择图标的大小和颜色位数。
（这里你要注意：如果想直接通过窗体的Icon属性添加图标，图标只能选择16色的，最大选择32*32尺寸），为了节省图标大小，请不要选太多。
三、你选择生成16色32*32的图标，然后确定，然后保存图标到桌面上直接给VB使用了。
四、生成应用程序，下一步然后我们再给应用程序替换为分辨率更高的图标。
五、用ResHacker打开我们之前生成的，改过窗体图标的VB程序。
找到图标组，右键替换资源，选择一个用IconWorkshop生成的分辨率更高颜色更好的图标，资源名称打进去1，然后直接确定。
再保存一下。
一个应用程序完成了，图标随便怎么改。
教你用VB编程来打开任意浏览器网页！
教你用VB编程来打开任意浏览器网页！
大家有没有想过，利用VB编程来打开自
己要浏览的网站呢？
今天专门抽时间写一下如何实现这个功能，
指导大家学会怎样用VB编程来打开任何一个
网页。
首先，我们需要创建一个“标准EXE”工程, 进入窗体界面后，点击菜单栏中的工程--部件，在弹出的对话框中向下拖动，选择并添加“Windows Internet controls”这个部件，如下图，让VB获得对Webbrowser控件的支持。
接下来我们在新建工程的窗体上，添加文本框、命令按钮、Webbrowser1等控件。
然后我们在命令按钮的单击事件写以下代码：
•
•
•
Private Sub Command1_Click() WebBrowser1.Navigate Text1 '文本框中输入要打卡的网址End Sub
代码截图：
这时候运行程序，在文本框中输入我们想要打开的网址后，只需点击命令按钮，我们想要打开的网页就出现了！
就是这么神奇，正在学VB的你赶快实际运行一下吧~。
在VBA中处理图像和图片文件的操作方法
在VBA中处理图像和图片文件的操作方法VBA（Visual Basic for Applications）是一种用于自动化和自定义Microsoft Office应用程序的编程语言。
在VBA中，我们可以使用各种方法来处理图像和图片文件，包括插入、删除、修改、保存等操作。
本文将介绍几种在VBA中处理图像和图片文件的常用方法。
1. 插入图像和图片文件在VBA中，我们可以使用`Shapes.AddPicture`方法来插入图像和图片文件。
该方法有几个参数，包括文件路径、链接、保存到工作表还是图表等。
以下是一个示例代码：```vbaSub InsertPicture()Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet1")Dim pic As ObjectSet pic = ws.Shapes.AddPicture("C:\path\to\image.jpg", False, True, 100, 100, -1, -1)' 参数说明：文件路径，链接，保存到工作表，左距，上距，宽度，高度' 调整图像大小pic.LockAspectRatio = msoFalsepic.Width = 200pic.Height = 200' 可以通过pic对象的其他属性进行更多操作，比如旋转、裁剪等End Sub```上面的代码会在名为"Sheet1"的工作表中插入一张图片。
2. 删除图像和图片文件要删除VBA中的图像或图片文件，我们可以使用`Shapes.Delete`方法。
以下是一个示例代码：```vbaSub DeletePicture()Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet1")Dim pic As ShapeFor Each pic In ws.ShapesIf pic.Type = msoPicture Thenpic.DeleteEnd IfNext picEnd Sub```上面的代码会删除名为"Sheet1"的工作表中的所有图片。
vbIEli浏览器
VB课程设计报告书2007-07-29 14:01:24| 分类：学术交流区| 标签：|字号大中小订阅课程设计报告书（I E浏览器）班级:机械0601-4班学号:20060627姓名:景琦指导教师:李静石家庄铁道学院2007年7月23日题目：IE浏览器内容摘要：一个简单的IE浏览器，功能简单实用，比较容易被用户所使用，此报告详细的介绍了此浏览器的编辑思想和方法，并给出了相关的源代码，便于读者参考。
该浏览器突破传统浏览器功能繁多复杂的特点，所设功能简单实用，操作起来方便。
索引关键词：浏览器编辑界面代码目录1. 题目要求-----------------------------------------------------------12.设计思想------------------------------------------------------ 23. 系统完成功能及框图---------------------------------------24.界面设计------------------------------------------------------35. 核心算法及说明--------------------------------------------66.结论----------------------------------------------------------- 97. 参考资料-----------------------------------------------------98.后记-----------------------------------------------------------99. 附录-----------------------------------------------------------10第一章：题目要求1.1：要求达到的功能图框1.2：主界面参考1.3：要求l ▲地址栏保存最近访问的 10 条记录l▲工具栏包含：前进、后退、停止、刷新按钮及完成相应的功能l▲完成菜单中要求的功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
图片浏览器设计报告学院土木工程学院班级土木工程C076 学号074837 姓名郭少华成绩一、设计思路1.要达到的目的①培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。
②能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小。
③在FileListBox中只列出图片文件。
④使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。
⑤使用HscrollBar控件对图片进行缩放。
⑤可以轮流显示FileListBox中列出图片文件。
⑥当图片放大超过窗口大小后，可以提供鼠标移动图片显示。
2.关键问题的解决①使用Loadpicture方法在图片框里加载符合格式要求的图片。
②使用FileListBox方法来显示图片。
③使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。
④使用Timer事件更改FileListBox的ListCount属性，使图片能自动浏览。
⑤使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。
二、模块之间的调用关系，或程序流程图picture模块hscrollbar模块pictureload三、部分程序关键源代码及注释Private Sub Form_Load()Drive1.Drive = App.PathDir1.Path = App.Path 'App 是当前的应用程序对象File1.Pattern = "*.bmp;*.jpg;*.ico;*.wmf" '在FileListBox中只列出图片文件。
Picture1.AutoSize = TruePicture2.AutoSize = True '设定自动缩放，适应PictureBox的大小。
= 2000= sbrCenter= 1800= sbrCenter= 2400= sbrCenter= 3000= sbrCenter '设定StatusBar的数量和属性End SubPrivate Sub Drive1_Change()On Error Resume NextDir1.RefreshDir1.Path = Drive1.DriveIf Err.Number = 68 ThenErr.ClearMsgBox "先将光盘插入！", , "提示"Exit SubEnd If '设定错误提示End SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) <> "\" Thentempstring = File1.Path & "\" & File1.FileName '非根目录时，路径中的最后加上一个反斜杠"\"Elsetempstring = File1.Path & "\" & File1.FileNameEnd If '装入选定的文件。
Picture1.Enabled = TruePicture2.Picture = LoadPicture(tempstring)Picture1.PaintPicture Picture2.Picture _, 0, 0, Picture1.Width, Picture1.Height, _0, 0, Picture2.Width, Picture2.Height '设定图片的初始状态。
Picture2.Visible = Falsemysize = FileLen(Dir1.Path & "\" & File1.FileName)Picture2.ScaleMode = 3StatusBar1.Panels(1) = "图片尺寸:" & _Picture2.ScaleWidth & "×" & Picture2.ScaleHeightStatusBar1.Panels(2) = "文件大小:" & _Int(mysize / 1024 * 10 + 0.5) / 10 & "KB"StatusBar1.Panels(3) = "修改日期:" & "2008-6-11 " & "08：32"= "制作人:郭少华2008年6月" '设定图片信息的提取End SubPrivate Sub Command1_Click()If Command1.Caption = "自动浏览" ThenTimer1.Enabled = TrueCommand1.Caption = "手动浏览"ElseTimer1.Enabled = FalseCommand1.Caption = "自动浏览"End If '设定自动浏览End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()X = File1.ListIndexX = X + 1If X < File1.ListCount ThenFile1.Selected(X) = TrueCall File1_ClickElseFile1.ListIndex = 0End If '设定timer事件来自动浏览图片End SubPrivate Sub Form_QueryUnload(Cancel As Integer, _UnloadMode As Integer)Title = MsgBox("确定要退出?", vbYesNoCancel, "提示")If Title <> 6 ThenCancel = TrueEnd IfIf Title = 6 ThenMsgBox "谢谢使用,欢迎再次使用。
", , "图片浏览器"End IfEnd SubPrivate Sub HScroll1_Change()Picture1.ClsMax = 200Min = 1 '设定滚动条的最大、最小值。
Value = 200smallchang = 1largechang = 1 '设定Value值的改变量。
Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width * HScroll1.Value / 100, _Picture1.Height * HScroll1.Value / 100, 0, 0, _Picture2.Width, Picture2.Height '使用滚动条缩放图片End SubPrivate Sub Picture1_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)X1 = XY1 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) X2 = XY2 = YX3 = X3 + X2 - X1Y3 = Y3 + Y2 - Y1Picture1.Picture = LoadPicture(tempstring)Picture1.ClsIf HScroll1.Value <> 100 Then '使用鼠标移动图片Picture1.PaintPicture Picture2.Picture, X3, Y3, _Picture1.Width * HScroll1.Value / 100, _Picture1.Height * HScroll1.Value / 100 '使用PaintPicture方法ElsePicture1.PaintPicture Picture2.Picture, X3, Y3, _Picture1.Width, Picture1.HeightEnd IfEnd SubPrivate Sub munfileopen_Click() '菜单栏"打开"CommonDialog1.ShowOpenPicture2.Picture = LoadPicture(CommonDialog1.FileName)Picture1.ClsPicture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightPicture2.Visible = FalseCommonDialog1.Filter= pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif|pictures|(*.ico)|*.ico"'设定载入文件的格式munbigger.Enabled = Truemunsmaller.Enabled = Truemunback.Enabled = Truemysize = FileLen(CommonDialog1.FileName)Picture2.ScaleMode = 3StatusBar1.Panels(1) = "图片尺寸:" & _Picture2.ScaleWidth & "×" & Picture2.ScaleHeightStatusBar1.Panels(2) = "文件大小:" & _Int(mysize / 1024 * 10 + 0.5) / 10 & "KB"StatusBar1.Panels(3) = "修改日期:" & "2008-06-11 " & "08:32"= "制作人:郭少华2008年6月" '设定图片信息的提取End SubPrivate Sub munfileexit_Click() '菜单栏"关闭"Unload MeEnd SubPrivate Sub munbigger_Click() '菜单栏"放大"Picture1.ClsPicture2.Width = Picture2.Width * 0.8Picture2.Height = Picture2.Height * 0.8Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightEnd SubPrivate Sub munsmaller_Click() '菜单栏"缩小"Picture1.ClsPicture2.Width = Picture2.Width * 1.5Picture2.Height = Picture2.Height * 1.5Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightEnd SubPrivate Sub munback_Click() '菜单栏"还原"Picture2.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightPicture2.Visible = FalseEnd Sub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①菜单栏的“打开”功能和鼠标拖动图片功能还应待完善。