home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD175163242001.psc / frmSettings.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-03-24  |  3.3 KB  |  107 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSettings 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Settings"
  5.    ClientHeight    =   1665
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    Icon            =   "frmSettings.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1665
  14.    ScaleWidth      =   4680
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Cancel"
  18.       Height          =   375
  19.       Left            =   2400
  20.       TabIndex        =   3
  21.       Top             =   1200
  22.       Width           =   1095
  23.    End
  24.    Begin VB.CommandButton cmdSave 
  25.       Caption         =   "Save"
  26.       Height          =   375
  27.       Left            =   1080
  28.       TabIndex        =   2
  29.       Top             =   1200
  30.       Width           =   1095
  31.    End
  32.    Begin VB.Frame frameSettings 
  33.       Caption         =   "Settings"
  34.       Height          =   1095
  35.       Left            =   120
  36.       TabIndex        =   4
  37.       Top             =   0
  38.       Width           =   4455
  39.       Begin VB.ComboBox cmbCheckInterval 
  40.          Height          =   315
  41.          ItemData        =   "frmSettings.frx":0442
  42.          Left            =   1320
  43.          List            =   "frmSettings.frx":0444
  44.          TabIndex        =   1
  45.          Top             =   720
  46.          Width           =   3015
  47.       End
  48.       Begin VB.TextBox txtURLToLoad 
  49.          Height          =   285
  50.          Left            =   1320
  51.          TabIndex        =   0
  52.          Top             =   240
  53.          Width           =   3015
  54.       End
  55.       Begin VB.Label lblCheckIntervalCaption 
  56.          Alignment       =   1  'Right Justify
  57.          Caption         =   "Check Interval:"
  58.          Height          =   255
  59.          Left            =   120
  60.          TabIndex        =   6
  61.          Top             =   720
  62.          Width           =   1095
  63.       End
  64.       Begin VB.Label lblURLToLoadCaption 
  65.          Alignment       =   1  'Right Justify
  66.          Caption         =   "URL To Load:"
  67.          Height          =   255
  68.          Left            =   120
  69.          TabIndex        =   5
  70.          Top             =   240
  71.          Width           =   1095
  72.       End
  73.    End
  74. Attribute VB_Name = "frmSettings"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Private Sub Command1_Click()
  80. End Sub
  81. Private Sub cmdSave_Click()
  82. IniWrite "URLToLoad", Me.txtURLToLoad.Text
  83. IniWrite "CheckInterval", Me.cmbCheckInterval.Text
  84. Unload Me
  85. End Sub
  86. Private Sub Command2_Click()
  87. Unload Me
  88. End Sub
  89. Private Sub Form_Load()
  90. Me.Caption = gstrAppName & " - " & Me.Caption
  91. Dim lintI As Integer
  92. With Me.cmbCheckInterval
  93.     .AddItem "1 Minute"
  94.     .AddItem "15 Minutes"
  95.     .AddItem "30 Minutes"
  96.     .AddItem "45 Minutes"
  97.     .AddItem "1 Hour"
  98.     .AddItem "1 Day"
  99. End With
  100. Me.txtURLToLoad.Text = IniRead("URLToLoad")
  101. For lintI = 0 To Me.cmbCheckInterval.ListCount - 1
  102.     If Me.cmbCheckInterval.List(lintI) = IniRead("CheckInterval") Then
  103.         Me.cmbCheckInterval.ListIndex = lintI
  104.     End If
  105. Next lintI
  106. End Sub
  107.