以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]笔记本合上后 过一会 打开 从待机登录电脑后提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120238)

--  作者:blsu33
--  发布时间:2018/6/10 19:26:00
--  [求助]笔记本合上后 过一会 打开 从待机登录电脑后提示
.NET Framework 版本:2.0.50727.8830
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,serevmain,SizeChanged
详细错误信息:
给定关键字不在字典中。

SizeChanged  中的代码 
Forms("serevmain").stopRedraw
Dim frmname As String=e.Form.name
If vars("bswidth")=0 And vars("bsheight")=0 Then
    basemainform.left = (SysInfo.WorkingAreaWidth - basemainform.width) / 2
    basemainform.top = (SysInfo.WorkingAreaheight - basemainform.height) / 2
Else
    basemainform.left = (SysInfo.WorkingAreaWidth - vars("bswidth")) / 2
    basemainform.top = (SysInfo.WorkingAreaheight - vars("bsheight")) / 2
End If

Select Case basemainform.windowstate\'0 还原 1 最小化 2 最大化
    Case 0
        If vars("bswidth")=0 And vars("bsheight")=0  Then
            basemainform.left = (SysInfo.WorkingAreaWidth - basemainform.width) / 2
            basemainform.top = (SysInfo.WorkingAreaheight - basemainform.height) / 2
            vars("bswidth")=basemainform.width\'第一次还原使用,保证窗口居中
            vars("bsheight")=basemainform.height\'第一次还原使用,保证窗口居中
        End If
End Select

Forms("serevmain").ResumeRedraw

--  作者:有点甜
--  发布时间:2018/6/10 21:40:00
--  

Forms("serevmain")

 

或者 vars("bswidth")

 

或者 vars("bsheight")

 

有问题,对应名称的变量不存在导致的。请加入msgbox定位出错位置。