frmpaginatestatus.frm

来自「This application provides much functiona」· FRM 代码 · 共 88 行

VERSION 5.00
Begin VB.Form frmPaginateStatus 
   BorderStyle     =   0  'None
   ClientHeight    =   810
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1575
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   54
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   105
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Label lbl 
      Alignment       =   2  'Center
      Caption         =   "Making"
      BeginProperty Font 
         Name            =   "Arial Armenian"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   150
      Left            =   -4
      TabIndex        =   1
      Top             =   0
      Width           =   900
   End
   Begin VB.Label lblStatus 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Arial Armenian"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   150
      Left            =   -4
      TabIndex        =   0
      Top             =   135
      Width           =   900
   End
End
Attribute VB_Name = "frmPaginateStatus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long


Private Sub Form_Load()
Dim hWnd_ As Long, rcTemp As RECT

    hWnd_ = FindWindow("Shell_TrayWnd", vbNullString)
    hWnd_ = FindWindowEx(hWnd_, 0, "TrayNotifyWnd", vbNullString)
    hWnd_ = FindWindowEx(hWnd_, 0, "TrayClockWClass", vbNullString)
    GetWindowRect hWnd_, rcTemp
    With Me
        .Top = 0
        .Left = 0
        .Height = .Height * (rcTemp.Bottom - rcTemp.Top) / .ScaleHeight
        .Width = .Width * (rcTemp.Right - rcTemp.Left) / .ScaleWidth
        Call SetParent(.hWnd, hWnd_)
        lbl.Width = .ScaleWidth
        lblStatus.Width = .ScaleWidth
    End With
End Sub