about.frm

小宠物－电子鸡源程序

VERSION 5.00
Begin VB.Form Form2 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2835
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5865
   ClipControls    =   0   'False
   Icon            =   "About.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1956.767
   ScaleMode       =   0  'User
   ScaleWidth      =   5507.538
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   1005
      Left            =   1680
      TabIndex        =   5
      Top             =   1170
      Width           =   4110
      Begin VB.TextBox Text2 
         Alignment       =   2  'Center
         BackColor       =   &H8000000F&
         BorderStyle     =   0  'None
         Height          =   675
         Left            =   45
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         TabIndex        =   6
         TabStop         =   0   'False
         Text            =   "About.frx":000C
         Top             =   240
         Width           =   4020
      End
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      Height          =   1110
      Left            =   1725
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   4
      TabStop         =   0   'False
      Text            =   "About.frx":008E
      Top             =   60
      Width           =   4005
   End
   Begin VB.PictureBox AboutFrame 
      Height          =   2025
      Left            =   60
      ScaleHeight     =   1965
      ScaleWidth      =   1500
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   150
      Width           =   1560
      Begin VB.Image AboutPicture 
         Height          =   1965
         Left            =   0
         Top             =   0
         Width           =   1500
      End
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Default         =   -1  'True
      Height          =   345
      Left            =   4545
      TabIndex        =   1
      Top             =   2400
      Width           =   1230
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000014&
      X1              =   70.429
      X2              =   5423.023
      Y1              =   1573.696
      Y2              =   1573.696
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000010&
      X1              =   56.343
      X2              =   5408.938
      Y1              =   1563.343
      Y2              =   1563.343
   End
   Begin VB.Label lblDescription 
      BackStyle       =   0  'Transparent
      Caption         =   "Tamagotchi is a register trade mark of Bandai Co., Ltd."
      ForeColor       =   &H80000014&
      Height          =   300
      Index           =   1
      Left            =   60
      TabIndex        =   2
      Top             =   2430
      Width           =   4365
   End
   Begin VB.Label lblDescription 
      BackStyle       =   0  'Transparent
      Caption         =   "Tamagotchi is a register trade mark of Bandai Co., Ltd."
      ForeColor       =   &H80000010&
      Height          =   300
      Index           =   0
      Left            =   75
      TabIndex        =   0
      Top             =   2445
      Width           =   4365
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Module:   About.frm
'                Displays About Tamagotchi Simulator and Plugin Window
'Author:    Pheeraphat Sawangphian
'E-Mail:     [e-mail]
'URL:       http://www.geocities.com/Hollywood/Lot/6166

Option Explicit

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub Form_Load()
    Form1.DoLoadPicture Form1.Plugins, AboutPicture, "\other\", "about.gif"
    Form1.Enabled = False
    Form1.mPopupStatus.Enabled = Form1.Enabled
    Form1.mPopupOnTop.Enabled = Form1.Enabled
    Form1.mCheats.Enabled = Form1.Enabled
    Form1.mPopupChangeColor.Enabled = Form1.Enabled
    Form1.mPopupPlugins.Enabled = Form1.Enabled
    Form1.mPopupInstructions.Enabled = Form1.Enabled
    Form1.mPopupAbout.Enabled = Form1.Enabled
    
    If Form1.mPopupInsulatingSheet.Checked Then
        Form5.Enabled = False
    Else
        Form1.mPopupInsulatingSheet.Enabled = False
    End If
    
    cmdOK.Caption = Form1.OKButtonText
    Caption = Form1.mPopupAbout.Caption
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) / 2
    AlwaysOnTop Me, Form1.mPopupOnTop.Checked
    Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2)
    Text2.Text = Mid(Text2.Text, 1, Len(Text2.Text) - 2)
    
    If Form1.Plugins <> "" Then
        DoGetNameAndDescription
    End If
    
    SendKeys "{TAB}"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Form1.Enabled = True
    Form1.mPopupStatus.Enabled = Form1.Enabled
    Form1.mPopupOnTop.Enabled = Form1.Enabled
    Form1.mCheats.Enabled = Form1.Enabled
    Form1.mPopupChangeColor.Enabled = Form1.Enabled
    Form1.mPopupPlugins.Enabled = Form1.Enabled
    Form1.mPopupInstructions.Enabled = Form1.Enabled
    Form1.mPopupAbout.Enabled = Form1.Enabled
    
    If Form1.mPopupInsulatingSheet.Checked Then
        Form5.Enabled = True
    Else
        Form1.mPopupInsulatingSheet.Enabled = True
    End If
End Sub

Private Sub DoGetNameAndDescription()
    Dim Filename As String
    Dim InputData As String
    Dim ValueName As String
    Dim NewValue As String
    Dim i As Integer
    Dim FileNumber As Integer
    
    Filename = App.Path + "\plugins\" + Form1.Plugins + "\plugin.ini"
    
    If Dir(Filename, vbNormal) <> "" Then
        FileNumber = FreeFile
        Open Filename For Input As #FileNumber
    
        Do While Not EOF(FileNumber)
            Line Input #FileNumber, InputData
            InputData = Trim(InputData)
        
            If InputData <> "" And Mid(InputData, 1, 1) <> ";" Then
                i = InStr(InputData, "=")
            
                If i > 0 Then
                    NewValue = Trim(Mid(InputData, i + 1))
                
                    If NewValue <> "" Then
                        ValueName = LCase(Trim(Mid(InputData, 1, i - 1)))
                    
                        Select Case ValueName
                            Case "name"
                                Frame1.Caption = NewValue
                            Case "description"
                                Text2.Text = NewValue
                        End Select
                    End If
                End If
            End If
        Loop
    
        Close #FileNumber
    End If
End Sub