INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Tips -N- Tricks

Messagebox - STOP by jimoo
Posted: 24 Oct 03

* By Jim Osieczonek, www.deltbg.com

#IF .F.

Works with versions 5.0 and up.

Easy to use STOP messagebox.  Brings up the correct ICON and title.
SAVE this procedure as one of your public methods in your classlib OR procedure file.

SEE FAQ - MESSAGEBOX YESNO for more details.

#ENDIF

PUBLIC  tcSystem
tcSystem = "Tek Tip"
STOP("You just encountered an error.")

*******************************************************************************
PROCEDURE STOP
LPARAMETER tcMessage,tcTitle
IF PCOUNT() = 0
    tcMessage = "Duh...   No Message Passed"
ENDIF

IF TYPE('tcMessage') = 'C'
    IF TYPE('tcTitle') = 'C'
        * fall thru on character types
    ELSE
        * invalid data type for this function
        tcTitle = tcSystem
    ENDIF    
ELSE
    tcMessage = "INVALID MESSAGE PASSED INTO BASE CLASS!"
    tcTitle = tcSystem
ENDIF    


RETURN MESSAGEBOX(tcMessage,0 + 16,m.tcTitle)

Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close