点击Picture属性后面的带“?”符号的按钮，打开“加载图片”对话框，通过浏览找到需要的图形文件。
2)利用Windows的剪切板
将要装入的图形拷贝到Windows的剪切板，然后选中要装入的图片框，执行“粘贴”命令，图片框中就会显示出所要显示的图形。
如果要把图片框中的图形清空（即图片框中不显示任何图形），可以将Picture属性后面的内容清除（delete）。 2、在运行阶段装入图形
使用LoadPicture函数，给对象的Picture属性赋值。 [对象.]picture=LoadPicture(\文件名\[对象1.]Picture=[对象2.]Picture
卸载图片命令:[对象.]Picture=LoadPicture() 例1：
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(App.Path & \ Image1.Picture = LoadPicture(App.Path & \End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture() Image1.Picture = LoadPicture() End Sub
例2：交换两个图片框中的图形。
Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture Picture3.Picture = LoadPicture() 例3：苹果的成长
Private Sub Form_Load() Image1.Stretch = True End Sub
Private Sub Image1_Click()
Image1.Width = Image1.Width + 100 Image1.Height = Image1.Height + 100 End Sub
二、按钮控件
接受用户输入的命令 输入命令可以有三种方式: （1）鼠标单击；
（2）按Tab键焦点跳转到该按钮, 再按回车键； （3） 快捷键（Alt+有下划线的字母） （一）按钮控件的属性 1、Caption: 标题属性——命令按钮显示的内容，可在某字母前加 “&“设置快捷键。例如： &Ok , 显示 Ok
2、Cancel:取消功能属性（逻辑值），当设置为Ture时，程序运行时按Esc键与单击此命令
- 41 -
按钮的效果相同。
注意：在一个窗体只能有一个按钮的Cancel属性设置为Ture 3、Default：确认属性（逻辑值），设置为True时，按Enter键相当于用鼠标单击了该按钮。
注意：在一个窗体只能有一个按钮的Default设置为Ture 4、Style: 确定显示的形式。 0-标准样式。只能显示文字。 1-图形格式。文字、图形均可 。
5、Picture、DownPicture、DisabledPicture
当Style属性设置为1时，这三个属性分别是按钮控件正常、按下和无效时显示的图片的路径及文件名。如果没有设置DownPicture和DisabledPicture属性，则按下和无效时显示的图片与正常时的相同。这三个属性可以在设计时通过属性窗口设置，也可以在运行时通过LoadPicture函数设置。
6、ToolTipText ：设置工具提示，与Picture属性同时使用。如果仅用图形作为对象的标签，那么能够使用此属性以较少的文字解释每个对象。 （二）按钮控件的事件
按钮控件常用的事件是鼠标单击事件(Click），但不支持鼠标双击事件(DblClick) （三）按钮控件的方法
常用的方法是SetFocus方法。 （四）应用举例
例1：模拟交通信号灯的切换。 见课本。
例2：建立一个允许剪切、复制和粘贴的简单便笺板程序。
可增加内容：利用MouseMove事件决定命令按钮的有效性， 即当选中内容，“剪切”、“复制”按钮有效，否则无效。
Dim st As String
Private Sub Form_Load() '设置剪切、复制、粘贴按钮无效 cmdcut.Enabled = False cmdcopy.Enabled = False cmdpaste.Enabled = False End Sub
Private Sub cmdCopy_Click()
st = Text1.SelText '将选中的内容存放到st变量中
- 42 -
End Sub
Private Sub cmdCut_Click()
st = Text1.SelText '将选中的内容存放到st变量中 Text1.SelText = \将选中的内容清除,实现了剪切 cmdcopy.Enabled = False cmdcut.Enabled = False cmdpaste.Enabled = True End Sub
Private Sub cmdExit_Click() End End Sub
Private Sub cmdPaste_Click()
' 将st变量中的内容插入到光标所在的位置,实现了粘贴 Text1.SelText = st End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.SelText <> \ cmdcut.Enabled = True ' 当拖动鼠标选中要操作的文本后,剪切、复制按钮有效 cmdcopy.Enabled = True cmdpaste.Enabled = False Else
cmdcut.Enabled = False ' 当拖动鼠标未选中文本,剪切、复制按钮无效 cmdcopy.Enabled = False cmdpaste.Enabled = True End If End Sub Ⅲ、小结
本次课主要学习了图形图象控件和命令按钮控件，要会应用图形图像控件的属性、事件、方法，按钮控件的属性、事件、方法。 Ⅳ、作业
P151 一、9，11，12，13 二、5，6，7
第39、40课时
课题：控件（三） 教学目的:
1、掌握单选按钮和复选框的属性、事件、方法 2、掌握列表框控件的属性、事件、方法 3、掌握组合框控件的属性、事件、方法 4、应用列表框控件、组合框控件 教学重难点：
- 43 -
1、单选按钮和复选框的属性、事件、方法 2、列表框控件的属性、事件、方法 3、组合框控件的属性、事件、方法 4、列表框控件、组合框控件的应用 教学方法： 多媒体教学 教学过程：
Ⅰ、复习上节内容
1、图形图像控件的属性、事件 2、按钮控件的属性、事件 Ⅱ、新课 一、选择控件
1、单选按钮和复选框控件的属性 1) Alignment
该属性用来设置/返回单选按钮和复选框控件中文本和按纽的排列方式 0-Left Justify左对齐,按钮在文本左侧(默认） 1-Right Justify右对齐,按钮在文本的右侧 2) Caption
设置/返回单选按钮和复选框控件显示的标题，可以是中英文的任何字符或汉字。在该属性中如果输入了以“&”开头的字符，则按Alt键加该字符键可以执行该控件的单击操作 3）Value
设置/返回单选按钮和复选框控件的值，该值表示单选按钮和复选框的状态。 对于单选按钮来说，有两个值可以选择： True 单选按钮是选中的
False 单选按钮是未被选中的（默认） 对于复选框来说，有三个值可以选择： 0-Unchecked 复选框未被标记（默认） 1-Checked 复选框被标记
2-Grayed 复选框灰色显示(并不是复选框无效) 4）Style
该属性设置/返回该单选按钮和复选框控件的外观是标准的还是图形的，有两个值可以选择： 0-Standard 单选按钮和复选框的外观为标准的（标准的Windows风格）（默认） 1-Graphical 单选按钮和复选框的外观为图形的（带有自定义图片） 5）Picture、DownPicture、DisabledPicture
当Style属性设置为1时，这三个属性分别是单选按钮和复选框控件未选中、选中和无效时显示的图片的路径及文件名。如果没有设置DownPicture和DisabledPicture属性，则按下和无效时显示的图片与正常时的相同。 2、单选按钮和复选框控件的事件
复选框控件没有鼠标双击事件（DblClick）。 3、单选按钮和复选框控件的方法
控件常用的方法是SetFocus方法。 二、列表框控件
1、列表框控件的属性 1) Columns
设置/返回列表框控件中的表项是单列显示还是多列显示 ，为大于等于0的整数
- 44 -