clsdialog.cls

一个clock的 vb 源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Public Function CreateDialog(hWnd As Long, lpDlgFunc As Long)  'hWndParent As Long
    Dim DlgDialog As DLGTEMPLATE
    DlgDialog.Style = WS_POPUP Or WS_CAPTION Or WS_SYSMENU Or DS_MODALFRAME
    DlgDialog.CX = 0
    DlgDialog.CY = 0
    DlgDialog.X = 0
    DlgDialog.Y = 0
    DlgDialog.dwExtendedStyle = 0
    Call DialogBoxIndirectParam(App.hInstance, DlgDialog, hWnd, lpDlgFunc, 0)
End Function