home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Weather_Ap201034812006.psc / Form2.frm < prev    next >
Text File  |  2006-07-27  |  3KB  |  95 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
  3. Begin VB.Form Form2 
  4.    BackColor       =   &H00008000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form2"
  7.    ClientHeight    =   870
  8.    ClientLeft      =   11610
  9.    ClientTop       =   7680
  10.    ClientWidth     =   2085
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   870
  13.    ScaleWidth      =   2085
  14.    ShowInTaskbar   =   0   'False
  15.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  16.       Height          =   690
  17.       Left            =   1200
  18.       TabIndex        =   1
  19.       Top             =   120
  20.       Width           =   690
  21.       ExtentX         =   1226
  22.       ExtentY         =   1226
  23.       ViewMode        =   0
  24.       Offline         =   0
  25.       Silent          =   0
  26.       RegisterAsBrowser=   0
  27.       RegisterAsDropTarget=   1
  28.       AutoArrange     =   0   'False
  29.       NoClientEdge    =   0   'False
  30.       AlignLeft       =   0   'False
  31.       NoWebView       =   0   'False
  32.       HideFileNames   =   0   'False
  33.       SingleClick     =   0   'False
  34.       SingleSelection =   0   'False
  35.       NoFolders       =   0   'False
  36.       Transparent     =   0   'False
  37.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  38.       Location        =   ""
  39.    End
  40.    Begin VB.Shape Shape1 
  41.       BorderWidth     =   3
  42.       Height          =   855
  43.       Left            =   0
  44.       Top             =   0
  45.       Width           =   2055
  46.    End
  47.    Begin VB.Label Label1 
  48.       Alignment       =   2  'Center
  49.       BackColor       =   &H00008000&
  50.       Caption         =   "Label1"
  51.       BeginProperty Font 
  52.          Name            =   "Times New Roman"
  53.          Size            =   12
  54.          Charset         =   0
  55.          Weight          =   700
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       ForeColor       =   &H0000FFFF&
  61.       Height          =   255
  62.       Left            =   0
  63.       TabIndex        =   0
  64.       Top             =   360
  65.       Width           =   1215
  66.    End
  67. End
  68. Attribute VB_Name = "Form2"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73.  
  74.  
  75. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  76.  
  77. If Button = 2 And Shift = 0 Then Unload Form1 'close on right click of form
  78. If Button = 1 And Shift = 1 Then Form2.Hide 'minimize to tray if you left click with the shift key
  79. If Button = 1 And Shift = 0 Then Form1.Show 'restore if you left click
  80.  
  81. End Sub
  82.  
  83.  
  84.  
  85.  
  86.  
  87. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  88.  
  89. If Button = 2 And Shift = 0 Then Unload Form1 'close on right click of label
  90. If Button = 1 And Shift = 1 Then Form2.Hide 'minimize to tray if you left click with the shift key
  91. If Button = 1 And Shift = 0 Then Form1.Show 'restore if you left click
  92.  
  93. End Sub
  94.  
  95.