次の方法で共有


BeforeSize Event

Occurs when the user sizes the current **Explorer**or Inspector. This event can be cancelled after it has started. If the event is cancelled, the window is not sized.

Private Subexpression_BeforeSize(Cancel As Boolean)

*expression   * An expression that returns an object in the Applies To list declared with events in a class module.

*Cancel   * Required Boolean. False when the event occurs. If the event procedure sets this argument to True, the operation is not completed and the Explorer or Inspector is not sized.

Example

The following Microsoft Visual Basic/Visual Basic for Applications (VBA) example prompts the user with a warning message before the Inspector is sized. If the user clicks Yes, the inspector can be sized. The sample code must be placed in a class module such as ThisOutlookSession, and the Initialize_Handler() subroutine should be called before the event procedure can be called by Microsoft Outlook.

Public WithEvents myIns As Outlook.Inspector

Public Sub Initalize_Handler()
    Set myIns = Application.ActiveInspector
End Sub

Private Sub myIns_BeforeSize(Cancel As Boolean)
    'Prompts the user before resizing the window
    Dim lngAns As Long
    lngAns = MsgBox("Are you sure you want to resize the current window? Use your keyboard to make your selection.", vbYesNo)
    If lngAns = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If
End Sub

Applies to | Explorer Object | Inspector Object

See Also | BeforeDelete Event | BeforeItemCopy Event | BeforeItemCut Event | BeforeItemPaste Event | BeforeMaximize Event | BeforeMinimize Event | BeforeMove Event