form1.frm

来自「WinCC 污水处理系统源程序.里面包含了许多VB6制作的功能组件.很有参考意义」· FRM 代码 · 共 78 行

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "StartUp"
   ClientHeight    =   9870
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10875
   LinkTopic       =   "Form1"
   MousePointer    =   13  'Arrow and Hourglass
   Moveable        =   0   'False
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   9870
   ScaleWidth      =   10875
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   825
      Top             =   525
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "倒计时开始"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   720
      Left            =   5610
      TabIndex        =   0
      Top             =   8340
      Width           =   3615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim winHWND As Long
Dim abc As Long
Dim retVal As Long
Dim Counter

Private Sub Form_Load()

winHWND = FindWindow(vbNullString, "StartUp")
abc = SetWindowPos(winHWND, -1, 0, 0, 0, 0, &H2 Or &H1)

Counter = 0

End Sub

Private Sub Timer1_Timer()
Counter = Counter + 1
Label1.Caption = Str(80 - Counter)
If Counter >= 80 Then

    winHWND = FindWindow(vbNullString, "StartUp")
    retVal = PostMessage(winHWND, &H10, 0, 0)
End If

End Sub