home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Nortan_Pop174212562004.psc / PopUp_Window / frmPopUp.frm next >
Text File  |  2004-05-06  |  5KB  |  155 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00E0E0E0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   2520
  7.    ClientLeft      =   15
  8.    ClientTop       =   15
  9.    ClientWidth     =   4275
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       Name            =   "MS Sans Serif"
  14.       Size            =   9.75
  15.       Charset         =   0
  16.       Weight          =   400
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H00004000&
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    Picture         =   "frmPopUp.frx":0000
  26.    ScaleHeight     =   168
  27.    ScaleMode       =   3  'Pixel
  28.    ScaleWidth      =   285
  29.    StartUpPosition =   3  'Windows Default
  30.    Begin VB.PictureBox Picture1 
  31.       Height          =   1440
  32.       Left            =   2745
  33.       Picture         =   "frmPopUp.frx":240042
  34.       ScaleHeight     =   1380
  35.       ScaleWidth      =   1380
  36.       TabIndex        =   2
  37.       Top             =   750
  38.       Width           =   1440
  39.    End
  40.    Begin VB.CommandButton cmdClose 
  41.       Caption         =   "&Close"
  42.       Height          =   465
  43.       Left            =   1485
  44.       TabIndex        =   1
  45.       Top             =   1965
  46.       Width           =   1065
  47.    End
  48.    Begin VB.Timer tmrMenuPopup 
  49.       Interval        =   10
  50.       Left            =   330
  51.       Top             =   1935
  52.    End
  53.    Begin VB.Label Label1 
  54.       AutoSize        =   -1  'True
  55.       BackStyle       =   0  'Transparent
  56.       Caption         =   "Developed by: Anuj sharma"
  57.       BeginProperty Font 
  58.          Name            =   "MS Sans Serif"
  59.          Size            =   12
  60.          Charset         =   0
  61.          Weight          =   700
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       ForeColor       =   &H00FFFFFF&
  67.       Height          =   300
  68.       Left            =   375
  69.       TabIndex        =   0
  70.       Top             =   225
  71.       Width           =   3285
  72.    End
  73. End
  74. Attribute VB_Name = "Form1"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. '------------------------------------------------------------------------
  80. '       Pop-up window like Nortan Anti-virus.
  81. '------------------------------------------------------------------------
  82. '       Developed by :  Anuj sharma
  83. '       E-mail :        anujsharrma@yahoo.com
  84. '------------------------------------------------------------------------
  85.  
  86.  
  87.  
  88. Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  89. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  90. Private Declare Function GetDesktopWindow Lib "user32" () As Long
  91. Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  92.  
  93. Private Type RECT
  94.     Left    As Long
  95.     Top     As Long
  96.     Right   As Long
  97.     Bottom  As Long
  98. End Type
  99.  
  100. Const CONVERT_TO_TWIP_HEIGHT = 14.5
  101. Const CONVERT_TO_TWIP_WIDTH = 14.7
  102.  
  103. Dim m_iVisible              As Integer
  104. Dim m_lfrmTop               As Long
  105. Dim m_lfrmLeft              As Long
  106. Dim m_lTrayWindowHeight     As Long
  107. Dim m_lWindowDesktopBottom  As Long
  108.  
  109. Private Sub cmdClose_Click()
  110.     Unload Me
  111. End Sub
  112.  
  113. Private Sub Form_Load()
  114. On Error GoTo 0
  115. Dim iCOunt          As Integer
  116. Dim sClass          As String
  117. Dim hwnd            As Long
  118. Dim lpRect          As RECT
  119. Dim lpDeskTopRect   As RECT
  120.  
  121.     sClass = "shell_TrayWnd"
  122.     hwnd = FindWindow(sClass, "")
  123.     GetClientRect hwnd, lpRect
  124.     hwnd = GetDesktopWindow()
  125.     GetClientRect hwnd, lpDeskTopRect
  126.     m_iVisible = 1
  127.     m_lTrayWindowHeight = CONVERT_TO_TWIP_HEIGHT * lpRect.Bottom
  128.     m_lWindowDesktopBottom = CONVERT_TO_TWIP_HEIGHT * lpDeskTopRect.Bottom
  129.     Me.Top = (m_lWindowDesktopBottom - m_lTrayWindowHeight)
  130.     Me.Left = CONVERT_TO_TWIP_WIDTH * (lpDeskTopRect.Right - Me.ScaleWidth)
  131.     m_lfrmTop = m_lWindowDesktopBottom - ((Me.Height * m_iVisible) + 100)
  132.     m_lfrmLeft = Me.Left
  133.     Me.Visible = True
  134.    'g_FormAlertUnloaded = False
  135.     tmrMenuPopup.Enabled = True
  136. Exit Sub
  137. Errhandler:
  138.     MsgBox ("Form_Load in frmMenuPopUp")
  139. End Sub
  140.  
  141. Private Sub tmrMenuPopup_Timer()
  142. On Error GoTo 0
  143. Static lCount As Long
  144.     Me.Visible = True
  145.     If Me.Top <= (m_lfrmTop) Then
  146.         tmrMenuPopup.Enabled = False
  147.         Exit Sub
  148.     End If
  149.     Me.Top = Me.Top - 20
  150. Exit Sub
  151. Errhandler:
  152.     MsgBox ("tmrMenuPopup_Timer in frmMenuPopUp")
  153. End Sub
  154.  
  155.