<-- Previous || Up || Next -->

VB Message Boxes Check Sample Sub
VB Utilities Class

Public Sub VBMessageBoxesCheckSample()

    'See also:
    '  VBMessageBoxesCheck Function
    '  VBUtilitiesSample Subroutine

    Const strFn = "VBMessageBoxesCheckSample"

    Dim strInVBP As String
    strInVBP = InputBox("Read Visual Basic Project file: ({Esc} cancels.)", strFn, "\Entisoft\Tools\ESTools.VBP")
    If Len(strInVBP) = 0 Then Exit Sub

    Dim strMsgNumPrefix As String
    strMsgNumPrefix = InputBox("Prefix string which will be found before all message numbers: ({Esc} cancels.)", strFn, "estMsg(")
    If Len(strMsgNumPrefix) = 0 Then Exit Sub

    Dim enumCompare As VbCompareMethod
    Select Case MsgBox("Use dictionary/text comparisons?  Choose No for literal/binary.", vbQuestion + vbYesNoCancel + vbDefaultButton1, strFn)
        Case vbYes
            enumCompare = vbTextCompare
        Case vbNo
            enumCompare = vbBinaryCompare
        Case vbCancel
            Exit Sub
        Case Else
            Stop
    End Select

    Dim intFindUnused As Integer
    Select Case MsgBox("Find unused message numbers?", vbQuestion + vbYesNoCancel + vbDefaultButton2, strFn)
        Case vbYes
            intFindUnused = True
        Case vbNo
            intFindUnused = False
        Case vbCancel
            Exit Sub
        Case Else
            Stop
    End Select

    MsgBox "Return = " & VBMessageBoxesCheck( _
        vInVBP:=strInVBP, _
        vMsgNumPrefix:=strMsgNumPrefix, _
        vCompare:=enumCompare, _
        vFindUnused:=intFindUnused _
        ) & " (True means success; False means failure.)", vbInformation, strFn
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.