词条 | 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条中文百科知识,基本涵盖了大多数领域的百科知识,是一部内容开放、自由的电子版百科全书。