form4.frm

P2P文件共享系统,新手入门建议下载阅读.

VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Cache File Exists"
   ClientHeight    =   1632
   ClientLeft      =   36
   ClientTop       =   264
   ClientWidth     =   4920
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1632
   ScaleWidth      =   4920
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CheckBox Check1 
      Caption         =   "Remember this answer for next time."
      Height          =   204
      Left            =   336
      TabIndex        =   4
      Top             =   960
      Width           =   4092
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Update Cache"
      Height          =   348
      Left            =   2736
      TabIndex        =   3
      Top             =   1248
      Width           =   1596
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Use Cache"
      Default         =   -1  'True
      Height          =   348
      Left            =   672
      TabIndex        =   2
      Top             =   1248
      Width           =   1596
   End
   Begin VB.Image Image1 
      Height          =   396
      Left            =   96
      Picture         =   "Form4.frx":000C
      Stretch         =   -1  'True
      Top             =   48
      Width           =   444
   End
   Begin VB.Label Label2 
      Caption         =   "Would you like to use the existing cache file, or create an updated cache file?"
      Height          =   444
      Left            =   672
      TabIndex        =   1
      Top             =   432
      Width           =   4236
   End
   Begin VB.Label Label1 
      Caption         =   "A Cache file for this user was found."
      Height          =   204
      Left            =   672
      TabIndex        =   0
      Top             =   96
      Width           =   4236
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Temp

Private Sub Command1_Click()
Temp = 0
Me.Hide
End Sub

Private Sub Command2_Click()
Temp = 1
Me.Hide
End Sub

Private Sub Form_Activate()
If Check1.Value = 0 Then Temp = 0 Else Me.Hide
End Sub