Foxtable(狐表)用户栏目专家坐堂 → [分享] SaveConfigValue()使用过程中逻辑值的巧妙变通!


  共有13581人关注过本帖平板打印复制链接

主题:[分享] SaveConfigValue()使用过程中逻辑值的巧妙变通!

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7236 积分:40591 威望:0 精华:16 注册:2008/8/31 23:23:00
[分享] SaveConfigValue()使用过程中逻辑值的巧妙变通!  发帖心情 Post By:2011/9/18 16:10:00 [只看该作者]

原以为,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

 


 回到顶部