以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]某列的内容加密，打开软件时该列显示是****，输入密码后显示内容10秒后，自动回复显示****  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124320)
--  作者：vxzx
--  发布时间：2018/9/4 14:46:00
--  [求助]某列的内容加密，打开软件时该列显示是****，输入密码后显示内容10秒后，自动回复显示****
大神们，某列的内容我想加密，想在打开软件时该列内容显示是****，输入密码后显示内容10秒后，自动回复显示****，这样的功能怎么实现，谢谢。
--  作者：有点甜
--  发布时间：2018/9/4 15:00:00
--  

drawcell事件

 

If e.Col.Name = "第一列" Then \'请改为实际列名
    If vars("暂停") = False Then \'如果不是指定用户
        e.Text = "****" \'则修改显示内容
    End If
End If

 

doubleclick事件

 

If e.Col.name = "第一列" Then
    e.cancel = True
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "123" Then
            vars("暂停") = True
            e.Table.Refresh
            Dim sdt As Date = Date.Now
            While Date.Now < sdt.AddSeconds(10)
                Application.DoEvents
            End While
            vars("暂停") = False
            e.Table.Refresh
        End If
    End If
End If
--  作者：vxzx
--  发布时间：2018/9/4 15:10:00
--  
甜大神，效率真快，非常感谢。