Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
VERSION 5.00Begin VB.PropertyPage ppgWelcome Caption = "Welcome to File Explorer Configuration" ClientHeight = 3600 ClientLeft = 0 ClientTop = 0 ClientWidth = 4800 PaletteMode = 0 'Halftone ScaleHeight = 3600 ScaleWidth = 4800 Begin VB.Label Label2 Caption = "The following pages will help you configure your File Explorer." BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 120 TabIndex = 1 Top = 1200 Width = 4455 End Begin VB.Label Label1 Caption = "Welcome to File Explorer Snap-in Configuration!" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 240 TabIndex = 0 Top = 240 Width = 4215 EndEndAttribute VB_Name = "ppgWelcome"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = TrueOption Explicit
' ===========================================================================' | THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF |' | ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO |' | THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A |' | PARTICULAR PURPOSE. |' | Copyright (c) 1998-1999 Microsoft Corporation |' ===========================================================================
' =============================================================================' File: ppgWelcome.pag' Project: FileExplorerSample' Type: Property Page for Configuration Wizard' =============================================================================
' Property pages used in a configuration wizard must implement the IWizardPage' interface defined by the snap-in designer runtime. The runtime uses this' interface to communicate Win32 property sheet events to the page. Note that' unlike event handlers, methods of an implemented interface must all be present' in the source file even if they do not contain any code.
Implements IWizardPage
' =============================================================================' Method: IWizardPage_Activate' Type: Interface Method' Description: Called when the page is about to be displayed.'' Parameters: EnableBack Defaults to True. Set to False to disable the' Back button.' NextOrFinish Defaults to NextButton. Determines type of' second button. Other options are ' EnabledFinishButton and DisabledFinishButton.' FinishText If using a Finish button, determines the text' that will be displayed in the button. If not' set then defaults to "Finish".' Output: None' Notes: As this is the first page of the wizard we disable the' back button. As there are more pages to the wizard, we request' a Next button rather than a Finish button.' ============================================================================='Private Sub IWizardPage_Activate(EnableBack As Boolean, _ NextOrFinish As SnapInLib.WizardPageButtonConstants, _ FinishText As String) EnableBack = False NextOrFinish = EnabledNextButton
End Sub
' =============================================================================' Method: IWizardPage_Back' Type: Interface Method' Description: Called when the user clicks the Back button'' Parameters: NextPage Defaults to zero to allow the user to return' to the previous page. Set to -1 to disallow' the move, or to a positive integer to move to' another page. Pages are numbered from 1 to n' based on the order in which the snap-in called' PropertySheet.AddWizardPage.' Output: None' Notes: None' ============================================================================='Private Sub IWizardPage_Back(NextPage As Long)
End Sub
' =============================================================================' Method: IWizardPage_Cancel' Type: Interface Method' Description: Called when the user clicks the Cancel button'' Parameters: Allow Defaults to True to allow the user to cancel' the wizard. Set to False to disallow the' the cancel.' Output: None' Notes: None' ============================================================================='Private Sub IWizardPage_Cancel(Allow As Boolean) Allow = TrueEnd Sub
' =============================================================================' Method: IWizardPage_Finish' Type: Interface Method' Description: Called when the user clicks the Finish button'' Parameters: Allow Defaults to True to allow the user to finish' the wizard. Set to False to disallow the' the finish.' Output: None' Notes: None' ============================================================================='Private Sub IWizardPage_Finish(Allow As Boolean)
End Sub
' =============================================================================' Method: IWizardPage_Next' Type: Interface Method' Description: Called when the user clicks the Next button'' Parameters: NextPage Defaults to zero to allow the user to proceed' to the next page. Set to -1 to disallow' the move, or to a positive integer to move to' another page. Pages are numbered from 1 to n' based on the order in which the snap-in called' PropertySheet.AddWizardPage.' Output: None' Notes: ' ============================================================================='Private Sub IWizardPage_Next(NextPage As Long)
End Sub
|
