现象:
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