请输入您要查询的百科知识:

 

词条 PictureClip控件
释义

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

随便看

 

百科全书收录4421916条中文百科知识,基本涵盖了大多数领域的百科知识,是一部内容开放、自由的电子版百科全书。

 

Copyright © 2004-2023 Cnenc.net All Rights Reserved
更新时间:2025/3/15 15:59:26