home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Popup_Aler18293212142004.psc / frmExample.frm < prev    next >
Text File  |  2004-12-11  |  3KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form frmExample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Example"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   4890
  7.    ClientTop       =   3795
  8.    ClientWidth     =   4200
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2715
  13.    ScaleWidth      =   4200
  14.    Begin VB.CommandButton Command4 
  15.       Caption         =   "Gmail Notifier"
  16.       Height          =   375
  17.       Left            =   2160
  18.       TabIndex        =   4
  19.       Top             =   600
  20.       Width           =   1935
  21.    End
  22.    Begin VB.CommandButton Command3 
  23.       Caption         =   "Flat Style"
  24.       Height          =   375
  25.       Left            =   120
  26.       TabIndex        =   3
  27.       Top             =   600
  28.       Width           =   1815
  29.    End
  30.    Begin VB.CommandButton Command2 
  31.       Caption         =   "Old MSN"
  32.       Height          =   375
  33.       Left            =   2160
  34.       TabIndex        =   1
  35.       Top             =   120
  36.       Width           =   1935
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "MSN Version 6.2"
  40.       Height          =   375
  41.       Left            =   120
  42.       TabIndex        =   0
  43.       Top             =   120
  44.       Width           =   1935
  45.    End
  46.    Begin VB.Label lblInfo 
  47.       Caption         =   $"frmExample.frx":0000
  48.       Height          =   1455
  49.       Left            =   120
  50.       TabIndex        =   2
  51.       Top             =   1200
  52.       Width           =   3975
  53.    End
  54. End
  55. Attribute VB_Name = "frmExample"
  56. Attribute VB_GlobalNameSpace = False
  57. Attribute VB_Creatable = False
  58. Attribute VB_PredeclaredId = True
  59. Attribute VB_Exposed = False
  60. Option Explicit
  61.  
  62. Private Sub Command1_Click()
  63. 'Set variables for popup
  64.  
  65. Dim Newalert As New cAlert
  66. Newalert.Message = "Testing..."
  67. Newalert.Title = "MSN 6.2 Style"
  68. Newalert.Link = True
  69. Newalert.sUrl = "http://www.google.com"
  70. Newalert.MSN6
  71.  
  72.  
  73.  
  74. End Sub
  75.  
  76. Private Sub Command2_Click()
  77. 'Set variables for popup
  78.  
  79. Dim Newalert As New cAlert
  80. Newalert.Link = True
  81. Newalert.sUrl = "http://www.google.com"
  82. Newalert.Message = "Old MSN style test..."
  83. Newalert.MSNOld
  84. End Sub
  85.  
  86. Private Sub Command3_Click()
  87. Dim Newalert As New cAlert
  88. Newalert.Title = "New Style Test"
  89. Newalert.Message = "Message Here"
  90. Newalert.FlatStyle
  91. End Sub
  92.  
  93. Private Sub Command4_Click()
  94.  
  95. Dim Newalert As New cAlert
  96. Newalert.Title = "Gmail Notifier Style Test"
  97. Newalert.Message = "Message Here"
  98. Newalert.Gmail
  99.  
  100. End Sub
  101.