Announcement

Collapse

Forum Guidelines

This forum is for finished source code that is working properly. If you have questions about this or any other source code, please post it in one of the Discussion Forums, not here.
See more
See less

function returning mesage identifier as a string

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • function returning mesage identifier as a string

    Code:
    '--------------------------------------------------------------------------
    ' copied from Wm Burns, some msgs added, might save a bit of typing
    '
    FUNCTION GetMsgTxt(iMsgNum AS LONG) AS STRING
      SELECT CASE iMsgNum
        CASE %WM_USER:FUNCTION = "%WM_USER"
        CASE %WM_CREATE:FUNCTION = "%WM_CREATE"
        CASE %WM_DESTROY:FUNCTION = "%WM_DESTROY"
        CASE %WM_ENABLE:FUNCTION = "%WM_ENABLE"
        CASE %WM_MOVE:FUNCTION = "%WM_MOVE"
        CASE %WM_SIZE:FUNCTION = "%WM_SIZE"
        CASE %WM_ACTIVATE:FUNCTION = "%WM_ACTIVATE"
        CASE %WM_SHOWWINDOW:FUNCTION = "%WM_SHOWWINDOW"
        CASE %WM_SETFOCUS:FUNCTION = "%WM_SETFOCUS"
        CASE %WM_KILLFOCUS:FUNCTION = "%WM_KILLFOCUS"
        CASE %WM_SETREDRAW:FUNCTION = "%WM_SETREDRAW"
        CASE %WM_SETTEXT:FUNCTION = "%WM_SETTEXT"
        CASE %WM_GETTEXT:FUNCTION = "%WM_GETTEXT"
        CASE %WM_GETTEXTLENGTH:FUNCTION = "%WM_GETTEXTLENGTH"
        CASE %WM_PAINT:FUNCTION = "%WM_PAINT"
        CASE %WM_CLOSE:FUNCTION = "%WM_CLOSE"
        CASE %WM_QUERYENDSESSION:FUNCTION = "%WM_QUERYENDSESSION"
        CASE %WM_QUIT:FUNCTION = "%WM_QUIT"
        CASE %WM_QUERYOPEN:FUNCTION = "%WM_QUERYOPEN"
        CASE %WM_ERASEBKGND:FUNCTION = "%WM_ERASEBKGND"
        CASE %WM_SYSCOLORCHANGE:FUNCTION = "%WM_SYSCOLORCHANGE"
        CASE %WM_ENDSESSION:FUNCTION = "%WM_ENDSESSION"
        CASE %WM_WININICHANGE,%WM_SETTINGCHANGE:FUNCTION = "%WM_WININICHANGE,%WM_SETTINGCHANGE"
        CASE %WM_DEVMODECHANGE:FUNCTION = "%WM_DEVMODECHANGE"
        CASE %WM_ACTIVATEAPP:FUNCTION = "%WM_ACTIVATEAPP"
        CASE %WM_FONTCHANGE:FUNCTION = "%WM_FONTCHANGE"
        CASE %WM_TIMECHANGE:FUNCTION = "%WM_TIMECHANGE"
        CASE %WM_CANCELMODE:FUNCTION = "%WM_CANCELMODE"
        CASE %WM_SETCURSOR:FUNCTION = "%WM_SETCURSOR"
        CASE %WM_HELP:FUNCTION = "%WM_HELP"
        CASE %WM_MOUSEACTIVATE:FUNCTION = "%WM_MOUSEACTIVATE"
        CASE %WM_CHILDACTIVATE:FUNCTION = "%WM_CHILDACTIVATE"
        CASE %WM_QUEUESYNC:FUNCTION = "%WM_QUEUESYNC"
        CASE %WM_GETMINMAXINFO:FUNCTION = "%WM_GETMINMAXINFO"
        CASE %WM_PAINTICON:FUNCTION = "%WM_PAINTICON"
        CASE %WM_ICONERASEBKGND:FUNCTION = "%WM_ICONERASEBKGND"
        CASE %WM_NEXTDLGCTL:FUNCTION = "%WM_NEXTDLGCTL"
        CASE %WM_SPOOLERSTATUS:FUNCTION = "%WM_SPOOLERSTATUS"
        CASE %WM_DRAWITEM:FUNCTION = "%WM_DRAWITEM"
        CASE %WM_MEASUREITEM:FUNCTION = "%WM_MEASUREITEM"
        CASE %WM_DELETEITEM:FUNCTION = "%WM_DELETEITEM"
        CASE %WM_VKEYTOITEM:FUNCTION = "%WM_VKEYTOITEM"
        CASE %WM_CHARTOITEM:FUNCTION = "%WM_CHARTOITEM"
        CASE %WM_SETFONT:FUNCTION = "%WM_SETFONT"
        CASE %WM_GETFONT:FUNCTION = "%WM_GETFONT"
        CASE %WM_SETHOTKEY:FUNCTION = "%WM_SETHOTKEY"
        CASE %WM_GETHOTKEY:FUNCTION = "%WM_GETHOTKEY"
        CASE %WM_QUERYDRAGICON:FUNCTION = "%WM_QUERYDRAGICON"
        CASE %WM_COMPAREITEM:FUNCTION = "%WM_COMPAREITEM"
        CASE %WM_COMPACTING:FUNCTION = "%WM_COMPACTING"
        CASE %WM_OTHERWINDOWCREATED:FUNCTION = "%WM_OTHERWINDOWCREATED"
        CASE %WM_OTHERWINDOWDESTROYED:FUNCTION = "%WM_OTHERWINDOWDESTROYED"
        CASE %WM_COMMNOTIFY:FUNCTION = "%WM_COMMNOTIFY"
        CASE %WM_WINDOWPOSCHANGING:FUNCTION = "%WM_WINDOWPOSCHANGING"
        CASE %WM_WINDOWPOSCHANGED:FUNCTION = "%WM_WINDOWPOSCHANGED"
        CASE %WM_POWER:FUNCTION = "%WM_POWER"
        CASE %WM_COPYDATA:FUNCTION = "%WM_COPYDATA"
        CASE %WM_CANCELJOURNAL:FUNCTION = "%WM_CANCELJOURNAL"
        CASE %WM_NOTIFY:FUNCTION = "%WM_NOTIFY"
        CASE %WM_INPUTLANGUAGECHANGEREQUEST:FUNCTION = "%WM_INPUTLANGUAGECHANGEREQUEST"
        CASE %WM_INPUTLANGUAGECHANGE:FUNCTION = "%WM_INPUTLANGUAGECHANGE"
        CASE %WM_TCARD:FUNCTION = "%WM_TCARD"
        CASE %WM_USERCHANGED:FUNCTION = "%WM_USERCHANGED"
        CASE %WM_NOTIFYFORMAT:FUNCTION = "%WM_NOTIFYFORMAT"
        CASE %WM_CONTEXTMENU:FUNCTION = "%WM_CONTEXTMENU"
        CASE %WM_STYLECHANGING:FUNCTION = "%WM_STYLECHANGING"
        CASE %WM_STYLECHANGED:FUNCTION = "%WM_STYLECHANGED"
        CASE %WM_DISPLAYCHANGE:FUNCTION = "%WM_DISPLAYCHANGE"
        CASE %WM_GETICON:FUNCTION = "%WM_GETICON"
        CASE %WM_SETICON:FUNCTION = "%WM_SETICON"
        CASE %WM_NCCREATE:FUNCTION = "%WM_NCCREATE"
        CASE %WM_NCDESTROY:FUNCTION = "%WM_NCDESTROY"
        CASE %WM_NCCALCSIZE:FUNCTION = "%WM_NCCALCSIZE"
        CASE %WM_NCHITTEST:FUNCTION = "%WM_NCHITTEST"
        CASE %WM_NCPAINT:FUNCTION = "%WM_NCPAINT"
        CASE %WM_NCACTIVATE:FUNCTION = "%WM_NCACTIVATE"
        CASE %WM_GETDLGCODE:FUNCTION = "%WM_GETDLGCODE"
        CASE %WM_NCMOUSEMOVE:FUNCTION = "%WM_NCMOUSEMOVE"
        CASE %WM_NCLBUTTONDOWN:FUNCTION = "%WM_NCLBUTTONDOWN"
        CASE %WM_NCLBUTTONUP:FUNCTION = "%WM_NCLBUTTONUP"
        CASE %WM_NCLBUTTONDBLCLK:FUNCTION = "%WM_NCLBUTTONDBLCLK"
        CASE %WM_NCRBUTTONDOWN:FUNCTION = "%WM_NCRBUTTONDOWN"
        CASE %WM_NCRBUTTONUP:FUNCTION = "%WM_NCRBUTTONUP"
        CASE %WM_NCRBUTTONDBLCLK:FUNCTION = "%WM_NCRBUTTONDBLCLK"
        CASE %WM_NCMBUTTONDOWN:FUNCTION = "%WM_NCMBUTTONDOWN"
        CASE %WM_NCMBUTTONUP:FUNCTION = "%WM_NCMBUTTONUP"
        CASE %WM_NCMBUTTONDBLCLK:FUNCTION = "%WM_NCMBUTTONDBLCLK"
        CASE %WM_KEYDOWN, %WM_KEYFIRST:FUNCTION = "%WM_KEYDOWN"
        CASE %WM_KEYUP:FUNCTION = "%WM_KEYUP"
        CASE %WM_CHAR:FUNCTION = "%WM_CHAR"
        CASE %WM_DEADCHAR:FUNCTION = "%WM_DEADCHAR"
        CASE %WM_SYSKEYDOWN:FUNCTION = "%WM_SYSKEYDOWN"
        CASE %WM_SYSKEYUP:FUNCTION = "%WM_SYSKEYUP"
        CASE %WM_SYSCHAR:FUNCTION = "%WM_SYSCHAR"
        CASE %WM_SYSDEADCHAR:FUNCTION = "%WM_SYSDEADCHAR"
        CASE %WM_KEYLAST:FUNCTION = "%WM_KEYLAST"
        CASE %WM_INITDIALOG:FUNCTION = "%WM_INITDIALOG"
        CASE %WM_COMMAND:FUNCTION = "%WM_COMMAND"
        CASE %WM_SYSCOMMAND:FUNCTION = "WM_SYSCOMMAND"
        CASE %WM_TIMER:FUNCTION = "%WM_TIMER"
        CASE %WM_HSCROLL:FUNCTION = "%WM_HSCROLL"
        CASE %WM_VSCROLL:FUNCTION = "%WM_VSCROLL"
        CASE %WM_INITMENU:FUNCTION = "%WM_INITMENU"
        CASE %WM_INITMENUPOPUP:FUNCTION = "%WM_INITMENUPOPUP"
        CASE %WM_MENUSELECT:FUNCTION = "%WM_MENUSELECT"
        CASE %WM_MENUCHAR:FUNCTION = "%WM_MENUCHAR"
        CASE %WM_ENTERIDLE:FUNCTION = "%WM_ENTERIDLE"
        CASE %WM_CTLCOLORMSGBOX:FUNCTION = "%WM_CTLCOLORMSGBOX"
        CASE %WM_CTLCOLOREDIT:FUNCTION = "%WM_CTLCOLOREDIT"
        CASE %WM_CTLCOLORLISTBOX:FUNCTION = "%WM_CTLCOLORLISTBOX"
        CASE %WM_CTLCOLORBTN:FUNCTION = "%WM_CTLCOLORBTN"
        CASE %WM_CTLCOLORDLG:FUNCTION = "%WM_CTLCOLORDLG"
        CASE %WM_CTLCOLORSCROLLBAR:FUNCTION = "%WM_CTLCOLORSCROLLBAR"
        CASE %WM_CTLCOLORSTATIC:FUNCTION = "%WM_CTLCOLORSTATIC"
        CASE %WM_MOUSEMOVE,%WM_MOUSEFIRST:FUNCTION = "%WM_MOUSEMOVE"
        CASE %WM_LBUTTONDOWN:FUNCTION = "%WM_LBUTTONDOWN"
        CASE %WM_LBUTTONUP:FUNCTION = "%WM_LBUTTONUP"
        CASE %WM_LBUTTONDBLCLK:FUNCTION = "%WM_LBUTTONDBLCLK"
        CASE %WM_RBUTTONDOWN:FUNCTION = "%WM_RBUTTONDOWN"
        CASE %WM_RBUTTONUP:FUNCTION = "%WM_RBUTTONUP"
        CASE %WM_RBUTTONDBLCLK:FUNCTION = "%WM_RBUTTONDBLCLK"
        CASE %WM_MBUTTONDOWN:FUNCTION = "%WM_MBUTTONDOWN"
        CASE %WM_MBUTTONUP:FUNCTION = "%WM_MBUTTONUP"
        CASE %WM_MBUTTONDBLCLK:FUNCTION = "%WM_MBUTTONDBLCLK"
        CASE %WM_MOUSEWHEEL,%WM_MOUSELAST:FUNCTION = "%WM_MOUSEWHEEL"
        CASE %WM_PARENTNOTIFY:FUNCTION = "%WM_PARENTNOTIFY"
        CASE %WM_ENTERMENULOOP:FUNCTION = "%WM_ENTERMENULOOP"
        CASE %WM_EXITMENULOOP:FUNCTION = "%WM_EXITMENULOOP"
        CASE %WM_SIZING:FUNCTION = "%WM_SIZING"
        CASE %WM_CAPTURECHANGED:FUNCTION = "%WM_CAPTURECHANGED"
        CASE %WM_MOVING:FUNCTION = "%WM_MOVING"
        CASE %WM_POWERBROADCAST:FUNCTION = "%WM_POWERBROADCAST"
        CASE %WM_DEVICECHANGE:FUNCTION = "%WM_DEVICECHANGE"
        CASE %WM_MDICREATE:FUNCTION = "%WM_MDICREATE"
        CASE %WM_MDIDESTROY:FUNCTION = "%WM_MDIDESTROY"
        CASE %WM_MDIACTIVATE:FUNCTION = "%WM_MDIACTIVATE"
        CASE %WM_MDIRESTORE:FUNCTION = "%WM_MDIRESTORE"
        CASE %WM_MDINEXT:FUNCTION = "%WM_MDINEXT"
        CASE %WM_MDIMAXIMIZE:FUNCTION = "%WM_MDIMAXIMIZE"
        CASE %WM_MDITILE:FUNCTION = "%WM_MDITILE"
        CASE %WM_MDICASCADE:FUNCTION = "%WM_MDICASCADE"
        CASE %WM_MDIICONARRANGE:FUNCTION = "%WM_MDIICONARRANGE"
        CASE %WM_MDIGETACTIVE:FUNCTION = "%WM_MDIGETACTIVE"
        CASE %WM_MDISETMENU:FUNCTION = "%WM_MDISETMENU"
        CASE %WM_DROPFILES:FUNCTION = "%WM_DROPFILES"
        CASE %WM_MDIREFRESHMENU:FUNCTION = "%WM_MDIREFRESHMENU"
        CASE %WM_MOUSEHOVER:FUNCTION = "%WM_MOUSEHOVER"
        CASE %WM_MOUSELEAVE:FUNCTION = "%WM_MOUSELEAVE"
        CASE %WM_CUT:FUNCTION = "%WM_CUT"
        CASE %WM_COPY:FUNCTION = "%WM_COPY"
        CASE %WM_PASTE:FUNCTION = "%WM_PASTE"
        CASE %WM_CLEAR:FUNCTION = "%WM_CLEAR"
        CASE %WM_UNDO:FUNCTION = "%WM_UNDO"
        CASE %WM_RENDERFORMAT:FUNCTION = "%WM_RENDERFORMAT"
        CASE %WM_RENDERALLFORMATS:FUNCTION = "%WM_RENDERALLFORMATS"
        CASE %WM_DESTROYCLIPBOARD:FUNCTION = "%WM_DESTROYCLIPBOARD"
        CASE %WM_DRAWCLIPBOARD:FUNCTION = "%WM_DRAWCLIPBOARD"
        CASE %WM_PAINTCLIPBOARD:FUNCTION = "%WM_PAINTCLIPBOARD"
        CASE %WM_VSCROLLCLIPBOARD:FUNCTION = "%WM_VSCROLLCLIPBOARD"
        CASE %WM_SIZECLIPBOARD:FUNCTION = "%WM_SIZECLIPBOARD"
        CASE %WM_ASKCBFORMATNAME:FUNCTION = "%WM_ASKCBFORMATNAME"
        CASE %WM_CHANGECBCHAIN:FUNCTION = "%WM_CHANGECBCHAIN"
        CASE %WM_HSCROLLCLIPBOARD:FUNCTION = "%WM_HSCROLLCLIPBOARD"
        CASE %WM_QUERYNEWPALETTE:FUNCTION = "%WM_QUERYNEWPALETTE"
        CASE %WM_PALETTEISCHANGING:FUNCTION = "%WM_PALETTEISCHANGING"
        CASE %WM_PALETTECHANGED:FUNCTION = "%WM_PALETTECHANGED"
        CASE %WM_HOTKEY:FUNCTION = "%WM_HOTKEY"
        CASE %WM_PRINTCLIENT:FUNCTION = "%WM_PRINTCLIENT"
        CASE %WM_PENWINFIRST:FUNCTION = "%WM_PENWINFIRST"
        CASE %WM_PENWINLAST:FUNCTION = "%WM_PENWINLAST"
        CASE %WM_ENTERSIZEMOVE:FUNCTION = "WM_ENTERSIZEMOVE"
        CASE %WM_EXITSIZEMOVE:FUNCTION = "WM_EXITSIZEMOVE"
        CASE %WM_NULL:FUNCTION = "%WM_NULL"
            ' IME msgs
        CASE %WM_IME_STARTCOMPOSITION : FUNCTION =  "WM_IME_STARTCOMPOSITION"
        CASE %WM_IME_ENDCOMPOSITION   : FUNCTION =  "WM_IME_ENDCOMPOSITION
        CASE %WM_IME_COMPOSITION      : FUNCTION =  "WM_IME_COMPOSITION
        CASE %WM_IME_KEYLAST          : FUNCTION =  "WM_IME_KEYLAST
        CASE %WM_IME_SETCONTEXT       : FUNCTION =  "WM_IME_SETCONTEXT
        CASE %WM_IME_NOTIFY           : FUNCTION =  "WM_IME_NOTIFY
        CASE %WM_IME_CONTROL          : FUNCTION =  "WM_IME_CONTROL
        CASE %WM_IME_COMPOSITIONFULL  : FUNCTION =  "WM_IME_COMPOSITIONFULL
        CASE %WM_IME_SELECT           : FUNCTION =  "WM_IME_SELECT
        CASE %WM_IME_CHAR             : FUNCTION =  "WM_IME_CHAR
        CASE %WM_IME_REQUEST          : FUNCTION =  "WM_IME_REQUEST
        CASE %WM_IME_KEYDOWN          : FUNCTION =  "WM_IME_KEYDOWN
        CASE %WM_IME_KEYUP            : FUNCTION =  "WM_IME_KEYUP
            ' button msgs
        CASE %BM_GETCHECK: FUNCTION = "%BM_GETCHECK"
        CASE %BM_SETCHECK: FUNCTION = "%BM_SETCHECK"
        CASE %BM_GETSTATE: FUNCTION = "%BM_GETSTATE"
        CASE %BM_SETSTATE: FUNCTION = "%BM_SETSTATE"
        CASE %BM_SETSTYLE: FUNCTION = "%BM_SETSTYLE"
        CASE %BM_CLICK: FUNCTION = "%BM_CLICK"
        CASE %BM_GETIMAGE: FUNCTION = "%BM_GETIMAGE"
        CASE %BM_SETIMAGE: FUNCTION = "%BM_SETIMAGE"
            ' edit msgs
            CASE %EM_GETSEL         : FUNCTION =  "EM_GETSEL"
        CASE %EM_SETSEL             : FUNCTION =  "EM_SETSEL"
        CASE %EM_GETRECT            : FUNCTION =  "EM_GETRECT "
        CASE %EM_SETRECT            : FUNCTION =  "EM_SETRECT "
        CASE %EM_SETRECTNP          : FUNCTION =  "EM_SETRECTNP "
        CASE %EM_SCROLL             : FUNCTION =  "EM_SCROLL"
        CASE %EM_LINESCROLL         : FUNCTION =  "EM_LINESCROLL"
        CASE %EM_SCROLLCARET        : FUNCTION =  "EM_SCROLLCARET "
        CASE %EM_GETMODIFY          : FUNCTION =  "EM_GETMODIFY "
        CASE %EM_SETMODIFY          : FUNCTION =  "EM_SETMODIFY "
        CASE %EM_GETLINECOUNT       : FUNCTION =  "EM_GETLINECOUNT"
        CASE %EM_LINEINDEX          : FUNCTION =  "EM_LINEINDEX "
        CASE %EM_SETHANDLE          : FUNCTION =  "EM_SETHANDLE "
        CASE %EM_GETHANDLE          : FUNCTION =  "EM_GETHANDLE "
        CASE %EM_GETTHUMB           : FUNCTION =  "EM_GETTHUMB"
        CASE %EM_LINELENGTH         : FUNCTION =  "EM_LINELENGTH"
        CASE %EM_REPLACESEL         : FUNCTION =  "EM_REPLACESEL"
        CASE %EM_GETLINE            : FUNCTION =  "EM_GETLINE "
        CASE %EM_LIMITTEXT          : FUNCTION =  "EM_LIMITTEXT "
        CASE %EM_CANUNDO            : FUNCTION =  "EM_CANUNDO "
        CASE %EM_UNDO               : FUNCTION =  "EM_UNDO"
        CASE %EM_FMTLINES           : FUNCTION =  "EM_FMTLINES"
        CASE %EM_LINEFROMCHAR       : FUNCTION =  "EM_LINEFROMCHAR"
        CASE %EM_SETTABSTOPS        : FUNCTION =  "EM_SETTABSTOPS "
        CASE %EM_SETPASSWORDCHAR    : FUNCTION =  "EM_SETPASSWORDCHAR "
        CASE %EM_EMPTYUNDOBUFFER    : FUNCTION =  "EM_EMPTYUNDOBUFFER "
        CASE %EM_GETFIRSTVISIBLELINE: FUNCTION =  "EM_GETFIRSTVISIBLELINE "
        CASE %EM_SETREADONLY        : FUNCTION =  "EM_SETREADONLY "
        CASE %EM_SETWORDBREAKPROC   : FUNCTION =  "EM_SETWORDBREAKPROC"
        CASE %EM_GETWORDBREAKPROC   : FUNCTION =  "EM_GETWORDBREAKPROC"
        CASE %EM_GETPASSWORDCHAR    : FUNCTION =  "EM_GETPASSWORDCHAR "
        CASE %EM_SETMARGINS         : FUNCTION =  "EM_SETMARGINS"
        CASE %EM_GETMARGINS         : FUNCTION =  "EM_GETMARGINS"
        CASE %EM_GETLIMITTEXT       : FUNCTION =  "EM_GETLIMITTEXT"
        CASE %EM_POSFROMCHAR        : FUNCTION =  "EM_POSFROMCHAR "
        CASE %EM_CHARFROMPOS        : FUNCTION =  "EM_CHARFROMPOS "
        CASE %EM_SETIMESTATUS       : FUNCTION =  "EM_SETIMESTATUS"
        CASE %EM_GETIMESTATUS       : FUNCTION =  "EM_GETIMESTATUS"
             ' ListBox messages
            CASE %LB_ADDSTRING          : FUNCTION = "LB_ADDSTRING
        CASE %LB_INSERTSTRING       : FUNCTION = "LB_INSERTSTRING
        CASE %LB_DELETESTRING       : FUNCTION = "LB_DELETESTRING
        CASE %LB_SELITEMRANGEEX     : FUNCTION = "LB_SELITEMRANGEEX
        CASE %LB_RESETCONTENT       : FUNCTION = "LB_RESETCONTENT
        CASE %LB_SETSEL             : FUNCTION = "LB_SETSEL
        CASE %LB_SETCURSEL          : FUNCTION = "LB_SETCURSEL
        CASE %LB_GETSEL             : FUNCTION = "LB_GETSEL
        CASE %LB_GETCURSEL          : FUNCTION = "LB_GETCURSEL
        CASE %LB_GETTEXT            : FUNCTION = "LB_GETTEXT
        CASE %LB_GETTEXTLEN         : FUNCTION = "LB_GETTEXTLEN
        CASE %LB_GETCOUNT           : FUNCTION = "LB_GETCOUNT
        CASE %LB_SELECTSTRING       : FUNCTION = "LB_SELECTSTRING
        CASE %LB_DIR                : FUNCTION = "LB_DIR
        CASE %LB_GETTOPINDEX        : FUNCTION = "LB_GETTOPINDEX
        CASE %LB_FINDSTRING         : FUNCTION = "LB_FINDSTRING
        CASE %LB_GETSELCOUNT        : FUNCTION = "LB_GETSELCOUNT
        CASE %LB_GETSELITEMS        : FUNCTION = "LB_GETSELITEMS
        CASE %LB_SETTABSTOPS        : FUNCTION = "LB_SETTABSTOPS
        CASE %LB_GETHORIZONTALEXTENT: FUNCTION = "LB_GETHORIZONTALEXTENT
        CASE %LB_SETHORIZONTALEXTENT: FUNCTION = "LB_SETHORIZONTALEXTENT
        CASE %LB_SETCOLUMNWIDTH     : FUNCTION = "LB_SETCOLUMNWIDTH
        CASE %LB_ADDFILE            : FUNCTION = "LB_ADDFILE
        CASE %LB_SETTOPINDEX        : FUNCTION = "LB_SETTOPINDEX
        CASE %LB_GETITEMRECT        : FUNCTION = "LB_GETITEMRECT
        CASE %LB_GETITEMDATA        : FUNCTION = "LB_GETITEMDATA
        CASE %LB_SETITEMDATA        : FUNCTION = "LB_SETITEMDATA
        CASE %LB_SELITEMRANGE       : FUNCTION = "LB_SELITEMRANGE
        CASE %LB_SETANCHORINDEX     : FUNCTION = "LB_SETANCHORINDEX
        CASE %LB_GETANCHORINDEX     : FUNCTION = "LB_GETANCHORINDEX
        CASE %LB_SETCARETINDEX      : FUNCTION = "LB_SETCARETINDEX
        CASE %LB_GETCARETINDEX      : FUNCTION = "LB_GETCARETINDEX
        CASE %LB_SETITEMHEIGHT      : FUNCTION = "LB_SETITEMHEIGHT
        CASE %LB_GETITEMHEIGHT      : FUNCTION = "LB_GETITEMHEIGHT
        CASE %LB_FINDSTRINGEXACT    : FUNCTION = "LB_FINDSTRINGEXACT
        CASE %LB_SETLOCALE          : FUNCTION = "LB_SETLOCALE
        CASE %LB_GETLOCALE          : FUNCTION = "LB_GETLOCALE
        CASE %LB_SETCOUNT           : FUNCTION = "LB_SETCOUNT
        CASE %LB_INITSTORAGE        : FUNCTION = "LB_INITSTORAGE
        CASE %LB_ITEMFROMPOINT      : FUNCTION = "LB_ITEMFROMPOINT
        CASE %LB_MULTIPLEADDSTRING  : FUNCTION = "LB_MULTIPLEADDSTRING
        CASE %LB_GETLISTBOXINFO     : FUNCTION = "LB_GETLISTBOXINFO
              ' Combo box messages
        ' Combo Bo    case  m
        CASE %CB_GETEDITSEL           : FUNCTION = "CB_GETEDITSEL"
        CASE %CB_LIMITTEXT            : FUNCTION = "CB_LIMITTEXT"
        CASE %CB_SETEDITSEL           : FUNCTION = "CB_SETEDITSEL"
        CASE %CB_ADDSTRING            : FUNCTION = "CB_ADDSTRING"
        CASE %CB_DELETESTRING         : FUNCTION = "CB_DELETESTRING"
        CASE %CB_DIR                  : FUNCTION = "CB_DIR   "
        CASE %CB_GETCOUNT             : FUNCTION = "CB_GETCOUNT"
        CASE %CB_GETCURSEL            : FUNCTION = "CB_GETCURSEL"
        CASE %CB_GETLBTEXT            : FUNCTION = "CB_GETLBTEXT"
        CASE %CB_GETLBTEXTLEN         : FUNCTION = "CB_GETLBTEXTLEN"
        CASE %CB_INSERTSTRING         : FUNCTION = "CB_INSERTSTRING"
        CASE %CB_RESETCONTENT         : FUNCTION = "CB_RESETCONTENT"
        CASE %CB_FINDSTRING           : FUNCTION = "CB_FINDSTRING"
        CASE %CB_SELECTSTRING         : FUNCTION = "CB_SELECTSTRING"
        CASE %CB_SETCURSEL            : FUNCTION = "CB_SETCURSEL"
        CASE %CB_SHOWDROPDOWN         : FUNCTION = "CB_SHOWDROPDOWN"
        CASE %CB_GETITEMDATA          : FUNCTION = "CB_GETITEMDATA"
        CASE %CB_SETITEMDATA          : FUNCTION = "CB_SETITEMDATA"
        CASE %CB_GETDROPPEDCONTROLRECT: FUNCTION = "CB_GETDROPPEDCONTROLRECT"
        CASE %CB_SETITEMHEIGHT        : FUNCTION = "CB_SETITEMHEIGHT"
        CASE %CB_GETITEMHEIGHT        : FUNCTION = "CB_GETITEMHEIGHT"
        CASE %CB_SETEXTENDEDUI        : FUNCTION = "CB_SETEXTENDEDUI"
        CASE %CB_GETEXTENDEDUI        : FUNCTION = "CB_GETEXTENDEDUI"
        CASE %CB_GETDROPPEDSTATE      : FUNCTION = "CB_GETDROPPEDSTATE"
        CASE %CB_FINDSTRINGEXACT      : FUNCTION = "CB_FINDSTRINGEXACT"
        CASE %CB_SETLOCALE            : FUNCTION = "CB_SETLOCALE"
        CASE %CB_GETLOCALE            : FUNCTION = "CB_GETLOCALE"
        CASE %CB_GETTOPINDEX          : FUNCTION = "CB_GETTOPINDEX"
        CASE %CB_SETTOPINDEX          : FUNCTION = "CB_SETTOPINDEX"
        CASE %CB_GETHORIZONTALEXTENT  : FUNCTION = "CB_GETHORIZONTALEXTENT"
        CASE %CB_SETHORIZONTALEXTENT  : FUNCTION = "CB_SETHORIZONTALEXTENT"
        CASE %CB_GETDROPPEDWIDTH      : FUNCTION = "CB_GETDROPPEDWIDTH"
        CASE %CB_SETDROPPEDWIDTH      : FUNCTION = "CB_SETDROPPEDWIDTH"
        CASE %CB_INITSTORAGE          : FUNCTION = "CB_INITSTORAGE"
        CASE %CB_MULTIPLEADDSTRING    : FUNCTION = "CB_MULTIPLEADDSTRING"
        CASE %CB_GETCOMBOBOXINFO      : FUNCTION = "CB_GETCOMBOBOXINFO"
         'scrollbar
        CASE %SBM_SETPOS  : FUNCTION = "%SBM_SETPOS"
        CASE %SBM_GETPOS  : FUNCTION = "%SBM_GETPOS"
        CASE %SBM_SETRANGE: FUNCTION = "%SBM_SETRANGE"
        CASE %SBM_SETRANGEREDRAW  : FUNCTION = "%SBM_SETRANGEREDRAW"
        CASE %SBM_GETRANGE: FUNCTION = "%SBM_GETRANGE"
        CASE %SBM_ENABLE_ARROWS   : FUNCTION = "%SBM_ENABLE_ARROWS "
        CASE %SBM_SETSCROLLINFO   : FUNCTION = "%SBM_SETSCROLLINFO "
        CASE %SBM_GETSCROLLINFO   : FUNCTION = "%SBM_GETSCROLLINFO "
        CASE %SBM_GETSCROLLBARINFO: FUNCTION = "%SBM_GETSCROLLBARINFO"
        'DDE
        CASE %WM_DDE_INITIATE     : FUNCTION = "%WM_DDE_INITIATE "
        CASE %WM_DDE_TERMINATE    : FUNCTION = "%WM_DDE_TERMINATE"
        CASE %WM_DDE_ADVISE       : FUNCTION = "%WM_DDE_ADVISE "
        CASE %WM_DDE_UNADVISE     : FUNCTION = "%WM_DDE_UNADVISE "
        CASE %WM_DDE_ACK  : FUNCTION = "%WM_DDE_ACK"
        CASE %WM_DDE_DATA : FUNCTION = "%WM_DDE_DATA "
        CASE %WM_DDE_REQUEST      : FUNCTION = "%WM_DDE_REQUEST"
        CASE %WM_DDE_POKE : FUNCTION = "%WM_DDE_POKE "
        CASE %WM_DDE_EXECUTE      : FUNCTION = "%WM_DDE_EXECUTE"
        CASE %WM_DDE_LAST : FUNCTION = "%WM_DDE_LAST "
        ' multimedia
        CASE %MM_JOY1MOVE : FUNCTION = "%MM_JOY1MOVE "
        CASE %MM_JOY2MOVE : FUNCTION = "%MM_JOY2MOVE "
        CASE %MM_JOY1ZMOVE: FUNCTION = "%MM_JOY1ZMOVE"
        CASE %MM_JOY2ZMOVE: FUNCTION = "%MM_JOY2ZMOVE"
        CASE %MM_JOY1BUTTONDOWN   : FUNCTION = "%MM_JOY1BUTTONDOWN "
        CASE %MM_JOY2BUTTONDOWN   : FUNCTION = "%MM_JOY2BUTTONDOWN "
        CASE %MM_JOY1BUTTONUP     : FUNCTION = "%MM_JOY1BUTTONUP "
        CASE %MM_JOY2BUTTONUP     : FUNCTION = "%MM_JOY2BUTTONUP "
        CASE %MM_MCINOTIFY: FUNCTION = "%MM_MCINOTIFY"
        CASE %MM_MCISYSTEM_STRING : FUNCTION = "%MM_MCISYSTEM_STRING "
        CASE %MM_WOM_OPEN : FUNCTION = "%MM_WOM_OPEN "
        CASE %MM_WOM_CLOSE: FUNCTION = "%MM_WOM_CLOSE"
        CASE %MM_WOM_DONE : FUNCTION = "%MM_WOM_DONE "
        CASE %MM_WIM_OPEN : FUNCTION = "%MM_WIM_OPEN "
        CASE %MM_WIM_CLOSE: FUNCTION = "%MM_WIM_CLOSE"
        CASE %MM_WIM_DATA : FUNCTION = "%MM_WIM_DATA "
        CASE %MM_MIM_OPEN : FUNCTION = "%MM_MIM_OPEN "
        CASE %MM_MIM_CLOSE: FUNCTION = "%MM_MIM_CLOSE"
        CASE %MM_MIM_DATA : FUNCTION = "%MM_MIM_DATA "
        CASE %MM_MIM_LONGDATA     : FUNCTION = "%MM_MIM_LONGDATA "
        CASE %MM_MIM_ERROR: FUNCTION = "%MM_MIM_ERROR"
        CASE %MM_MIM_LONGERROR    : FUNCTION = "%MM_MIM_LONGERROR"
        CASE %MM_MOM_OPEN : FUNCTION = "%MM_MOM_OPEN "
        CASE %MM_MOM_CLOSE: FUNCTION = "%MM_MOM_CLOSE"
        CASE %MM_MOM_DONE : FUNCTION = "%MM_MOM_DONE "
        ' Driver messages
        CASE %DRV_LOAD    : FUNCTION = "%DRV_LOAD"
        CASE %DRV_ENABLE  : FUNCTION = "%DRV_ENABLE"
        CASE %DRV_OPEN    : FUNCTION = "%DRV_OPEN"
        CASE %DRV_CLOSE   : FUNCTION = "%DRV_CLOSE "
        CASE %DRV_DISABLE : FUNCTION = "%DRV_DISABLE "
        CASE %DRV_FREE    : FUNCTION = "%DRV_FREE"
        CASE %DRV_CONFIGURE       : FUNCTION = "%DRV_CONFIGURE "
        CASE %DRV_QUERYCONFIGURE  : FUNCTION = "%DRV_QUERYCONFIGURE"
        CASE %DRV_INSTALL : FUNCTION = "%DRV_INSTALL "
        CASE %DRV_REMOVE  : FUNCTION = "%DRV_REMOVE"
        CASE %DRV_EXITSESSION     : FUNCTION = "%DRV_EXITSESSION "
        CASE %DRV_POWER   : FUNCTION = "%DRV_POWER "
        CASE %DRV_RESERVED: FUNCTION = "%DRV_RESERVED"
        CASE %DRV_USER    : FUNCTION = "%DRV_USER"
        ' wave
        CASE %WOM_OPEN    : FUNCTION = "%WOM_OPEN"
        CASE %WOM_CLOSE   : FUNCTION = "%WOM_CLOSE "
        CASE %WOM_DONE    : FUNCTION = "%WOM_DONE"
        CASE %WIM_OPEN    : FUNCTION = "%WIM_OPEN"
        CASE %WIM_CLOSE   : FUNCTION = "%WIM_CLOSE "
        CASE %WIM_DATA    : FUNCTION = "%WIM_DATA"
        ' midi
        CASE %MIM_OPEN    : FUNCTION = "%MIM_OPEN"
        CASE %MIM_CLOSE   : FUNCTION = "%MIM_CLOSE "
        CASE %MIM_DATA    : FUNCTION = "%MIM_DATA"
        CASE %MIM_LONGDATA: FUNCTION = "%MIM_LONGDATA"
        CASE %MIM_ERROR   : FUNCTION = "%MIM_ERROR "
        CASE %MIM_LONGERROR       : FUNCTION = "%MIM_LONGERROR "
        CASE %MOM_OPEN    : FUNCTION = "%MOM_OPEN"
        CASE %MOM_CLOSE   : FUNCTION = "%MOM_CLOSE "
        CASE %MOM_DONE    : FUNCTION = "%MOM_DONE"
        'MCI
        CASE %MCI_OPEN    : FUNCTION = "%MCI_OPEN"
        CASE %MCI_CLOSE   : FUNCTION = "%MCI_CLOSE "
        CASE %MCI_ESCAPE  : FUNCTION = "%MCI_ESCAPE"
        CASE %MCI_PLAY    : FUNCTION = "%MCI_PLAY"
        CASE %MCI_SEEK    : FUNCTION = "%MCI_SEEK"
        CASE %MCI_STOP    : FUNCTION = "%MCI_STOP"
        CASE %MCI_PAUSE   : FUNCTION = "%MCI_PAUSE "
        CASE %MCI_INFO    : FUNCTION = "%MCI_INFO"
        CASE %MCI_GETDEVCAPS      : FUNCTION = "%MCI_GETDEVCAPS"
        CASE %MCI_SPIN    : FUNCTION = "%MCI_SPIN"
        CASE %MCI_SET     : FUNCTION = "%MCI_SET "
        CASE %MCI_STEP    : FUNCTION = "%MCI_STEP"
        CASE %MCI_RECORD  : FUNCTION = "%MCI_RECORD"
        CASE %MCI_SYSINFO : FUNCTION = "%MCI_SYSINFO "
        CASE %MCI_BREAK   : FUNCTION = "%MCI_BREAK "
        CASE %MCI_SOUND   : FUNCTION = "%MCI_SOUND "
        CASE %MCI_SAVE    : FUNCTION = "%MCI_SAVE"
        CASE %MCI_STATUS  : FUNCTION = "%MCI_STATUS"
        CASE %MCI_CUE     : FUNCTION = "%MCI_CUE "
        CASE %MCI_REALIZE : FUNCTION = "%MCI_REALIZE "
        CASE %MCI_WINDOW  : FUNCTION = "%MCI_WINDOW"
        CASE %MCI_PUT     : FUNCTION = "%MCI_PUT "
        CASE %MCI_WHERE   : FUNCTION = "%MCI_WHERE "
        CASE %MCI_FREEZE  : FUNCTION = "%MCI_FREEZE"
        CASE %MCI_UNFREEZE: FUNCTION = "%MCI_UNFREEZE"
        CASE %MCI_LOAD    : FUNCTION = "%MCI_LOAD"
        CASE %MCI_CUT     : FUNCTION = "%MCI_CUT "
        CASE %MCI_COPY    : FUNCTION = "%MCI_COPY"
        CASE %MCI_PASTE   : FUNCTION = "%MCI_PASTE "
        CASE %MCI_UPDATE  : FUNCTION = "%MCI_UPDATE"
        CASE %MCI_RESUME  : FUNCTION = "%MCI_RESUME"
        CASE %MCI_DELETE  : FUNCTION = "%MCI_DELETE"
        ' from browser
        CASE %BFFM_INITIALIZED    : FUNCTION = "%BFFM_INITIALIZED"
        CASE %BFFM_SELCHANGED     : FUNCTION = "%BFFM_SELCHANGED "
        CASE %BFFM_VALIDATEFAILEDA: FUNCTION = "%BFFM_VALIDATEFAILEDA"
        CASE %BFFM_VALIDATEFAILEDW: FUNCTION = "%BFFM_VALIDATEFAILEDW"
        ' messages to browser
        CASE %BFFM_SETSTATUSTEXTA : FUNCTION = "%BFFM_SETSTATUSTEXTA "
        CASE %BFFM_ENABLEOK       : FUNCTION = "%BFFM_ENABLEOK "
        CASE %BFFM_SETSELECTIONA  : FUNCTION = "%BFFM_SETSELECTIONA"
        CASE %BFFM_SETSELECTIONW  : FUNCTION = "%BFFM_SETSELECTIONW"
        CASE %BFFM_SETSTATUSTEXTW : FUNCTION = "%BFFM_SETSTATUSTEXTW "
        CASE %BFFM_SETOKTEXT      : FUNCTION = "%BFFM_SETOKTEXT"
        CASE %BFFM_SETEXPANDED    : FUNCTION = "%BFFM_SETEXPANDED"
        CASE %LVM_ARRANGE      : function = "LVM_ARRANGE"    
        CASE %LVM_CREATEDRAGIMAGE     : function = "LVM_CREATEDRAGIMAGE"     
        CASE %LVM_DELETEALLITEMS      : function = "LVM_DELETEALLITEMS"    
        CASE %LVM_DELETECOLUMN : function = "LVM_DELETECOLUMN"         
        CASE %LVM_DELETEITEM   : function = "LVM_DELETEITEM"       
        CASE %LVM_EDITLABEL    : function = "LVM_EDITLABEL"      
        CASE %LVM_ENSUREVISIBLE       : function = "LVM_ENSUREVISIBLE"   
        CASE %LVM_FINDITEM     : function = "LVM_FINDITEM"     
        CASE %LVM_GETBKCOLOR   : function = "LVM_GETBKCOLOR"       
        CASE %LVM_GETCALLBACKMASK     : function = "LVM_GETCALLBACKMASK"     
        CASE %LVM_GETCOLUMN    : function = "LVM_GETCOLUMN"      
        CASE %LVM_GETCOLUMNWIDTH      : function = "LVM_GETCOLUMNWIDTH"    
        CASE %LVM_GETCOUNTPERPAGE     : function = "LVM_GETCOUNTPERPAGE"     
        CASE %LVM_GETEDITCONTROL      : function = "LVM_GETEDITCONTROL"    
        CASE %LVM_GETIMAGELIST : function = "LVM_GETIMAGELIST"         
        CASE %LVM_GETISEARCHSTRING    : function = "LVM_GETISEARCHSTRING"      
        CASE %LVM_GETITEM      : function = "LVM_GETITEM"    
        CASE %LVM_GETITEMCOUNT : function = "LVM_GETITEMCOUNT"         
        CASE %LVM_GETITEMPOSITION     : function = "LVM_GETITEMPOSITION"     
        CASE %LVM_GETITEMRECT  : function = "LVM_GETITEMRECT"        
        CASE %LVM_GETITEMSPACING      : function = "LVM_GETITEMSPACING"    
        CASE %LVM_GETITEMSTATE : function = "LVM_GETITEMSTATE"         
        CASE %LVM_GETITEMTEXT  : function = "LVM_GETITEMTEXT"        
        CASE %LVM_GETNEXTITEM  : function = "LVM_GETNEXTITEM"        
        CASE %LVM_GETORIGIN    : function = "LVM_GETORIGIN"      
        CASE %LVM_GETSELECTEDCOUNT    : function = "LVM_GETSELECTEDCOUNT"      
        CASE %LVM_GETSTRINGWIDTH      : function = "LVM_GETSTRINGWIDTH"    
        CASE %LVM_GETTEXTBKCOLOR      : function = "LVM_GETTEXTBKCOLOR"    
        CASE %LVM_GETTEXTCOLOR : function = "LVM_GETTEXTCOLOR"         
        CASE %LVM_GETTOPINDEX  : function = "LVM_GETTOPINDEX"        
        CASE %LVM_GETVIEWRECT  : function = "LVM_GETVIEWRECT"        
        CASE %LVM_HITTEST      : function = "LVM_HITTEST"    
        CASE %LVM_INSERTCOLUMN : function = "LVM_INSERTCOLUMN"         
        CASE %LVM_INSERTITEM   : function = "LVM_INSERTITEM"       
        CASE %LVM_REDRAWITEMS  : function = "LVM_REDRAWITEMS"        
        CASE %LVM_SCROLL      : function = "LVM_SCROLL"   
        CASE %LVM_SETBKCOLOR   : function = "LVM_SETBKCOLOR"       
        CASE %LVM_SETCALLBACKMASK     : function = "LVM_SETCALLBACKMASK"     
        CASE %LVM_SETCOLUMN    : function = "LVM_SETCOLUMN"      
        CASE %LVM_SETCOLUMNWIDTH      : function = "LVM_SETCOLUMNWIDTH"    
        CASE %LVM_SETIMAGELIST : function = "LVM_SETIMAGELIST"         
        CASE %LVM_SETITEM      : function = "LVM_SETITEM"    
        CASE %LVM_SETITEMCOUNT : function = "LVM_SETITEMCOUNT"         
        CASE %LVM_SETITEMPOSITION     : function = "LVM_SETITEMPOSITION"     
        CASE %LVM_SETITEMPOSITION32   : function = "LVM_SETITEMPOSITION32"       
        CASE %LVM_SETITEMSTATE : function = "LVM_SETITEMSTATE"         
        CASE %LVM_SETITEMTEXT  : function = "LVM_SETITEMTEXT"        
        CASE %LVM_SETTEXTBKCOLOR      : function = "LVM_SETTEXTBKCOLOR"    
        CASE %LVM_SETTEXTCOLOR : function = "LVM_SETTEXTCOLOR"         
        CASE %LVM_SORTITEMS    : function = "LVM_SORTITEMS"      
        CASE %LVM_UPDATE       : function = "LVM_UPDATE"  
      
        CASE ELSE:FUNCTION = "Unknown Msg: &H" + HEX$(iMsgNum)
      END SELECT
    END FUNCTION
    Last edited by Chris Holbrook; 16 Jan 2008, 01:32 PM.
Working...
X