请教2个问题:如何在光标离开文本框时获取光标位置2.如何获取当前操作系统字库文件所在路径
第1个问题:要在文本框的文字中间插入一个特殊字符,但需要按一个按钮来实现插入，这就需要在光标离开文本框时获取光标在这些文字中的具体位置，以便在按这个按钮后把这个特殊字符插入到文本中的相应位置。
第2个问题：有时用户安装了多个操作系统，如何获取当前操作系统字库文件所在路径，一般是C:\WINDOWS\FONTS，但有时当前系统不一定在C盘。
[解决办法]
2. ? Getenv("windir") + '\font'
[解决办法]
1、
假设你的文本框为 Text1，在此控件的 Lostfocus 事件写代码：
This.Tag=Transform(This.SelStart)
然后在你的输入特殊字符的按钮的 Click 事件写代码：
Thisform.Text1.Value=Left(Thisform.Text1.Value,Val(Thisform.Text1.Tag))+'特殊字符'+Substr(Thisform.Text1.Value,Val(Thisform.Text1.Tag)+1)
2、
loShell=createobject('wscript.shell')
lcMyPath=loShell.SpecialFolders('Fonts')
?lcMyPath
