frmspiderinfo.frm

血蜘蛛决斗游戏的源码

         End
         Begin VB.Label Label1 
            BackColor       =   &H00FFFFFF&
            BackStyle       =   0  'Transparent
            Caption         =   $"frmSpiderInfo.frx":2220
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000000FF&
            Height          =   1170
            Index           =   0
            Left            =   2160
            TabIndex        =   11
            Top             =   2520
            Width           =   5610
         End
         Begin VB.Label lblCap 
            AutoSize        =   -1  'True
            BackColor       =   &H00FFFFFF&
            BackStyle       =   0  'Transparent
            Caption         =   "The Domestic Spider"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   -1  'True
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000000FF&
            Height          =   240
            Index           =   1
            Left            =   120
            TabIndex        =   10
            Top             =   2160
            Width           =   1980
         End
         Begin VB.Label Label1 
            BackColor       =   &H00FFFFFF&
            BackStyle       =   0  'Transparent
            Caption         =   $"frmSpiderInfo.frx":2313
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1170
            Index           =   1
            Left            =   2160
            TabIndex        =   3
            Top             =   480
            Width           =   5610
         End
         Begin VB.Label lblCap 
            AutoSize        =   -1  'True
            BackColor       =   &H00FFFFFF&
            BackStyle       =   0  'Transparent
            Caption         =   "The Default Spider"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   -1  'True
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   240
            Index           =   0
            Left            =   120
            TabIndex        =   2
            Top             =   120
            Width           =   1785
         End
      End
   End
End
Attribute VB_Name = "frmSpiderInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=============================================================================================================================
'
' Developed by Walter A. Narvasa
' [e-mail]
'
' Walter A. Narvasa of
' WANCOM SYSTEMS
'
' READ THIS BEFORE USING THE CODE:
'
' You can study and view the source code for creating your
' own apps, but do not reproduce/release The Spider on the Stick fully
' or partially for any commercial and/or personal purposes. All
' rights of this product is related to it's author. Any violation
' of above conditions will be treated seriously and is punishable.
'
' I do not have full time to add complete explanation, read the help
' file (click Help->Contents) in The Spider on the Stick. Contact me for
' additional help/suggestions
'
'
' VISIT MY WEBSITE : http://jawoltze.gq.nu/
'
'=============================================================================================================================
Dim CurScheme As Integer
Dim EasterFlag As Boolean

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub Form_Load()
CurScheme = 2
EasterFlag = False
timMain.Interval = 30
picIn.Top = picOut.ScaleHeight + 20
End Sub

Private Sub Image1_DblClick()
If EasterFlag = False Then
    MsgBox "OK, you cracked one easter egg, one more is there to crack", vbInformation + vbOKOnly, "Icon Hunter"
    Image1.ToolTipText = "Don't right click me please"
    
End If

EasterFlag = True
    CurScheme = CurScheme + 1
    If CurScheme = 5 Then CurScheme = 1
    ChangeState CurScheme
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    If EasterFlag = True Then
        frmAuthor.Show vbModal
    End If
End If
End Sub

Private Sub Label1_Click(Index As Integer)
picIn_Click
End Sub

Private Sub Label2_Click()
picIn_Click
End Sub


Private Sub lblCap_Click(Index As Integer)
picIn_Click
End Sub


Private Sub lblMain_Click()
picIn_Click
End Sub


Private Sub picIn_Click()
timMain.Enabled = Not timMain.Enabled
End Sub

Private Sub timMain_Timer()

picIn.Top = picIn.Top - 10
If picIn.Top + picIn.Height < picUp.Height + picUp.Top Then picIn.Top = picOut.ScaleHeight + 20


If EasterFlag = False Then Exit Sub

If picIn.Top = picOut.ScaleHeight + 20 Then
    ChangeState CurScheme
    CurScheme = CurScheme + 1
    If CurScheme = 5 Then CurScheme = 1
End If

End Sub


Sub ChangeState(State As Integer)

Select Case State
    Case 1
        Dim myC As Control
        
        For Each myC In Me.Controls
            If TypeOf myC Is PictureBox Then
                myC.BackColor = vbBlack
            ElseIf TypeOf myC Is Label Then
                myC.ForeColor = vbGreen
            ElseIf TypeOf myC Is Line Then
                myC.BorderColor = vbRed
            End If
        Next myC
     Case 2
        For Each myC In Me.Controls
            If TypeOf myC Is PictureBox Then
                myC.BackColor = vbWhite
            ElseIf TypeOf myC Is Label Then
                myC.ForeColor = vbBlack
            ElseIf TypeOf myC Is Line Then
                myC.BorderColor = vbBlack
            End If
        Next myC

     Case 3
        For Each myC In Me.Controls
            If TypeOf myC Is PictureBox Then
                myC.BackColor = vbBlack
            ElseIf TypeOf myC Is Label Then
                myC.ForeColor = vbRed
            ElseIf TypeOf myC Is Line Then
                myC.BorderColor = vbGreen
            End If
        Next myC

     Case 4
        For Each myC In Me.Controls
            If TypeOf myC Is PictureBox Then
                myC.BackColor = vbBlack
            ElseIf TypeOf myC Is Label Then
                myC.ForeColor = vbWhite
            ElseIf TypeOf myC Is Line Then
                myC.BorderColor = vbWhite
            End If
        Next myC

End Select

End Sub