国产探花免费观看_亚洲丰满少妇自慰呻吟_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,略作修改就可以用于你的程序中了，是不是太容易了？^-^->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 新田县| 雷山县| 徐闻县| 化德县| 林周县| 卓尼县| 恩施市| 泰安市| 黄浦区| 夏津县| 信阳市| 禄丰县| 绿春县| 陆良县| 岳池县| 上思县| 桃江县| 滦南县| 罗平县| 九台市| 白朗县| 双辽市| 黎城县| 长沙市| 广河县| 碌曲县| 什邡市| 武山县| 分宜县| 鹤壁市| 荥经县| 安顺市| 芒康县| 马边| 格尔木市| 西畴县| 锡林浩特市| 南乐县| 湘乡市| 蒙山县| 焦作市|