Images 应用程序

图 3.18 所示窗体用了四个 Image 控件，一个 Shape 控件，一个 PictureBox 控件和一个 CommandButton 控件。当用户选择扑克牌符号时，Shape 控件使该符号突出显示，并且在 PictureBox 中显示相应的描述。关于本例的工作版本，请参阅 Controls.vbp 示例应用程序中的 Images .frm。

图 3.18 Image 和 Shape 控件的例子

下表列出了应用程序中对象的属性设置。

对象	属性	设置
Picture box	Name Align	picStatus Bottom
First image control	Name Picture	imgClub Spade.ico
Second image control	Name Picture	imgDiamond Diamond.ico
Third image control	Name Picture	imgHeart Heart.ico
Fourth image control	Name Caption	imgSpade Spade.ico
Shape control	Name Shape BorderWidth Height Width	shpCard 4 - Rounded Rectangle 2 735 495
CommandButton	Name Caption	cmdClose &Close

Images 应用程序中的事件

Image 应用程序对事件的响应如下：

每一个 Image 控件的 Click 事件使 Shape 控件的 Left 属性与它自己的 Left 属性相同，并将图形移到 Image 的顶端。
调用 PictureBox 的 Cls 方法清除 StatusBar 的当前标题。
调用 PictureBox 的 Print 方法在 StatusBar 上打印新标题。

Image 控件 Click 事件的代码如下：

Private Sub imgHeart_Click()
   shpCard.Left = imgClub.Left
   picStatus.Cls 
   picStatus.Print "Selected: Club"
   shpCard.Visible = True
End Sub

注意，Click 事件代码中第一行利用 = 操作符为 Shape 控件的 Left 属性赋一个值 (让它等于 Image 控件的 Left 属性)。下面两行调用方法，因而不需要操作符。在第三行中，值 ("Selected: Club") 是 Print 方法的一个参数。

该应用代码中还有一行很重要；它在 Form Load 事件中。

shpCard.Visible = False

将 Shape 控件的 Visible 属性设为 False，Shape 控件被隐藏起来直至单击第一幅 Image。在 Image 控件 Click 事件的最后一步将 Visible 属性设为 True。

详细信息 关于属性、方法和事件详细信息，请参阅“编程基础”。