HKEY_USERS\S-1-5-21.......后面的键值在每台计算机都不一样,请问如何设置?
用"HKEY_CURRENT_USER\EUDC\936" 就可以了.
下面方法基本解决了问题:
Dim dlg As new windows.forms.fontdialogdlg.Font = Tables("表A").FontIf 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