home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Weather_Of220609692011.psc / frmAlert.frm < prev    next >
Text File  |  2011-06-01  |  7KB  |  210 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  3. Object = "{7888C00A-4808-4D27-9AAE-BD36EC13D16F}#1.0#0"; "LVbuttons.ocx"
  4. Begin VB.Form frmAlert 
  5.    Appearance      =   0  'Flat
  6.    BackColor       =   &H80000005&
  7.    BorderStyle     =   4  'Fixed ToolWindow
  8.    Caption         =   "Severe Weather Alert"
  9.    ClientHeight    =   7905
  10.    ClientLeft      =   45
  11.    ClientTop       =   315
  12.    ClientWidth     =   7020
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   7905
  18.    ScaleWidth      =   7020
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21.    Begin MSComctlLib.ListView lsvStormName 
  22.       Height          =   1335
  23.       Left            =   210
  24.       TabIndex        =   2
  25.       Top             =   5960
  26.       Visible         =   0   'False
  27.       Width           =   6255
  28.       _ExtentX        =   11033
  29.       _ExtentY        =   2355
  30.       View            =   3
  31.       LabelEdit       =   1
  32.       LabelWrap       =   0   'False
  33.       HideSelection   =   -1  'True
  34.       HideColumnHeaders=   -1  'True
  35.       _Version        =   393217
  36.       ForeColor       =   -2147483640
  37.       BackColor       =   -2147483643
  38.       Appearance      =   0
  39.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       NumItems        =   4
  49.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  50.          Object.Width           =   2681
  51.       EndProperty
  52.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  53.          SubItemIndex    =   1
  54.          Object.Width           =   2681
  55.       EndProperty
  56.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  57.          SubItemIndex    =   2
  58.          Object.Width           =   2681
  59.       EndProperty
  60.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  61.          SubItemIndex    =   3
  62.          Object.Width           =   2681
  63.       EndProperty
  64.    End
  65.    Begin LVbuttons.LaVolpeButton cmdClose 
  66.       Height          =   375
  67.       Left            =   2860
  68.       TabIndex        =   0
  69.       Top             =   7400
  70.       Width           =   1215
  71.       _ExtentX        =   2143
  72.       _ExtentY        =   661
  73.       BTYPE           =   3
  74.       TX              =   "&Close"
  75.       ENAB            =   -1  'True
  76.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  77.          Name            =   "Times New Roman"
  78.          Size            =   8.25
  79.          Charset         =   0
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       COLTYPE         =   1
  86.       BCOL            =   15790320
  87.       FCOL            =   0
  88.       FCOLO           =   0
  89.       EMBOSSM         =   12632256
  90.       EMBOSSS         =   16777215
  91.       MPTR            =   99
  92.       MICON           =   "frmAlert.frx":0000
  93.       ALIGN           =   1
  94.       IMGLST          =   "(None)"
  95.       IMGICON         =   "(None)"
  96.       ICONAlign       =   0
  97.       ORIENT          =   0
  98.       STYLE           =   0
  99.       IconSize        =   2
  100.       SHOWF           =   -1  'True
  101.       BSTYLE          =   0
  102.    End
  103.    Begin VB.TextBox txtAlert 
  104.       Appearance      =   0  'Flat
  105.       BorderStyle     =   0  'None
  106.       Height          =   7075
  107.       Left            =   240
  108.       Locked          =   -1  'True
  109.       MultiLine       =   -1  'True
  110.       ScrollBars      =   2  'Vertical
  111.       TabIndex        =   1
  112.       Top             =   120
  113.       Width           =   6495
  114.    End
  115.    Begin MSComctlLib.ListView lstWeatherAlert 
  116.       Height          =   7095
  117.       Left            =   120
  118.       TabIndex        =   3
  119.       Top             =   120
  120.       Visible         =   0   'False
  121.       Width           =   6735
  122.       _ExtentX        =   11880
  123.       _ExtentY        =   12515
  124.       View            =   3
  125.       LabelEdit       =   1
  126.       LabelWrap       =   0   'False
  127.       HideSelection   =   -1  'True
  128.       HideColumnHeaders=   -1  'True
  129.       _Version        =   393217
  130.       ForeColor       =   -2147483640
  131.       BackColor       =   -2147483643
  132.       Appearance      =   0
  133.       NumItems        =   3
  134.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  135.          Text            =   "123"
  136.          Object.Width           =   3846
  137.       EndProperty
  138.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  139.          SubItemIndex    =   1
  140.          Text            =   "123"
  141.          Object.Width           =   4093
  142.       EndProperty
  143.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  144.          SubItemIndex    =   2
  145.          Text            =   "123"
  146.          Object.Width           =   3846
  147.       EndProperty
  148.    End
  149.    Begin MSComctlLib.ListView lstPopulation 
  150.       Height          =   7095
  151.       Left            =   120
  152.       TabIndex        =   4
  153.       Top             =   120
  154.       Visible         =   0   'False
  155.       Width           =   6735
  156.       _ExtentX        =   11880
  157.       _ExtentY        =   12515
  158.       View            =   3
  159.       Arrange         =   2
  160.       LabelEdit       =   1
  161.       LabelWrap       =   0   'False
  162.       HideSelection   =   -1  'True
  163.       GridLines       =   -1  'True
  164.       _Version        =   393217
  165.       ForeColor       =   -2147483640
  166.       BackColor       =   -2147483643
  167.       Appearance      =   0
  168.       NumItems        =   4
  169.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  170.          Text            =   "Country"
  171.          Object.Width           =   3616
  172.       EndProperty
  173.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  174.          SubItemIndex    =   1
  175.          Text            =   "Capital"
  176.          Object.Width           =   3353
  177.       EndProperty
  178.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  179.          Alignment       =   1
  180.          SubItemIndex    =   2
  181.          Text            =   "Area Sq/Mi  "
  182.          Object.Width           =   1941
  183.       EndProperty
  184.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  185.          Alignment       =   1
  186.          SubItemIndex    =   3
  187.          Text            =   "Population      "
  188.          Object.Width           =   2470
  189.       EndProperty
  190.    End
  191. End
  192. Attribute VB_Name = "frmAlert"
  193. Attribute VB_GlobalNameSpace = False
  194. Attribute VB_Creatable = False
  195. Attribute VB_PredeclaredId = True
  196. Attribute VB_Exposed = False
  197. Private Sub cmdClose_Click()
  198.    Unload Me
  199. End Sub
  200.  
  201. Private Sub Form_Load()
  202.    frmWeatherMain.Timer1.Enabled = False
  203.    Set cmdClose.MouseIcon = frmWeatherMain.ImageList1.ListImages(3).Picture
  204. End Sub
  205.  
  206. Private Sub Form_Unload(Cancel As Integer)
  207.    frmWeatherMain.Timer1.Enabled = True
  208.    Set frmAlert = Nothing
  209. End Sub
  210.