modhiparser.bas

把VB 源码转化为VC源码的程序

    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbInformation", "64", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbMsgBoxHelpButton", "16384", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbMsgBoxRight", "524288", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbMsgBoxRtlReading", "1048576", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbMsgBoxSetForeground", "65536", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbOKCancel", "1", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbOKOnly", "0", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbQuestion", "32", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbRetryCancel", "5", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbSystemModal", "4096", True
    AddBuiltinEnum "VbMsgBoxStyle", False, False, "vbYesNo", "4", True
    AddBuiltinEnum "VbMsgBoxStyle", False, True, "vbYesNoCancel", "3", True
   
    AddBuiltinEnum "ColorConstants", True, False, "vbBlack", "0", True
    AddBuiltinEnum "ColorConstants", False, False, "vbBlue", "16711680", True
    AddBuiltinEnum "ColorConstants", False, False, "vbCyan", "16776960", True
    AddBuiltinEnum "ColorConstants", False, False, "vbGreen", "65280", True
    AddBuiltinEnum "ColorConstants", False, False, "vbMagenta", "16711935", True
    AddBuiltinEnum "ColorConstants", False, False, "vbRed", "255", True
    AddBuiltinEnum "ColorConstants", False, False, "vbWhite", "16777215", True
    AddBuiltinEnum "ColorConstants", False, True, "vbYellow", "65535", True
    
    AddBuiltinEnum "SystemColorConstants", True, False, "vb3DDKShadow", "-2147483627", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vb3DFace", "-2147483633", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vb3DHighlight", "-2147483628", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vb3DLight", "-2147483626", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vb3DShadow", "-2147483632", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbActiveBorder", "-2147483638", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbActiveTitleBar", "-2147483646", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbActiveTitleBarText", "-2147483639", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbApplicationWorkspace", "-2147483636", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbButtonFace", "-2147483633", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbButtonShadow", "-2147483632", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbButtonText", "-2147483630", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbDesktop", "-2147483647", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbGrayText", "-2147483631", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbHighlight", "-2147483635", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbHighlightText", "-2147483634", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbInactiveBorder", "-2147483637", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbInactiveCaptionText", "-2147483629", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbInactiveTitleBar", "-2147483645", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbInactiveTitleBarText", "-2147483629", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbInfoBackground", "-2147483624", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbInfoText", "-2147483625", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbMenuBar", "-2147483644", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbMenuText", "-2147483641", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbScrollBars", "-2147483648", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbTitleBarText", "-2147483639", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbWindowBackground", "-2147483643", True
    AddBuiltinEnum "SystemColorConstants", False, False, "vbWindowFrame", "-2147483642", True
    AddBuiltinEnum "SystemColorConstants", False, True, "vbWindowText", "-2147483640", True
      
    AddBuiltinEnum "VbAppWinStyle", True, False, "vbHide", "0", True
    AddBuiltinEnum "VbAppWinStyle", False, False, "vbMaximizedFocus", "3", True
    AddBuiltinEnum "VbAppWinStyle", False, False, "vbMinimizedFocus", "2", True
    AddBuiltinEnum "VbAppWinStyle", False, False, "vbMinimizedNoFocus", "6", True
    AddBuiltinEnum "VbAppWinStyle", False, False, "vbNormalFocus", "1", True
    AddBuiltinEnum "VbAppWinStyle", False, True, "vbNormalNoFocus", "4", True
      
    AddBuiltinEnum "VbCalendar", True, False, "vbCalGreg", "0", True
    AddBuiltinEnum "VbCalendar", False, True, "vbCalHijri", "1", True
      
    AddBuiltinEnum "VbCallType", True, False, "VbGet", "2", True
    AddBuiltinEnum "VbCallType", False, False, "VbLet", "4", True
    AddBuiltinEnum "VbCallType", False, False, "VbMethod", "1", True
    AddBuiltinEnum "VbCallType", False, True, "VbSet", "8", True
      
    AddBuiltinEnum "VbDateTimeFormat", True, False, "vbGeneralDate", "0", True
    AddBuiltinEnum "VbDateTimeFormat", False, False, "vbLongDate", "1", True
    AddBuiltinEnum "VbDateTimeFormat", False, False, "vbLongTime", "3", True
    AddBuiltinEnum "VbDateTimeFormat", False, False, "vbShortDate", "2", True
    AddBuiltinEnum "VbDateTimeFormat", False, True, "vbShortTime", "4", True
            
    AddBuiltinEnum "VbDayOfWeek", True, False, "vbFriday", "6", True
    AddBuiltinEnum "VbDayOfWeek", False, False, "vbMonday", "2", True
    AddBuiltinEnum "VbDayOfWeek", False, False, "vbSaturday", "7", True
    AddBuiltinEnum "VbDayOfWeek", False, False, "vbSunday", "1", True
    AddBuiltinEnum "VbDayOfWeek", False, False, "vbThursday", "5", True
    AddBuiltinEnum "VbDayOfWeek", False, False, "vbTuesday", "3", True
    AddBuiltinEnum "VbDayOfWeek", False, False, "vbUseSystemDayOfWeek", "0", True
    AddBuiltinEnum "VbDayOfWeek", False, True, "vbWednesday", "4", True
            
    AddBuiltinEnum "VbFileAttribute", True, False, "vbAlias", "64", True
    AddBuiltinEnum "VbFileAttribute", False, False, "vbArchive", "32", True
    AddBuiltinEnum "VbFileAttribute", False, False, "vbDirectory", "16", True
    AddBuiltinEnum "VbFileAttribute", False, False, "vbHidden", "2", True
    AddBuiltinEnum "VbFileAttribute", False, False, "vbNormal", "0", True
    AddBuiltinEnum "VbFileAttribute", False, False, "vbReadOnly", "1", True
    AddBuiltinEnum "VbFileAttribute", False, False, "vbSystem", "4", True
    AddBuiltinEnum "VbFileAttribute", False, True, "vbVolume", "8", True
       
    AddBuiltinEnum "VbFirstWeekOfYear", True, False, "vbFirstFourDays", "2", True
    AddBuiltinEnum "VbFirstWeekOfYear", False, False, "vbFirstFullWeek", "3", True
    AddBuiltinEnum "VbFirstWeekOfYear", False, False, "vbFirstJan1", "1", True
    AddBuiltinEnum "VbFirstWeekOfYear", False, True, "vbUseSystem", "0", True
       
    AddBuiltinEnum "VbIMEStatus", True, False, "vbIMEAlphaDbl", "7", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEAlphaSng", "8", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEDisable", "3", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEHiragana", "4", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEKatakanaDbl", "5", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEKatakanaSng", "6", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeAlpha", "8", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeAlphaFull", "7", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeDisable", "3", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeHangul", "10", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeHangulFull", "9", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeHiragana", "4", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeKatakana", "5", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeKatakanaHalf", "6", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeNoControl", "0", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeOff", "2", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEModeOn", "1", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMENoOp", "0", True
    AddBuiltinEnum "VbIMEStatus", False, False, "vbIMEOff", "2", True
    AddBuiltinEnum "VbIMEStatus", False, True, "vbIMEOn", "1", True

    AddBuiltinEnum "VbStrConv", True, False, "vbFromUnicode", "128", True
    AddBuiltinEnum "VbStrConv", False, False, "vbHiragana", "32", True
    AddBuiltinEnum "VbStrConv", False, False, "vbKatakana", "16", True
    AddBuiltinEnum "VbStrConv", False, False, "vbLowerCase", "2", True
    AddBuiltinEnum "VbStrConv", False, False, "vbNarrow", "8", True
    AddBuiltinEnum "VbStrConv", False, False, "vbProperCase", "3", True
    AddBuiltinEnum "VbStrConv", False, False, "vbUnicode", "64", True
    AddBuiltinEnum "VbStrConv", False, False, "vbUpperCase", "1", True
    AddBuiltinEnum "VbStrConv", False, True, "vbWide", "4", True
    
    AddBuiltinEnum "VbTriState", True, False, "vbFalse", "0", True
    AddBuiltinEnum "VbTriState", False, False, "vbTrue", "-1", True
    AddBuiltinEnum "VbTriState", False, True, "vbUseDefault", "-2", True
    
    AddBuiltinEnum "VbVarType", True, False, "vbArray", "8192", True
    AddBuiltinEnum "VbVarType", False, False, "vbBoolean", "11", True
    AddBuiltinEnum "VbVarType", False, False, "vbByte", "17", True
    AddBuiltinEnum "VbVarType", False, False, "vbCurrency", "6", True
    AddBuiltinEnum "VbVarType", False, False, "vbDataObject", "13", True
    AddBuiltinEnum "VbVarType", False, False, "vbDate", "7", True
    AddBuiltinEnum "VbVarType", False, False, "vbDecimal", "14", True
    AddBuiltinEnum "VbVarType", False, False, "vbDouble", "5", True
    AddBuiltinEnum "VbVarType", False, False, "vbEmpty", "0", True
    AddBuiltinEnum "VbVarType", False, False, "vbError", "10", True
    AddBuiltinEnum "VbVarType", False, False, "vbInteger", "2", True
    AddBuiltinEnum "VbVarType", False, False, "vbLong", "3", True
    AddBuiltinEnum "VbVarType", False, False, "vbNull", "1", True
    AddBuiltinEnum "VbVarType", False, False, "vbObject", "9", True
    AddBuiltinEnum "VbVarType", False, False, "vbSingle", "4", True
    AddBuiltinEnum "VbVarType", False, False, "vbString", "8", True
    AddBuiltinEnum "VbVarType", False, False, "vbUserDefinedType", "36", True
    AddBuiltinEnum "VbVarType", False, True, "vbVariant", "12", True
    
    AddBuiltinEnum "KeyCodeConstants", True, False, "vbKeyLButton", "1", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyRButton", "2", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyCancel", "3", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyMButton", "4", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyBack", "8", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyTab", "9", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyClear", "12", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyReturn", "13", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyShift", "16", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyControl", "17", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyMenu", "18", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyPause", "19", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyCapital", "20", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyEscape", "27", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeySpace", "32", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyPageUp", "33", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyPageDown", "34", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyEnd", "35", True