【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“frmbackup.frm”一文，供大家参考学习

    VERSION 5.00
    Begin VB.Form frmbackup 
       BackColor       =   &H00FF8080&
       BorderStyle     =   3  'Fixed Dialog
       ClientHeight    =   915
       ClientLeft      =   255
       ClientTop       =   1410
       ClientWidth     =   6435
       ClipControls    =   0   'False
       ControlBox      =   0   'False
       DrawStyle       =   3  'Dash-Dot
       ForeColor       =   &H00FF0000&
       Icon            =   "frmbackup.frx":0000
       KeyPreview      =   -1  'True
       LinkTopic       =   "Form2"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   915
       ScaleWidth      =   6435
       ShowInTaskbar   =   0   'False
       StartUpPosition =   1  '所有者中心
       Begin VB.Label Label1 
          BackColor       =   &H00FF0000&
          BackStyle       =   0  'Transparent
          Caption         =   "正在准备恢复数据库，请等待！"
          BeginProperty Font 
             Name            =   "MS Sans Serif"
             Size            =   13.5
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H000000FF&
          Height          =   495
          Left            =   840
          TabIndex        =   0
          Top             =   240
          Width           =   5055
       End
    End
    Attribute VB_Name = "frmbackup"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Option Explicit
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_NOACTIVATE = &H10
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Const SWP_SHOWWINDOW = &H40
    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 Sub Frame1_Click()
        
    End Sub
    
    Private Sub Form_Load()
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
         SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE _
        Or SWP_NOSIZE
    End Sub
    
    

上一篇：DirectShowEvent.cpp
下一篇：投简历到国外的公司需考虑哪些东西？