main.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "渐变的窗体背景"
   ClientHeight    =   5784
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   7680
   LinkTopic       =   "Form1"
   ScaleHeight     =   5784
   ScaleWidth      =   7680
   StartUpPosition =   2  'CenterScreen
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'      PURPOSE: To provide the main form of the application.
'        NOTES: None.
' DEPENDENCIES: "frmSplash"
'   REFERENCES: None.
'    PLATFORMS: VB6.
'      AUTHORS: T.Cummins (TCC) 12/09/2000.
'---------------------------------------------------------------------------------------------------------------------
 
Option Explicit

Private Sub Form_Activate()
  
  '    PURPOSE: To execute code when the form is activated.
  '      NOTES: None.
  '  ARGUMENTS: None.
  '    RETURNS: None.
  '    AUTHORS: T.Cummins (TCC) - 12/09/2000.
  '---------------------------------------------------------------------------------------------------------------------
  
  On Error GoTo HandleErrors
        
  'For demo purposes we add a delay to simulate a typical applications initialisation.
  DemoDelay
  
ExitHandleErrors:
  
  Exit Sub
  
HandleErrors:

  MsgBox Err.Description & " (" & Err.Number & ")", vbCritical, App.Title & " Error"
  Resume ExitHandleErrors
  
End Sub

Private Sub Form_Load()
    
  '    PURPOSE: To execute code when the form is loaded.
  '      NOTES: None.
  '  ARGUMENTS: None.
  '    RETURNS: None.
  '    AUTHORS: T.Cummins (TCC) - 25/07/2000.
  '---------------------------------------------------------------------------------------------------------------------
  
  On Error GoTo HandleErrors
      
  'Ensure the Splash form stays on top while this form is loading.
  SetWindowLong frmSplash.hWnd, GWL_HWNDPARENT, Me.hWnd
  
  '---------------------------------------------------------------------------------------------------------------------

  'Perform other start up tasks here...
    
  '---------------------------------------------------------------------------------------------------------------------
  
ExitHandleErrors:
  
  Exit Sub
  
HandleErrors:

  MsgBox Err.Description & " (" & Err.Number & ")", vbCritical, App.Title & " Error"
  Resume ExitHandleErrors
  
End Sub