dlgprogress.frm

canon 相机SDK,非常难得

VERSION 5.00
Begin VB.Form dlgProgress 
   BorderStyle     =   1  '屌掕(幚慄)
   Caption         =   "progress"
   ClientHeight    =   945
   ClientLeft      =   7365
   ClientTop       =   6240
   ClientWidth     =   3990
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   945
   ScaleWidth      =   3990
   StartUpPosition =   1  '蛋虐 太把偺拞墰
   Begin VB.PictureBox picProgress 
      Height          =   375
      Left            =   248
      ScaleHeight     =   315
      ScaleWidth      =   3435
      TabIndex        =   0
      Top             =   360
      Width           =   3495
   End
   Begin VB.Label lblPercentage 
      Alignment       =   1  '塃懙偊
      Caption         =   "%"
      Height          =   195
      Left            =   3240
      TabIndex        =   2
      Top             =   120
      Width           =   495
   End
   Begin VB.Label lblStatus 
      Caption         =   "Status"
      Height          =   195
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "dlgProgress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Const GWL_HWNDPARENT = (-8)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
            
Public m_Owner As Long

Private Sub Form_Load()
    If m_Owner Then
        Call SetWindowLong(Me.hwnd, GWL_HWNDPARENT, m_Owner)
    End If
    Show 0
End Sub