home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD115151192000.psc / Form4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-11-09  |  5.6 KB  |  188 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHighscore 
  3.    BorderStyle     =   4  'Festes Werkzeugfenster
  4.    Caption         =   "Highscores"
  5.    ClientHeight    =   1845
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   3465
  9.    BeginProperty Font 
  10.       Name            =   "Lucida Console"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form4"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   123
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   231
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   1  'Fenstermitte
  26.    Begin VB.CommandButton Command2 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "Close"
  29.       Default         =   -1  'True
  30.       Height          =   255
  31.       Left            =   2400
  32.       TabIndex        =   11
  33.       Top             =   1560
  34.       Width           =   975
  35.    End
  36.    Begin VB.CommandButton Command1 
  37.       Caption         =   "Delete"
  38.       Height          =   255
  39.       Left            =   1440
  40.       TabIndex        =   10
  41.       Top             =   1560
  42.       Width           =   855
  43.    End
  44.    Begin VB.Line Line2 
  45.       BorderColor     =   &H00E0E0E0&
  46.       X1              =   232
  47.       X2              =   0
  48.       Y1              =   25
  49.       Y2              =   25
  50.    End
  51.    Begin VB.Line Line1 
  52.       X1              =   0
  53.       X2              =   232
  54.       Y1              =   24
  55.       Y2              =   24
  56.    End
  57.    Begin VB.Label Score 
  58.       Alignment       =   2  'Zentriert
  59.       AutoSize        =   -1  'True
  60.       Caption         =   "Score #1"
  61.       Height          =   165
  62.       Index           =   1
  63.       Left            =   2520
  64.       TabIndex        =   9
  65.       Top             =   480
  66.       Width           =   840
  67.    End
  68.    Begin VB.Label HName 
  69.       AutoSize        =   -1  'True
  70.       Caption         =   "Name #1"
  71.       Height          =   165
  72.       Index           =   1
  73.       Left            =   120
  74.       TabIndex        =   8
  75.       Top             =   480
  76.       Width           =   735
  77.    End
  78.    Begin VB.Label Score 
  79.       Alignment       =   2  'Zentriert
  80.       AutoSize        =   -1  'True
  81.       Caption         =   "Score #2"
  82.       Height          =   165
  83.       Index           =   2
  84.       Left            =   2520
  85.       TabIndex        =   7
  86.       Top             =   720
  87.       Width           =   840
  88.    End
  89.    Begin VB.Label HName 
  90.       AutoSize        =   -1  'True
  91.       Caption         =   "Name #2"
  92.       Height          =   165
  93.       Index           =   2
  94.       Left            =   120
  95.       TabIndex        =   6
  96.       Top             =   720
  97.       Width           =   735
  98.    End
  99.    Begin VB.Label Score 
  100.       Alignment       =   2  'Zentriert
  101.       AutoSize        =   -1  'True
  102.       Caption         =   "Score #3"
  103.       Height          =   165
  104.       Index           =   3
  105.       Left            =   2520
  106.       TabIndex        =   5
  107.       Top             =   960
  108.       Width           =   840
  109.    End
  110.    Begin VB.Label HName 
  111.       AutoSize        =   -1  'True
  112.       Caption         =   "Name #3"
  113.       Height          =   165
  114.       Index           =   3
  115.       Left            =   120
  116.       TabIndex        =   4
  117.       Top             =   960
  118.       Width           =   735
  119.    End
  120.    Begin VB.Label Score 
  121.       Alignment       =   2  'Zentriert
  122.       AutoSize        =   -1  'True
  123.       Caption         =   "Score #4"
  124.       Height          =   165
  125.       Index           =   4
  126.       Left            =   2520
  127.       TabIndex        =   3
  128.       Top             =   1200
  129.       Width           =   840
  130.    End
  131.    Begin VB.Label HName 
  132.       AutoSize        =   -1  'True
  133.       Caption         =   "Name #4"
  134.       Height          =   165
  135.       Index           =   4
  136.       Left            =   120
  137.       TabIndex        =   2
  138.       Top             =   1200
  139.       Width           =   735
  140.    End
  141.    Begin VB.Label Label2 
  142.       AutoSize        =   -1  'True
  143.       Caption         =   "Score"
  144.       Height          =   165
  145.       Left            =   2640
  146.       TabIndex        =   1
  147.       Top             =   120
  148.       Width           =   525
  149.    End
  150.    Begin VB.Label Label1 
  151.       AutoSize        =   -1  'True
  152.       Caption         =   "Name"
  153.       Height          =   165
  154.       Left            =   120
  155.       TabIndex        =   0
  156.       Top             =   120
  157.       Width           =   420
  158.    End
  159. Attribute VB_Name = "frmHighscore"
  160. Attribute VB_GlobalNameSpace = False
  161. Attribute VB_Creatable = False
  162. Attribute VB_PredeclaredId = True
  163. Attribute VB_Exposed = False
  164. Private Sub Command1_Click()
  165. If MsgBox("Are you Sure?", vbYesNo, "Delete Highscores") = vbYes Then
  166.     SaveSetting "Snake", "Highscore", "Name1", "-"
  167.     SaveSetting "Snake", "Highscore", "Name2", "-"
  168.     SaveSetting "Snake", "Highscore", "Name3", "-"
  169.     SaveSetting "Snake", "Highscore", "Name4", "-"
  170.     SaveSetting "Snake", "Highscore", "Score1", 0
  171.     SaveSetting "Snake", "Highscore", "Score2", 0
  172.     SaveSetting "Snake", "Highscore", "Score3", 0
  173.     SaveSetting "Snake", "Highscore", "Score4", 0
  174.     For n = 1 To 4
  175.         Score(n).Caption = ""
  176.         HName(n).Caption = "-"
  177.     Next
  178. End If
  179. End Sub
  180. Private Sub Command2_Click()
  181. Unload Me
  182. End Sub
  183. Private Sub Form_Load()
  184. For n = 1 To 4
  185.     HName(n).Caption = GetSetting("Snake", "Highscore", ("Name" & n), "")
  186.     Score(n).Caption = GetSetting("Snake", "Highscore", ("Score" & n), 0)
  187. End Sub
  188.