一个按钮更改Notes字体大小

大家好，才是真的好。

在说到正文以前，我们还是提两句，上周HCL发布了Notes/Domino 12.0.2FP4补丁，以及在亚马逊云应用市场上架了HCL Domino 14.0。
在这里插入图片描述

现在谈谈正文部分。

随着岁月飞逝，使用Notes的人也开始日渐眼花，很多人对Notes客户机的显示字体有了进一步要求，尤其是字体大小方面。

从R8.0.x开始，我们可以对Notes客户机的字体进行选择，方法很简单，就是文件菜单点击首选项，找到字体和颜色，然后设置”正常“、”大字体“和”超大字体“三种大小，如下图所示：
在这里插入图片描述
但是，等等，如果我们使用更早的Notes客户机版本呢？另外，其他应用里面，字体大小分明可以有很多值可以设置，例如从1到20之类等等。

其实，很早时候，Notes已经可以通过对notes.ini进行修改来定制字体大小，语句如下：

Display_font_adjustment=n

其中n是具体的数值，最小为-1，最大为25，这就比首选项设置更具了灵活性。

有了这一个基础，我们只需要写一个按钮（或者代理），然后发给用户，用户点击一下即可调整字体大小，对不对？

这个按钮你可以写在一封邮件里，也可以写在公共通讯录中，或其他什么位置。

我们简单点，写一个按钮在发送给需要人的邮件里面:
在这里插入图片描述
代码如下：

Dim session As New NotesSessionDim ws As New notesuiworkspaceDim size As StringDim oldsize As String       size="1"oldsize = session.GetEnvironmentString("Display_Font_Adjustment", True)If oldsize="" Then oldsize="0"Dim sizelist (5) As Stringsizelist(0)=-1sizelist(1)=0sizelist(2)=1sizelist(3)=2sizelist(4)=3sizelist(5)=4size=ws.Prompt(4, "更改字体大小","请设置新的字体大小，当前字体大小值为 " & oldsize &"." & String(2,10) & "0表示 '正常大小',设置更大的数字，可以调整到更大字体", oldsize,sizelist)Display_Font_Adjustment=-1   If oldsize <> size And size <>"" ThenSession.SetEnvironmentVar "Display_Font_Adjustment", size, TrueEnd IfMessagebox "您关闭Notes客户机，然后再次启动生效！",0+64

效果如下图：
在这里插入图片描述
现在我们将这封邮件发给需要的用户，然后该用户收到邮件以后点按钮,就会弹出一个对话框，要求我们选择字体大小:

设置完后，我们尝试重新打开一个Notes客户机，然后看看显示效果吧。

今天我们就介绍到这里。