日経BP社 ブックス&テキスト Online

「マイクロソフト関連書」「Autodesk公式トレーニングガイド」「MOS攻略問題集」「セミナーテキスト」「スクール標準教科書」などの各シリーズ、各種IT関連書籍をご案内するサイトです。

書籍訂正情報

『Microsoft Visual Basic 6.0デスクトップアプリケーション開発MCSDトレーニングキット』をお買い上げの方へ

p.127のサンプルコードは、3つのオプションボタンのいずれも選択されなかった場合、入力を促すメッセージボックスが表示されません。サンプルコード全体を、以下のコードに置き換えてお使いください。

Private Sub cmdDone_Click()

Dim ctl As Control

Dim bFilled As Boolean '追加(3つのオプションが未選択かどうかを判別するフラグ)

bFilled = False '追加



For Each ctl In Controls

If TypeOf ctl Is TextBox Then

If ctl.Text = "" Then

MsgBox "All fields must be entered."

Exit Sub

End If

ElseIf TypeOf ctl Is MaskEdBox Then

If ctl.ClipText = "" Then

MsgBox "All fields must be entered."

Exit Sub

End If

ElseIf TypeOf ctl Is OptionButton Then

If ctl.Value Then '変更

bFilled = True '変更

End If '変更

End If

Next ctl

'

If Not bFilled Then '追加

MsgBox "Payment type is required." '追加

Exit Sub '追加

End If '追加

'

DisableControls

End Sub

訂正INDEXページへ戻る>>