在线时间0 小时
UID205017
注册时间2010-6-5
NXP金币0
该用户从未签到
新手上路

- 积分
- 318
- 最后登录
- 1970-1-1
|
发表于 2011-12-13 17:27:10
|
显示全部楼层
回复:创意设计--元旦将至,敲出属于工程师的代码祝福语吧!
提前送祝福啦!
Dim x1, x2, y1, y2 As Integer
-----------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
freescale.Caption = "祝飞思卡尔社区的朋友:Happy new year!"
freescale.Move (Screen.Width - freescale.Width) / 2, (Screen.Height - freescale.Height) / 2
End Sub
------------------------------------------------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
freescaleic.Move x1, y1
freescalesq.Move x2, y2
End Sub
-----------------------------------------------------------------------------------------------------------------------------
Private Sub Timer2_Timer()
Randomize
x1 = Int((14000 + 1) * Rnd)
y1 = Int((10400 + 1) * Rnd)
x2 = Int((12000 + 1) * Rnd)
y2 = Int((10000 + 1) * Rnd)
End Sub
亮点在解压包里:
freescale.rar
(133.32 KB, 下载次数: 5)
|
|