VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 使用Vb5制作Easter Egg
发表评论(0)作者:李志强, 平台:VB6.0+Win98, 阅读:10534, 日期:2001-03-02
使用Vb5制作Easter Egg
中国农业大学
李志强
---- 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中测试成功。