发表于:2007-11-16 22:28:00
6楼
添加定时器将数据定时存入注册表:
Private Sub t1_OnTimeOut(ByVal lTimerId As Long)
SaveSetting "iFix", "iFix", "iFix", Fix32.Fix.ar1.F_CV
End Sub
画面打开(初始化)是读取回来:
Private Sub CFixPicture_Initialize()
Fix32.Fix.ar1.F_CV = GetSetting("iFix", "iFix", "iFix")
End Sub