Foxtable(狐表)用户栏目专家坐堂 → 注册表设置


  共有11170人关注过本帖树形打印复制链接

主题:注册表设置

帅哥哟,离线,有人找我吗?
明丰
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
注册表设置  发帖心情 Post By:2011/11/7 9:47:00 [只看该作者]

  当通过“字体设置”按钮打开字体设置对话框设置字体样式,按“确定”按钮时,将新选择的字体和“D:\5数据备份\EUDC.TTE”内容写进注册表“HKEY_USERS\S-1-5-21-1935655697-562591055-682003330-1003\EUDC\936注册相同记录取消写入如何设置
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:测试1.zip

[此贴子已经被作者于2011-11-7 10:19:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
明丰
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
  发帖心情 Post By:2011/11/7 10:24:00 [只看该作者]

HKEY_USERS\S-1-5-21.......后面的键值在每台计算机都不一样,请问如何设置?

 

用"HKEY_CURRENT_USER\EUDC\936" 就可以了.

 

下面方法基本解决了问题:

Dim dlg As new windows.forms.fontdialog
dlg.Font = Tables("表A").Font
If dlg.showdialog = DialogResult.Ok Then
    Tables("表A").Font = dlg.Font
    Registry.SetValue("HKEY_CURRENT_USER\EUDC\936",(dlg.Font).Name,"C:\改EUDC改.TTE")
End If

[此贴子已经被作者于2011-11-7 18:56:50编辑过]

 回到顶部