原以为,SaveConfigValue()可以保存逻辑值true和false,于是在甘特图系统应用中,写下了这样一个按钮代码
1、SaveConfigValue("隐藏进度条",not GetConfigValue("隐藏进度条",True))
2、然后,在命令窗口执行了SaveConfigValue("隐藏进度条",true)
到此时,这个按钮在理论上就应该可以使用了,可是在执行后发现报错,于是考虑到在vb.net中,true和false的值是1和0,于是乎,将第一条的代码改成了这样:
SaveConfigValue("隐藏进度条",math.abs(val(GetConfigValue("隐藏进度条",True))-1))
至此,该按钮的整体代码完全正常运行,虽然保存的是整数型数据,但一样可以直接判断逻辑值,完整代码如下:
SaveConfigValue("隐藏进度条",math.abs(val(GetConfigValue("隐藏进度条",True))-1))
If GetConfigValue("隐藏进度条",True) = True
If e.Form.ExistControl("动态提醒") = True
e.Form.RemoveControl("动态提醒")
End If
Forms("项目进度甘特图").Controls("SplitContainer1").Panel2.Collapsed = False
e.Sender.Text = "隐藏甘特图"
Functions.Execute("进度条")
Else
For Each lbl As Winform.Control In Forms("项目进度甘特图").Controls
If left(lbl.name,5) = "Label" Then '
Forms("项目进度甘特图").RemoveControl(lbl.name)
End If
Next
e.Sender.Text = "显示甘特图"
Forms("项目进度甘特图").Controls("SplitContainer1").Panel2.Collapsed =True
End If