# Re: 请小吴一定帮忙,谢谢.如何用vb6将系统small font改为large font

Posted by 笑儿 on August 07, 1998 at 15:50:34:

In Reply to: 请小吴一定帮忙,谢谢.如何用vb6将系统small font改为large font posted by VB网子 on August 07, 1998 at 01:33:38:

呣...很麻烦...
首先, 从下面机码中取得自行资料(用Reg*的API)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\fontsize\120 <-- Large font
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\fontsize\96 <-- Small font

然后将...\fontsize\...\System里的字串值名称及值对调写入HKEY_LOCAL_MACHINE\Config\0001\Display\Settings中,
将...\fontsize\...\User里的字串值名称及值对调写入HKEY_LOCAL_MACHINE\Config\0001\Display\Fonts中,
何位名称及值对调呢, 譬如...\System中有一个字串值是
"vgafix.fon"="fixedfon.fon"
那就要把"fixedfon.fon"="vgafix.fon"放到...\Settings下

最后, 把...\Settings中的几个字串值改成"120"或"96"(Large font 或 Small font):
DPILogicalX
DPILogicalY
DPIPhysicalX
DPIPhysicalY

最后, 令使用者重新载入Windows即可(用ExitWindows)

噢! 对了!
在写入之前, 记得把另一种字型用到的值删除, 就是改变成另一种字型时要加进去的值喔!
: 英文win95 4.00.95
: 没有安装 sp
: vb6中文企业版

Follow Ups:

- 小吴, 笑儿冒犯了, 对不起喔 笑儿 15:53:42 8/07/98 (2)
  - 这样会不会有问题呢？ 小吴 17:13:10 8/07/98 (1)
    - Re: 这样会不会有问题呢？ 笑儿 22:40:35 8/07/98 (0)