Word Document Properties

Chapter 8: Object-Oriented Programming
14_046500 ch08.qxp 12/5/06 5:36 PM Page 201

---

situations where the message box won’t have three buttons. When the mes-
sage box lacks the proper number of buttons, the code produces an error.
The 
Case Button_4
error-handling logic demonstrates a situation where
you can turn something very complicated into something very simple. None
of the button options has more than three buttons. Therefore, the only time
you can set the default button to the fourth button is when there’s a Help
button. The code looks for this button. When you don’t include it, the code
generates an error.
Using the With Statement
VBA does provide an interesting feature that makes it easier to write code for
an object. The 
With
statement tells VBA that you plan to perform a number
of tasks by using the same object. Every dotted statement within the struc-
ture applies to that object. Using this technique reduces the amount of code
that you have to type and can reduce the chance of typos. Listing 8-8 shows
an example of the 
With
statement in use.
Listing 8-8
Using an Alternative Object-Testing Technique
Private Sub btnTest2_Click()
‘ Instantiate the special message box.
If MsgObj Is Nothing Then
Set MsgObj = New SpecialMsg
End If
‘ Assign some property values.
With MsgObj
.Caption = “This is a message object.”
.Title = “Special Message”
.Buttons = YesNoCancel
.Icon = Question
‘ Display the message box.
.Show
End With
End Sub
Notice that this code is similar to the code in the earlier “Using Your New
Object in an Application” section. The only difference is that you don’t have
to type 
MsgObj
so many times. The code works precisely the same as before,
and you get the same prompts as before. This is a personal-taste coding tech-
nique. You don’t lose anything by not using it, and you don’t gain anything
significant when you do.
202