国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用CallByName函數實現字符動畫

2019-11-18 17:37:51
字體：大 中 小
來源：轉載
供稿：網友
CallByName函數用于執行一個對象的方法，或者設置或返回一個對象的屬性。利用它可以輕松實現動畫。這里舉個字符動畫的例子，讓大家感受一下此函數的強大功能。
要嘗試本例，請在窗體上添加一個Label和一個Timer控件。

OptionExplicit
DimssAsInteger,xAsInteger'聲明變量
Timer1.Interval=100
Timer1.Enabled=True
EndSub

PrivateSubTimer1_Timer()
ss=ss 1
x=x 30'標簽移動值
Ifss>=120Thenss=0:x=0'循環
CallByNameLabel1,"Move",VbMethod,x'用CallByName令標簽移動
EndSub

OK,略作修改就可以用于你的程序中了，是不是太容易了？^-^->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 巩留县| 双江| 左权县| 泰州市| 上虞市| 静乐县| 巴塘县| 吴江市| 大余县| 师宗县| 蒙阴县| 增城市| 玛纳斯县| 城口县| 深州市| 镇巴县| 两当县| 固原市| 隆德县| 涟源市| 永川市| 仁化县| 新巴尔虎左旗| 依兰县| 石泉县| 滨海县| 涪陵区| 乐清市| 怀远县| 富源县| 深泽县| 措勤县| 涞源县| 建宁县| 布尔津县| 龙口市| 馆陶县| 淮阳县| 永和县| 山阳县| 洪雅县|