modhiparser.bas

一个把VB原代码转换为VC原代码的软件代码。

    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyHome", "36", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyLeft", "37", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyUp", "38", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyRight", "39", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyDown", "40", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeySelect", "41", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyPrint", "42", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyExecute", "43", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeySnapshot", "44", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyInsert", "45", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyDelete", "46", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyHelp", "47", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumlock", "144", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyA", "65", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyB", "66", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyC", "67", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyD", "68", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyE", "69", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF", "70", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyG", "71", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyH", "72", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyI", "73", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyJ", "74", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyK", "75", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyL", "76", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyM", "77", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyN", "78", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyO", "79", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyP", "80", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyQ", "81", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyR", "82", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyS", "83", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyT", "84", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyU", "85", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyV", "86", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyW", "87", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyX", "88", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyY", "89", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyZ", "90", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey0", "48", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey1", "49", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey2", "50", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey3", "51", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey4", "52", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey5", "53", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey6", "54", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey7", "55", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey8", "56", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKey9", "57", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad0", "96", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad1", "97", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad2", "98", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad3", "99", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad4", "100", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad5", "101", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad6", "102", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad7", "103", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad8", "104", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyNumpad9", "105", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyMultiply", "106", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyAdd", "107", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeySeparator", "108", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeySubtract", "109", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyDecimal", "110", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyDivide", "111", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF1", "112", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF2", "113", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF3", "114", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF4", "115", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF5", "116", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF6", "117", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF7", "118", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF8", "119", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF9", "120", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF10", "121", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF11", "122", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF12", "123", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF13", "124", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF14", "125", True
    AddBuiltinEnum "KeyCodeConstants", False, False, "vbKeyF15", "126", True
    AddBuiltinEnum "KeyCodeConstants", False, True, "vbKeyF16", "127", True
    
    AddBuiltinEnum "RecordsetTypeConstants", True, False, "vbRSTypeTable", "0", True
    AddBuiltinEnum "RecordsetTypeConstants", False, False, "vbRSTypeDynaset", "1", True
    AddBuiltinEnum "RecordsetTypeConstants", False, True, "vbRSTypeSnapShot", "2", True
    
    AddBuiltinEnum "AlignConstants", True, False, "vbAlignBottom", "2", True
    AddBuiltinEnum "AlignConstants", False, False, "vbAlignLeft", "3", True
    AddBuiltinEnum "AlignConstants", False, False, "vbAlignNone", "0", True
    AddBuiltinEnum "AlignConstants", False, False, "vbAlignRight", "4", True
    AddBuiltinEnum "AlignConstants", False, True, "vbAlignTop", "1", True
      
    AddBuiltinEnum "AlignmentConstants", True, False, "vbCenter", "2", True
    AddBuiltinEnum "AlignmentConstants", False, False, "vbLeftJustify", "0", True
    AddBuiltinEnum "AlignmentConstants", False, True, "vbRightJustify", "1", True
    
    AddBuiltinEnum "ApplicationStartConstants", True, False, "vbSModeAutomation", "1", True
    AddBuiltinEnum "ApplicationStartConstants", False, True, "vbSModeStandalone", "0", True
    
    AddBuiltinEnum "AsyncReadConstants", True, False, "vbAsyncReadForceUpdate", "16", True
    AddBuiltinEnum "AsyncReadConstants", False, False, "vbAsyncReadGetFromCacheIfNetFail", "524288", True
    AddBuiltinEnum "AsyncReadConstants", False, False, "vbAsyncReadOfflineOperation", "8", True
    AddBuiltinEnum "AsyncReadConstants", False, False, "vbAsyncReadResynchronize", "512", True
    AddBuiltinEnum "AsyncReadConstants", False, True, "vbAsyncReadSynchronousDownload", "1", True
    
    AddBuiltinEnum "AsyncStatusCodeConstants", True, False, "vbAsyncStatusCodeBeginDownloadData", "4", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeBeginSyncOperation", "15", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeCacheFileNameAvailable", "14", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeConnecting", "2", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeDownloadingData", "5", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeEndDownloadData", "6", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeEndSyncOperation", "16", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeError", "0", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeFindingResource", "1", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeMIMETypeAvailable", "13", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeRedirecting", "3", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, False, "vbAsyncStatusCodeSendingRequest", "11", True
    AddBuiltinEnum "AsyncStatusCodeConstants", False, True, "vbAsyncStatusCodeUsingCachedCopy", "10", True
    
    AddBuiltinEnum "AsyncTypeConstants", True, False, "vbAsyncTypeByteArray", "2", True
    AddBuiltinEnum "AsyncTypeConstants", False, False, "vbAsyncTypeFile", "1", True
    AddBuiltinEnum "AsyncTypeConstants", False, True, "vbAsyncTypePicture", "0", True
    
    AddBuiltinEnum "BorderStyleConstants", True, False, "vbBSDash", "2", True
    AddBuiltinEnum "BorderStyleConstants", False, False, "vbBSDashDot", "4", True
    AddBuiltinEnum "BorderStyleConstants", False, False, "vbBSDashDotDot", "5", True
    AddBuiltinEnum "BorderStyleConstants", False, False, "vbBSDot", "3", True
    AddBuiltinEnum "BorderStyleConstants", False, False, "vbBSInsideSolid", "6", True
    AddBuiltinEnum "BorderStyleConstants", False, False, "vbBSSolid", "1", True
    AddBuiltinEnum "BorderStyleConstants", False, True, "vbTransparent", "0", True
    
    AddBuiltinEnum "ButtonConstants", True, False, "vbButtonGraphical", "1", True
    AddBuiltinEnum "ButtonConstants", False, True, "vbButtonStandard", "0", True
    
    AddBuiltinEnum "CheckBoxConstants", True, False, "vbChecked", "1", True
    AddBuiltinEnum "CheckBoxConstants", False, False, "vbGrayed", "2", True
    AddBuiltinEnum "CheckBoxConstants", False, True, "vbUnchecked", "0", True
    
    AddBuiltinEnum "ClipBoardConstants", True, False, "vbCFBitmap", "2", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFDIB", "8", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFEMetafile", "14", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFFiles", "15", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFLink", "-16640", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFMetafile", "3", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFPalette", "9", True
    AddBuiltinEnum "ClipBoardConstants", False, False, "vbCFRTF", "-16639", True
    AddBuiltinEnum "ClipBoardConstants", False, True, "vbCFText", "1", True
    
    AddBuiltinEnum "ComboBoxConstants", True, False, "vbComboDropdown", "0", True
    AddBuiltinEnum "ComboBoxConstants", False, False, "vbComboDropdownList", "2", True
    AddBuiltinEnum "ComboBoxConstants", False, True, "vbComboSimple", "1", True
    
    AddBuiltinEnum "DataBOFconstants", True, False, "vbBOF", "1", True
    AddBuiltinEnum "DataBOFconstants", False, True, "vbMoveFirst", "0", True
    
    AddBuiltinEnum "DataEOFConstants", True, False, "vbAddNew", "2", True
    AddBuiltinEnum "DataEOFConstants", False, False, "vbEOF", "1", True
    AddBuiltinEnum "DataEOFConstants", False, True, "vbMoveLast", "0", True

    AddBuiltinEnum "DataErrorConstants", True, False, "vbDataErrContinue", "0", True
    AddBuiltinEnum "DataErrorConstants", False, True, "vbDataErrDisplay", "1", True

    AddBuiltinEnum "DataValidateConstants", True, False, "vbDataActionAddNew", "5", True
    AddBuiltinEnum "DataValidateConstants", False, False, "vbDataActionBookmark", "9", True
    AddBuiltinEnum "DataValidateConstants", False, False, "vbDataActionCancel", "0", True
    AddBuiltinEnum "DataValidateConstants", False, False, "vbDataActionClose", "10", True
    AddBuiltinEnum "DataValidateConstants", False, False, "vbDataActionDelete", "7", True
    AddBuiltinEnum "DataValidateConstants", False, False, "vbDataActionFind", "8", True