首页 >> 读书频道 >> 电脑 >> 使用Vb5制作Easter Egg
 
· 如 何 计 算 Text
· 输入限制确认
· VB查找文件的两种方法
· 处理多个具有相同要求的控
· 在VB中如何调用C++B
· 在VB中使用数据窗体设计
· VB中如何实现文本查找功
· 如何使VB的网格控件具有
· VB编程经验点滴
· 巧用Visual Bas
· 怎样把VC++代码转换成
· 防止用户编辑文本框控件中
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

使用Vb5制作Easter Egg


查看有无更新版本

关键字:VB 2006-9-18

 

---- Easter Egg是一个神秘地显示在乏味的About对话框中的简易名字列表,前提是用户按压到正确的键.然而Easte Egg 没有什么功能性目的,但能提供娱乐的东西.但许多公司不相信单个程序员,因此程序员常常把他们的名字或相片隐藏在程序的About窗体里,所以通过按一定的键,用户能看到所有参与编程人员的名字表或相片.既然这样,必须确定Easter Egg 的秘密键.怎样确定键位呢?

---- 下面就以Visual Basic 为例,实现Easter Egg。在VB中,1代表Ctrl +A,2代表Ctrl+B,一直往下去,到数字26,它代表Ctrl +Z.13为Ctrl+N.当然,在按下Ctrl 的同时,任何和为13的键位都会触发Easter Egg,为了记忆方便,我们最好是一个容易记的英语单词.就以13为例,英语单词可以是CAI,这是比较容易记的单词.

---- 现来创建这个应用程序:

---- 1.用标准窗体创建一个应用程序,加入一个图象控件,一个时间控件,一个命令按钮和两个标签(Easter Egg.jpg).

---- 2.代码为:

---- 声明为:

Option Explicit
Dim Secret, MoveMe As Integer
Dim NL As String

---- 命令按钮代码为:

Private Sub SSCommand1_Click()
End
End Sub

---- 窗体代码为:

Private Sub Form_Load()
MoveMe = 50
NL = Chr(13) & Chr(10)
Label1.Caption = "计算机-----Visual Basic 的About 窗体"
Label1.Top = 120
Label2.Top = Picture1.Height
End Sub

---- 图象的KeyPress 的代码为:

Private Sub Picture1_KeyPress(KeyAscii As Integer)
Secret = Secret + KeyAscii
If Secret = 13 Then
EasterEgg
End If

End Sub

---- 过程为:

Public Sub EasterEgg()
Timer1.Interval = 50
Timer1.Enabled = True
NL = Chr(13) & Chr(10)
Label1.Visible = False
Label2.Visible = True
Label2.Caption = "It is me!!!!..........."
End Sub

---- 时间控件的代码为:

Private Sub Timer1_Timer()
Label2.Move Label2.Left, Label2.Top - MoveMe
If Label2.Top < 0 Then
MoveMe = -MoveMe
End If
If Label2.Top > Picture1.Height Then
MoveMe = -MoveMe
Timer1.Enabled = False
Label2.Visible = False
Label2.Top = Picture1.Height
Label1.Visible = True
Secret = 0
End If
End Sub

---- 以上程序在Windows9x,vb5.0中测试成功。

使用Vb5制作Easter Egg

[ 1 ]
使用Vb5制作Easter Egg num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑