PictureClip 控件保存了可用于其它 Visual Basic 控件的多个图象。所有的图象包含在一个位图中。这样从该位图中“剪贴”的选定区域，就可用于 PictureBox 控件以创建动画，或用于多个 PictureBox 控件以创建工具框。

属性

微软的实例

属性

Clip属性（PictureClip控件），ClipHeight属性（PictureClip控件），ClipWidth属性（PictureClip控件），ClipX属性（PictureClip控件），ClipY属性（PictureClip控件），Cols, Rows属性（PictureClip控件），GraphicCell属性（PictureClip控件），Height, Width属性（PictureClip控件），Picture属性（PictureClip控件），StretchX, StretchY属性（PictureClip控件），CellHeight,CellWidth属性（PictureClip控件），hWnd属性，Name属性，Index属性，Parent属性，Picture属性（ActiveX控件）， Height, Width属性（ActiveX控件），Index属性（ActiveX控件），Tag属性（ActiveX控件），Object属性（ActiveX控件），hWnd属性（ActiveX控件）。

方法

最实用的方法：GraphicCell（n）

描述：返回点阵图第n个小部分。

这个部分是由数学计算划分的。首先在设置cols中属性为图像切割时的列数，rows中设置属性为图像切割时的行数。

最后图像就被分成了cols×rows个小部分，每一部分的宽度：width÷cols，每一部分的高度：height÷rows。

此时，就可以返回部分图像了，不过

用GraphicCell返回时要注意：

n是图像碎片编号，从左往右分，第一个碎片编号是0，最后一个碎片编号是cols×rows-1。

微软的实例

此示例来自 Visual Basic3.0 安装文件中。

这个实例的工程名：Red TOP （红色陀螺）

效果：会出现一个界面，左边有一个陀螺图像，右边有INFO，spin两个按钮。按下Spin按钮，左边的陀螺会转起来，如果你细心，还会发现当程序缩成图标的时候图标也是一个旋转陀螺。 按下Info按钮,显示信息。

解释：这个程序使用了18个有不同陀螺图标的Picture控件数组（把Visible设为FALSE），一个有6×3陀螺图像组成的大图像的PictureClip控件，

一个空白的Picture控件和一个Timer控件。当然，两个CommandButton控件必不可少。

代码：（当中的注释是我加上去的☺）

'用于Windows 3.00的VisualBasic 3.0代码

'Red Top 1991-1993 Microsoft Corp.

Dim y As Integer '当前图像碎片编号

Dim tagget As Integer '是否同意旋转

'----------------------------------------------

Sub Form_Load() '在表单加载的时候做好准备工作（很重要哦！）

picture1.Picture = picClip1.GraphicCell(2)'在空白控件里显示第3个陀螺图像

y = 2

End Sub '结束

'----------------------------------------------

Sub runtop() '让陀螺旋转的子程序⊙

y=y+1 : If y=18 Then y=0

'y 加以 1，当碎片编号大于最后碎片编号（也就是17），编号归零

Picture1.picture = GraphicCell(y) '使陀螺图像变成序列中下一个（有旋转感觉☋）

'改变最小化图标

form1.Icon = Picture3(y).Picture

End Sub

'----------------------------------------------

Sub Timer1_Timer()

If tagget then runtop '当同意旋转时旋转（tagget等效于tagget=-1）

End Sub

'----------------------------------------------

Sub Command2_Click()

If Command2.Caption = "Span" Then '停止旋转时

Command2.Caption = "Stop" '旋转

tagget=-1'同意

Else

Command2.Caption = "Spin"'停止

tagget=0'不同意

End if

End Sub

'-----------------------------------------------

Sub Command1_Click ()

infoform.Show ' 加载并显示 infoform

End Sub