让点击快速平台主界面右上角的用户名的注销操作受控

时　间:2014-11-10 20:52:27
作　者:Qiu J.X.   ID：1455  城市：龙岩
摘　要:解决：在点击主界面右上角的【用户组：用户名】时，平台会在没有确认的情况下自动注销当前登录。
正　文:

现象：

2.0新版快速平台，在点击主界面右上角的【用户组：用户名】时，平台会在没有确认的情况下自动注销当前登录；个人人为这是一人危险操作，如果当前操作存在没有保存的数据的话，就要浪费时间重头来过了。

解决办法：

用下列代码替换主界面窗体中的同名代码，实现上图的确认效果，以免误操作带来的纠结。

Public Function SwitchUser()
    Dim strMsg      As String
    Dim strUserName As String
        
    strMsg = "您确定注销当前登录……"
    If MsgBoxEx(strMsg, vbQuestion + vbOKCancel) = vbOK Then
        Call LogOutRDP
    End If
End Function