基本介紹
- 中文名：PictureClip控制項
- 特點：保存可用於Visual Basic控制項圖象
- 描述：返回點陣圖第n個小部分
- 性質：控制項
屬性,方法,微軟的實例,
屬性
CellHeight | CellWidth | 屬性 | PictureClip控制項 |
Clip | |||
ClipWidth | ClipHeight | ||
ClipX | ClipY | ||
Cols | Rows | ||
GraphicCell | |||
Height | Width | ||
Picture | |||
StretchX | StretchY | ||
hWnd | 屬性 | ||
Index | |||
Name | |||
Parent | |||
Height | Width | 屬性 | ActiveX控制項 |
hWnd | |||
Index | |||
Object | |||
Picture | |||
Tag | |||
方法
最實用的方法：GraphicCell（n）
描述：返回點陣圖第n個小部分。
這個部分是由數學計算劃分的。首先在設定cols中屬性為圖像切割時的列數，rows中設定屬性為圖像切割時的行數。
最後圖像就被分成了cols×rows個小部分，每一部分的寬度：width÷cols，每一部分的高度：height÷rows。
此時，就可以返回部分圖像了，不過用GraphicCell返回時要注意：
n是圖像碎片編號，從左往右分，第一個碎片編號是0，最後一個碎片編號是cols×rows-1。
微軟的實例
此示例來自 Visual Basic 3.0 安裝檔案中。
這個實例的工程名：Red TOP （紅色陀螺）
效果：會出現一個界面，左邊有一個陀螺圖像，右邊有INFO，spin兩個按鈕。按下Spin按鈕，左邊的陀螺會轉起來，如果你細心，還會發現當程式縮成圖示的時候圖示也是一個旋轉陀螺。 按下Info按鈕,顯示信息。
解釋：這個程式使用了18個有不同陀螺圖示的Picture控制項數組（把Visible設為FALSE），一個有6×3陀螺圖像組成的大圖像的PictureClip控制項，
一個空白的Picture控制項和一個Timer控制項。當然，兩個CommandButton控制項必不可少。
代碼：
'Red Top 1991 - 1993 Microsoft Corp.Dim y As Integer '當前圖像碎片編號Dim tagget As Integer '是否同意旋轉'----------------------------------------------Sub Form_Load() '在窗體載入的時候做好準備工作Picture1.Picture = picClip1.GraphicCell(2)'在空白控制項里顯示第3個陀螺圖像 y = 2End Sub '結束'----------------------------------------------Sub runtop() '讓陀螺旋轉的子程式⊙y = y + 1: If y = 18 Then y = 0 'y加以1，當碎片編號大於最後碎片編號（也就是17），編號歸零 Picture1.Picture = picClip1.GraphicCell(y) '使陀螺圖像變成序列中下一個（有旋轉感覺?） '改變最小化圖示 Form1.Icon = Picture3(y).PictureEnd Sub'----------------------------------------------Sub Timer1_Timer()If tagget Then runtop '當同意旋轉時旋轉（tagget等效於tagget=-1）End Sub'----------------------------------------------Sub Command2_Click() If Command2.Caption = "Spin" Then '停止旋轉時Command2.Caption = "Stop" '旋轉tagget = -1 '同意Else Command2.Caption = "Spin" '停止tagget = 0 '不同意End IfEnd Sub'-----------------------------------------------Sub Command1_Click()infoform.Show '載入並顯示infoformEnd Sub
