By using t2do.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

T2Do.com

 


Create a List Add to top of List Add all to top Add to bottom Edit List Comment Add a Checklist Add list Counter Import/Add many Export List Formatting Modify a List Delete a List
Ascending Descending No Sort
Add ---------- Show list only Show everything Show tags Hide tags
Nav Overview Top Up Show BreadCrumbs Shortcuts Subheader Random Search Last 100 items you added Last 100 modified Public Lists Popular Lists
Create/View to-do List Upcoming Deadlines Add a deadline Time balance List Daily Top 50
How to View Shortcuts Add a Shortcut System shortcuts Saving time with Tags Date/time Time Tracking Shortener AutoHotKeys
Time is your most valuable resource k Link Track Task from List Name Track via shortcut To-do list and time tracking Timer-Creator.com Time Tracking Spreadsheet based Time Tracking Set up @Time Tracking list Reports on how you spent your time Today Popup Current task Window
Random select Shuffle list Random Book Title How to use the Random Tag Random Domain Name Random Book Title Random List Item
To-Do List Add to to-do Set Goals Balance your time Track your time Create User defined header Create Top 10 List Ideas Habits Questions Creativity Accomplished Problems Learn Health Misc Lists
Work to-do Work Terms Work Accomplishments Work 1 Pagers Weekly Status Reports Work Checklists Work Rules Work test
Weight Loss Terms Accomplishments 1 Pagers Health Weekly Status Reports Checklists Rules
-->

dispYN

Function dispYN(sMsg As String, Optional vModal) '
'Version: 1.000
'Purpose: Displays a Y/N dialog and returns true if Yes is pressed otherwise returns false
    On Error Resume Next
    
    Dim lResponse As Long
    Dim bModal As Boolean

                          
    
    lResponse = MsgBox(sMsg, vbQuestion + vbYesNo, "")
    If lResponse = vbYes Then
         dispYN = True
     Else
         dispYN = False
     End If
    
    DoEvents ' to allow repainting

End Function

Newer verisioin
  • support modal and default methods
  • Support autorun mode

    Function dispYN(sMsg As String, Optional vDefault, Optional vModal) '
    'Version: 1.001
    'Purpose: Displays a Y/N dialog and returns true if Yes is pressed otherwise returns false
        if IsMissing(vDefault) then
           'have to run because default set
        else
            if gbJustRun Then
                dispYN = vDefault
                Exit Function
            End If
        End If

        On Error Resume Next
        
        Dim lResponse As Long
        Dim bModal As Boolean

                              
        if IsAutorun Then
            dispYN = True
        else
            lResponse = MsgBox(sMsg, vbQuestion + vbYesNo, "")
            If lResponse = vbYes Then
                 dispYN = True
            Else
                 dispYN = False
            End If
        
            DoEvents ' to allow repainting
        End If
    End Function

    •