欢度国庆,散分

northwolves 2005-09-27 08:17:37
国庆来临,画一面五星红旗,祝愿祖国繁荣昌盛


'五星红旗(献给祖国56岁生日)
Private Sub Form_Load()
Dim i As Integer
With Me
.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.8, Screen.Height * 0.8
.AutoRedraw = True
.BackColor = vbRed
.ForeColor = vbYellow
.Caption = "五星红旗"
.Icon = LoadPicture("")
For i = 0 To 4
.CurrentX = Array(0.01, 0.25, 0.35, 0.35, 0.25)(i) * Me.Width
.CurrentY = Array(0.05, 0, 0.13, 0.32, 0.45)(i) * Me.Height
.FontSize = Array(150, 50, 50, 50, 50)(i)
Print Chr(&HA1EF)
Next
End With
End Sub



本文引用地址: http://blog.csdn.net/northwolves/services/trackbacks/486053.aspx

...全文
173 36 打赏 收藏 转发到动态 举报
写回复
用AI写文章
36 条回复
切换为时间正序
请发表友善的回复…
发表回复
dt168 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐, 放假就好
kmzs 2005-09-27
  • 打赏
  • 举报
回复
各位强的!
lessely 2005-09-27
  • 打赏
  • 举报
回复
祝愿中国越来越强
Summer006 2005-09-27
  • 打赏
  • 举报
回复
中国中国一定强!
zgvslch 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐
祝愿祖国越来越强大
jxgzay 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐!收红包。
zhhlong 2005-09-27
  • 打赏
  • 举报
回复
国庆到来,我要好好放松一下了,哈哈哈
winehero 2005-09-27
  • 打赏
  • 举报
回复
同乐同乐。。。
大伙,最郁闷的几天过去再好好爽一把
canacy 2005-09-27
  • 打赏
  • 举报
回复
接分!中国人民是勤劳伟大的!!
DerryZhang 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐!
busy2005 2005-09-27
  • 打赏
  • 举报
回复
快乐啊 最近很郁闷 真的应该放松了!!

接分··!!!
Andy__Huang 2005-09-27
  • 打赏
  • 举报
回复
Good!
booklove 2005-09-27
  • 打赏
  • 举报
回复
哎,不放假啊,接分。
kamengwang 2005-09-27
  • 打赏
  • 举报
回复
加班万岁~~~~~~~~~~~~~~~~~~~~~~
lxcy 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐。。。。
不过还要加班
IamDeane 2005-09-27
  • 打赏
  • 举报
回复
好啊,学习了,国庆节快乐啊
wwwhch2004 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐!!!我也来接分!!!
cool_man 2005-09-27
  • 打赏
  • 举报
回复
国庆快乐!!!我来接分..............
fujihua2001 2005-09-27
  • 打赏
  • 举报
回复
支持,预祝神六太空旅行顺利完成!
couragetodream 2005-09-27
  • 打赏
  • 举报
回复
祝祖国欣欣向荣!
加载更多回复(16)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧