VB图片浏览器

教案讲稿第七章常用控件[旧课复习]：复习内容：1. 一维数组求和，求平均等2. 复习列表框组合框，为控件做准备复习目的：巩固一维数组，二维数组的应用复习时长：大约5分钟[新课导入]：导入方式：通过复习列表框引入本章节的常用控件，列举常用控件在日常软件中的使用方法。

导入目的：增强学生的学习积极性导入时长：大约5分钟[新课讲授]：重点：各种常用控件（单选按钮、复选框、滚动条、计时器）难点：计时器的应用（Interval属性,Timer事件）方法：运用多媒体辅助教学，采用案例教学和任务驱动等教学法。

7.1单选按钮单选按钮又称为选项按钮（OptionButton），单选按钮一般总是作为一个按钮组来完成工作的。

单选按钮组是一组相互排斥的选项按钮，在一般情况下，在单选按钮组中一次只能选择一个选项，如果一次要选择多个单选按钮，可以使用框架控件把单选按钮分组。

单选按钮的主要属性有：1．Caption属性：单选按钮的文本内容。

2．Value属性：单选按钮是否被选中的属性。

如果将该值为True或-1，单选按钮被选中，如果将该值为False或0，单选按钮未被选中。

3．Style属性：单选按钮的外观。

该值取0时，是标准的Windows风格；取1时，是图形风格。

单选按钮的事件：Click事件：单击单选按钮时触发该事件。

1．使用单选按钮控件【例7.1】设计一个简易血型选择器，用户界面如图7-1所示，由四个单选按钮和一个命令按钮以及一个文本框组成。

选中血型后单击“选择”按钮，结果显示在文本框中。

图7-1 简易血型选择器设计步骤如下：（1）建立应用程序用户界面。

（2）编写代码编写命令按钮Commandl的Click事件代码：Private Sub Command1_Click()If Option1.Value = True Then Text1.Text = "您是O型血"If Option2.Value = True Then Text1.Text = "您是A型血"If Option3.Value = True Then Text1.Text = "您是B型血"If Option4.Value = True Then Text1.Text = "您是AB型血"End Sub7.2 复选框复选框（CheckBox）可以从多个选择中选择一个或多个选项。

教你用VB编程来打开任意浏览器网页！
大家有没有想过，利用VB编程来打开自
己要浏览的网站呢？
今天专门抽时间写一下如何实现这个功能，
指导大家学会怎样用VB编程来打开任何一个
网页。

首先，我们需要创建一个“标准EXE”工程, 进入窗体界面后，点击菜单栏中的工程--部件，在弹出的对话框中向下拖动，选择并添加“Windows Internet controls”这个部件，如下图，让VB获得对Webbrowser控件的支持。

接下来我们在新建工程的窗体上，添加文本框、命令按钮、Webbrowser1等控件。

然后我们在命令按钮的单击事件写以下代码：
•
•
•
Private Sub Command1_Click() WebBrowser1.Navigate Text1 '文本框中输入要打卡的网址End Sub
代码截图：
这时候运行程序，在文本框中输入我们想要打开的网址后，只需点击命令按钮，我们想要打开的网页就出现了！
就是这么神奇，正在学VB的你赶快实际运行一下吧~。

利用VB实现多媒体播放器在VB中实现一个多媒体播放器需要以下步骤：1. 创建一个VB项目：在VB环境中，创建一个新的Windows Forms应用程序项目。

2. 添加必要的控件：在VB表单(Form)上添加所需的控件，例如播放按钮、暂停按钮、停止按钮、音量调节器、进度条等。

3. 导入多媒体库：在VB项目中导入Windows Media Player组件或其他多媒体库。

这可以通过右键单击工具箱，选择“选择项”并添加所需的组件来完成。

4. 设置播放器：在VB中创建一个Windows Media Player对象，并设置其属性和方法。

例如，设置音量、循环、播放速度等。

5.添加功能：实现按钮的点击事件和其他控件的事件处理程序。

例如，当用户单击播放按钮时，开始播放所选多媒体文件。

6.添加文件浏览器：实现文件浏览器功能，以便用户可以选择要播放的多媒体文件。

7.更新进度条：为多媒体播放器添加一个进度条控件，并在播放过程中更新其值。

8. 显示时间：在VB中，使用Timer对象来显示多媒体文件的当前播放时间。

9.处理错误：处理可能发生的错误，例如无法打开文件、播放时出现错误等。

10.完善界面：通过调整窗体大小和布局，美化播放器界面。

11.调试和测试：在VB开发环境中进行调试和测试，确保播放器正常工作以及正常处理用户输入。

12.发布应用程序：将应用程序发布为可执行文件，使其能够在其他计算机上运行。

以上步骤提供了实现一个基本的多媒体播放器所需的核心点。

然而，具体实现方式可能会因项目需求和功能扩展而有所不同。

因此，您可以根据您的需求进行进一步的自定义和扩展。

7.1 制作图片浏览器一、复习1、滚动条的常用属性和常用事件；2、计时器控件的常用属性和常用事件。

二、本节重点1、掌握驱动器列表框控件(DriveListBox)的常用属性和事件；2、掌握目录列表框控件(DirListBox)的常用属性和事件；3、掌握文件列表框控件(FileListBox)的常用属性和事件。

导入：用Visual Basic开发应用程序时，经常需要访问或显示有关驱动器、文件夹及文件的信息。

本节课我们来通过制作小程序，学习如何利用文件控件和相关语句来实现文件访问和管理。

三、内容学习文件系统控件包括驱动器列表框控件(DriveListBox)、目录列表框控件(Dir ListBox)和文件列表框控件(DriveListBox),表中"所属控件"一栏中Drive表示驱动器列表框控件, Dir表示目录列表框控件, File表示文件列表框控件，文件系统控件常用属性如下：1、驱动器列表框控件驱动器列表框控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出当前系统拥有的所有磁盘驱动器，供用户选择。

驱动器列表框控件的常用属性如下：1）Drive：返回或设置运行时选择的驱动器。

该属性设计时不可用。

Drive 属性的默认值为当前驱动器。

使用格式：对象.Drive [= <字符串表达式>]例如：Drive1.drive=“D:”2）List(运行态属性)：包含有效的驱动连接列表。

3）ListCount(运行态属性)：：连接的驱动器个数。

4）ListIndex(运行态属性)：表示在运行时创建该控件时的当前驱动器的索引。

驱动器列表框控件的常用事件如下：Change事件，该事件当改变所选择的驱动器时，即选择一个新的驱动器或通过代码改变Drive属性的设置时发生。

Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub2、目录列表框控件目录列表框控件在运行时显示目录和路径,这个控件可以用于显示分层的目录列表。

VB中Image与PictureBox控件的⼀些使⽤技巧本⽂档有些初学VB的同学对⼀些控件的属性⽅法也了解了⼀些,但是当真的想⽤他们解决⼀些实际的问题时却⼜找不到有效的办法.经常是脑⼦⾥有了很好的创意但是在⽤程序实现时却遇到了这样与那样的问题.这的确叫⼈郁闷,我在学习的过程中同样遇到了不少这样的问题,因此我想给出⼏个⼩的技巧供同学们参考,希望叫那些初出茅庐的同学少⾛些弯路.当我在使⽤Image与PictureBox控件时遇到了⼀些困难,经过同学的指点与⾃⼰的研究,有了⼀点⼩⼩的收获,想拿出来与⼤家探讨⼀下.我想,假如要很灵活的运⽤这两个控件你就必须了解这两个控件的特点与常⽤属性和⽅法.如果你是⼀个VB初级⽤户的话,那么看下⾯的⼀段应该说是必要的,要是你已经对这些很熟悉了,可以略过他.图像框(Image)和图⽚框(PictureBox)都是⽤于显⽰图形,可以显⽰.bmp;.ico;.wmf; .jpg;.gif等类型的⽂件.图⽚框不仅可以显⽰图像,还可以作为其他控件的容器,因此PictureBox控件⽐Image控件功能更强.⼀些属性:(1)Picture属性:⽤于设置在图像框与图⽚框重要显⽰的图像⽂件名.科在设计是通过属性或在运⾏时调⽤LoadPicture函数来设置.例如: Picture1.Picture=LoadPicture("D:\Pic\Girl.jpg")(2)Align属性Align属性⽤于设置图⽚框再窗体中的显⽰⽅式.0(默认)⽆特殊显⽰,1为与窗体⼀样宽,位于窗体顶端;2为与窗体⼀样宽,位于窗体底端;3为与窗体⼀样⾼, 位于窗体左端;4为与窗体⼀样⾼,位于窗体右端.(3)Image的Stretch属性Stretch属性⽤于确定图像框如何与图⽚相适合.True为图像将适应图像框的⼤⼩,False为图像框将适应图像的⼤⼩.(4)图⽚框的AutoSize属性AutoSize属性⽤于确定图⽚框如何与图像相适应.False为保持原始尺⼨,当图形⽐图⽚框⼤时,超出的部分被截去,True为图⽚框根据图形⼤⼩⾃动调整,也就是说图⽚多⼤,图⽚框就变成多⼤.下⾯我就基于这两个控件介绍两个很简单的技巧:(⼀)如何实现对于过⼤图⽚的按⽐例缩⼩有的同学看到这⾥可能就会问缩⼩⼀副图⽚只要将Image的Stretch属性设为True不就⾏了吗.话随这样说,但是仔细想⼀下这样不可能实现将⼀副图⽚按照相同的⽐例缩⼩.因为图像框的⼤⼩不能保证和图⽚是成⽐例的.那么⽤什么⽅法解决这个问题呢?应该⽤Move⽅法解决.其实Move⽅法可以⽤在很多控件中,甚⾄数据库控件中也有它的⾝影.但我只介绍⼀下他在本问题⾥的应⽤.Move⽅法既可⽤于Image控件⼜可⽤于PictureBox控件中.他的⽤法为:对象.Move Left,Top,Width,Hight其中"对像"为要使⽤的控件名,这⾥可以是Image1或PictureBox1."Left,Top"分别为对象左上⾓在所在容器的坐标,"Width,Hight"为对象的宽和⾼.现在知道了这个⽅法那么实现图⽚的按⽐例缩⼩就显得很简单了.我们可以将图⽚放于⼀个Image或者PictureBox中,然后⽤Move语句设置图⽚的位置,与缩⼩的⽐例.但还需要⼀个步骤,你还要求出图⽚的宽度与⾼度才能按照你规定的⽐例缩⼩.求图⽚的宽和⾼可⽤下⾯的语句: Image1.Picture.Width, Image1.Picture.Height.可求出他们.现在⼤功告成了,图⽚可以缩⼩了.缩⼩时可⽤下⾯的语句:Image1.Move 4320,240,Val(Image1.Picture.Width)/3,Val(Image1.Picture.Height)/3'4320,240为图⽚的左上坐标.将图⽚缩⼩1/3.(⼆)如何实现图⽚的拖动上⾯的例⼦其实很简单,但假如你想不到Move的话就不那么好办了.下⾯的技巧同样很简单,但是要实现图⽚的拖动就不得不使⽤MouseDown, MouseUp,MouseMove三个事件.现在我们先分析⼀下图⽚拖动的过程.⾸先你要⽤⿏标拖动⼀副图时下按下了⿏标左键,这就触发了MouseDown事件.当你拖住⿏标并移动⿏标时就触发了MouseMove事件,拖动完毕放开左键时⼜触发了MouseUp事件.下⾯我先介绍⼀下这三个事件:MouseUp和MouseDown⽤法⼀样MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)变量Button决定⿏标哪个键被按下.1－－⿏标左键按下 2－－⿏标右键按下 4－－⿏标中键按下变量Shift提供⿏标键按下时SHIFT,Ctrl,Alt件组合的代码:No key pressed0Shift 1Shift+Ctrl3Shift+Alt 5Alt 4Alt+Ctrl6Ctrl2Shift+Ctrl+Alt7X,Y:控件或窗体的当前位置坐标--MouseDown,MouseUp事件触发的⽔平和垂直位置.MouseMove ⽤法MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Button,Shift参数与前⾯的相似,这⾥不再赘述.X,Y为MouseMove触发时⿏标的⽔平和垂直位置.下⾯⽤⼀段例程说明如何⽤这三个元素实现图⽚的拖动:Dim xp As IntegerDim yp As IntegerDim xz As IntegerDim yx As IntegerPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Button = 1xp = Xyp = YImage1.MousePointer = 7End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If xp <> 0 And yp <> 0 ThenImage1.Left = Image1.Left + (X - xp)Image1.Top = Image1.Top + (Y - yp)End Ifxz = Image1.Leftyz = Image1.TopEnd SubPrivate Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Button = 1xp = yp = 0Image1.MousePointer = 0End Sub。