分享资源！！让你的vfp代码编辑器变身C#风格。

[fojiao8745]

代码贴在下面了，就是利用注册表修改vfp9的一系列键值，自己感觉增强了可读性，效果如下图，道友可以拿去自行研究：

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Desktop]
"Zoomed"="0"
"Row"="57"
"Column"="129"
"Height"="750"
"Width"="1527"
"FontName"="Consolas, 13, N, 1"
"PrtFontName"="Consolas, 9, N, 1"

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Fonts]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options]
"LastProject"="0"
"TALK"="ON"
"StatusBar"="1"
"NOTIFY"="ON"
"CLOCK"="OFF"
"RecentlyUsedFiles"="1"
"DisplayCount"="15"
"COMPATIBLE"="OFF"
"PALETTE"="ON"
"BELL"="ON"
"SAFETY"="ON"
"ESCAPE"="ON"
"LOGERRORS"="ON"
"DEVELOPMENT"="ON"
"KEYCOMP"="WINDOWS"
"CARRY"="OFF"
"CONFIRM"="OFF"
"BROWSEIMECONTROL"="OFF"
"STRICTDATE"="1"
"TabOrdering"="0"
"GridShow"="1"
"GridSnap"="1"
"GridShowPos"="0"
"BuilderLock"="0"
"ResWidth"="-1"
"ResHeight"="-1"
"GridHorz"="12"
"GridVert"="12"
"ScaleUnits"="0"
"FormSetLib"=""
"FormSetClass"=""
"FormsLib"=""
"FormsClass"=""
"PromptBeforeRun"="1"
"EXACT"="OFF"
"NEAR"="OFF"
"ANSI"="OFF"
"LOCK"="OFF"
"EXCLUSIVE"="ON"
"MULTILOCKS"="OFF"
"HEADINGS"="ON"
"DELETED"="OFF"
"OPTIMIZE"="ON"
"UNIQUE"="OFF"
"CPDIALOG"="OFF"
"BrowseRefresh"="0"
"TableRefresh"="5.000000"
"ODOMETER"="100"
"BLOCKSIZE"="64"
"REPROCESS"="0"
"COLLATE"="PINYIN"
"ProjectClick"="0"
"WizardPrompt"="1"
"UseContainerIcons"="0"
"SCCCheckOutOnModify"="1"
"SCCAddFileOnAdd"="1"
"SCCRemoveFileOnRemove"="1"
"SCCUseSCCOnPjxCreate"="0"
"SCCContextDialogsOn"="1"
"SCCProvider"=""
"ProjectHookLib"=""
"ProjectHookClass"=""
"CrsBuffering"="1"
"CrsFetchMemo"="1"
"CrsShareConnection"="0"
"CrsMethodUsed"="1"
"CrsWhereClause"="3"
"CrsFetchSize"="100"
"CrsMaxRows"="-1"
"CrsNumBatch"="1"
"CrsUseMemoSize"="255"
"SQLAsynchronous"="0"
"SQLBatchMode"="1"
"SQLDispWarnings"="0"
"SQLDispLogin"="1"
"SQLTransactions"="1"
"SQLConnectTimeOut"="15"
"SQLIdleTimeOut"="0"
"SQLQueryTimeOut"="0"
"SQLWaitTime"="100"
"SetDefault"="0"
"PATH"=""
"HelpOn"="1"
"HelpCollection"=""
"HelpSystem"="0"
"ResourceOn"="1"
"ShowVCXs"="1"
"ShowOLEInsertable"="1"
"ShowOLEControls"="1"
"SYSFORMATS"="OFF"
"SECONDS"="ON"
"CENTURY"="ON"
"CurrLeft"="1"
"CurrSymbol"="$"
"HOURS"="24"
"DATE"="ANSI"
"DECIMALS"="2"
"FDOW"="1"
"FWEEK"="1"
"MARK"="\".\""
"SEPARATOR"="\",\""
"POINT"="\".\""
"DebugEnvironment"="0"
"DebugTimerEvents"="0"
"CallstackOrder"="0"
"CallstackCurrentLine"="1"
"CallstackStackPos"="1"
"TraceLineNumbers"="0"
"TRBETWEEN"="OFF"
"_THROTTLE"="    0.00"
"DebugOutputAppend"="1"
"DebugOutputFileName"=""
"TraceFontName"="Consolas, 8, N, 134"
"WatchFontName"="Consolas, 9, N, 1"
"LocalsFontName"="Consolas, 9, N, 1"
"OutputFontName"="Consolas, 9, N, 1"
"CallstackFontName"="Consolas, 9, N, 1"
"TraceNormalColor"="RGB(0,0,0,255,255,255), Auto, Auto"
"TraceExecutingColor"="RGB(255,255,0,0,0,0), NoAuto, Auto"
"TraceCallstackColor"="RGB(0,0,0,240,240,240), Auto, Auto"
"TraceBreakpointColor"="RGB(255,0,0,0,0,0), NoAuto, Auto"
"TraceSelectedColor"="RGB(255,255,255,0,0,0), Auto, Auto"
"WatchNormalColor"="RGB(0,0,0,255,255,255), Auto, Auto"
"WatchSelectedColor"="RGB(255,255,255,0,0,0), Auto, Auto"
"WatchChangedColor"="RGB(255,0,0,255,255,255), NoAuto, Auto"
"LocalsNormalColor"="RGB(0,0,0,255,255,255), Auto, Auto"
"LocalsSelectedColor"="RGB(255,255,255,0,0,0), Auto, Auto"
"OutputNormalColor"="RGB(0,0,0,255,255,255), Auto, Auto"
"OutputSelectedColor"="RGB(255,255,255,0,0,0), Auto, Auto"
"CallstackNormalColor"="RGB(0,0,0,255,255,255), Auto, Auto"
"CallstackSelectedColor"="RGB(255,255,255,0,0,0), Auto, Auto"
"BookmarkColor"="RGB(0,255,255,0,0,0), NoAuto, Auto"
"ShortcutColor"="RGB(0,0,255,0,0,0), NoAuto, Auto"
"EditorCommentColor"="RGB(124,250,0,255,255,255), NoAuto, Auto"
"EditorKeywordColor"="RGB(65,176,255,255,255,255), NoAuto, Auto"
"EditorConstantColor"="RGB(0,210,210,255,255,255), NoAuto, Auto"
"EditorNormalColor"="RGB(0,0,0,32,32,32), Auto, NoAuto"
"EditorOperatorColor"="RGB(192,192,192,255,255,255), NoAuto, Auto"
"EditorStringColor"="RGB(250,128,114,255,255,255), NoAuto, Auto"
"EditorVariableColor"="RGB(192,192,192,255,255,255), NoAuto, Auto"
"EditorCommentStyle"="-1"
"EditorKeywordStyle"="-1"
"EditorConstantStyle"="-1"
"EditorNormalStyle"="-1"
"EditorOperatorStyle"="-1"
"EditorStringStyle"="-1"
"EditorVariableStyle"="-1"
"EditorCommentString"="*!*"
"EditorSelectionMarginFlag"="1"
"BackgroundCompile"="3"
"ParensHighlightDuration"="1500"
"DragDropBetweenWords"="0"
"Hyperlinks"="0"
"RptPrivateDataSession"="0"
"RptSavePrinterEnv"="0"
"RptUseDBCCaptions"="1"
"RptGridShow"="0"
"RptGridSnap"="1"
"RptGridShowPos"="0"
"RptGridHorz"="12"
"RptGridVert"="12"
"RptScaleUnits"="255"
"RptExprBuilderAlias"="1"
"RptBehavior"="80"
"RptFont"="Consolas, 9, N, 1"

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IDE]
"Program"="011000110011000404"
"ProgramExtension"="PRG;MPR;QPR;SPR"
"ProgramFont"="Consolas, 9, N, 1"

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\Blob]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\Varbinary]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\Varchar]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\Varchar (二进制)]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\双精度型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\备注型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\备注型 (二进制)]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\多用途型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\字符型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\字符型 (二进制)]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\数值型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\整型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\日期型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\日期时间型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\标签]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\浮点型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\货币型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\通用型 ]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\IntelliDrop\FieldTypes\逻辑型]

[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options\VCXList]

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\VisualFoxPro]

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\VisualFoxPro\9.0]

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\VisualFoxPro\9.0\Registration]
"UserName"="微软用户"
"PIDKey"=""
"ProductID"="76683-335-1738797-18184"

[十豆三]

• 打赏
• 举报

回复 赞

[silandn]

多谢分享，但是不知道具体怎么用

• 打赏
• 举报

回复 赞

[都市夜猫]

引用 2 楼 silandn 的回复:

多谢分享，但是不知道具体怎么用

通常是另存为一个 reg 文件，然后双击导入注册表 提醒：我没做过验证，要用自己负责；导入前，先备份注册表的 HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro 分支。 看内容，应该是 64 位的 Windows 上导出的，里面有中文项目名，估计是汉化过的版本，我只用英文版，汉化版不敢用

• 打赏
• 举报

回复 赞

[wwle]

我粘贴为reg,导入失败 我是英文版

• 打赏
• 举报

回复 赞

[fojiao8745]

引用 12 楼 dkfdtf 的回复:

win7 和 win10 也一样

mmp 我感觉可能是汉化过的原因？

• 打赏
• 举报

回复 赞

[都市夜猫]

也许吧，开发工具这类东西，汉化过的不敢用

• 打赏
• 举报

回复 赞

[fojiao8745]

@十豆三 @silandn @都市夜猫 @wwle 回复楼上。。。其实只要把你当前的vfp9.0的注册表导出来，然后修改以下键值就可以将颜色改为和我一样的。。。字体的话要自己摸索，在vfp9的选项设置里面有字体选择，不用改注册表。。。

"EditorCommentColor"="RGB(124,250,0,255,255,255), NoAuto, Auto"
"EditorKeywordColor"="RGB(65,176,255,255,255,255), NoAuto, Auto"
"EditorConstantColor"="RGB(0,210,210,255,255,255), NoAuto, Auto"
"EditorNormalColor"="RGB(0,0,0,32,32,32), Auto, NoAuto"
"EditorOperatorColor"="RGB(192,192,192,255,255,255), NoAuto, Auto"
"EditorStringColor"="RGB(250,128,114,255,255,255), NoAuto, Auto"
"EditorVariableColor"="RGB(192,192,192,255,255,255), NoAuto, Auto"

• 打赏
• 举报

回复 赞

[fojiao8745]

@十豆三
@都市夜猫
@silandn
@wwle
个人特别喜欢下图的这种字体，用来码代码还是很爽的，但是在系统里面安装完了，在vfp的选项里面根本没有这种字体，修改注册表让XXXFont = "DejaVu Sans Mono" 这两种方式均无法使用这种字体，十豆三和都市夜猫 两位老师有办法吗？

以下附上字体文件，烦请老师帮忙调试。。。
https://zh.fonts2u.com/download/dejavu-sans-mono.%E5%AD%97%E4%BD%93

• 打赏
• 举报

回复 赞

[fojiao8745]

安装完了，这个地方根本看不到字体，不知道为何

• 打赏
• 举报

回复 赞

[都市夜猫]

我的能选


不过我还是喜欢用 Consolas

• 打赏
• 举报

回复 赞

[fojiao8745]

见鬼了，是我的设置有问题吗，我的就没这些第三方字体。。。

• 打赏
• 举报

回复 赞

[fojiao8745]

引用 8 楼 dkfdtf 的回复:

我的能选

版主大大，能不能拜托你看一下你的VFP注册表，在[HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Fonts]这个位置的键值是怎样的？

• 打赏
• 举报

回复 赞

[都市夜猫]

我这里是空的

• 打赏
• 举报

回复 赞

[都市夜猫]

win7 和 win10 也一样

• 打赏
• 举报

回复 赞