в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:10Z

1 версия

Новая страница

==Using the AdvancedSearchComplete Event and the AdvancedSearchStopped Event==



<source lang="vb">

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
MsgBox "The search has finished running and found " & _
SearchObject.Results.Count & " results.", vbOKOnly + vbInformation, _
"Advanced Search Complete Event"
End Sub
</source>

==Using the ItemSend Event==



<source lang="vb">

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
MsgBox "Please add a subject line to this message."
Cancel = True
End If
End Sub
</source>

==Using the Quit Event==



<source lang="vb">

Sub Application_Quit()
Dim strMessage As String
Select Case Format(Date, "MM/DD/YYYY")
Case "01/13/2006"
strMessage = "Next Monday is Martin Luther King Day."
Case "02/17/2006"
strMessage = "Next Monday is Presidents Day."
Case "05/26/2006"
strMessage = "Next Monday is Memorial Day."
Case "06/30/2006"
strMessage = "Next Tuesday is Independence Day." & _
" Monday is a company holiday."
Case "09/01/2006"
strMessage = "Next Monday is Labor Day."
"other National Holidays here
End Select
MsgBox strMessage, vbOKCancel + vbExclamation, "Don"t Forget..."
End Sub
</source>

==Using the Startup Event==



<source lang="vb">

Sub Application_Startup()
Dim myNoteItem As NoteItem
Set myNoteItem = Application.CreateItem(ItemType:=olNoteItem)
myNoteItem.Body = "Please start a new time card for the day."
myNoteItem.Display
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Application/Application Events - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия