以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]未将对象引用设置到对象的实例。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189175)
--  作者：moseser
--  发布时间：2023/11/15 8:31:00
--  [求助]未将对象引用设置到对象的实例。
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,测试1,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。

在一窗口中做了一个测试按钮，但提示 未将对象引用设置到对象的实例。

Dim w As Integer = SysInfo.ScreenWidth
Dim h As Integer = SysInfo.ScreenHeight

Dim w1 As Integer = SysInfo.WorkingAreaWidth
Dim h1 As Integer = SysInfo.WorkingAreaHeight



Dim f_h As Integer = Forms("测试1").BaseForm.Height
Dim f_w As Integer = Forms("测试1").BaseForm.Width

Dim txt As WinForm.Label = Forms("测试1").Controls("Label1")

txt.Text = "屏幕宽度：" & w & vbCrLf & "屏幕高度:" & h & vbCrLf & "工作区宽度：" & w1 & vbCrLf & " 工作区高度：" & h1 & vbCrLf & " 窗口宽度：" & f_w & vbCrLf & " 窗口高度：" & f_h



提示：
--  作者：有点蓝
--  发布时间：2023/11/15 8:33:00
--  
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
--  作者：moseser
--  发布时间：2023/11/15 10:03:00
--  回复：（有点蓝）调试技巧：http://www.foxtable.com/...
Dim f_h As Integer = Forms("测试1").BaseForm.Height

这个出现的问题
--  作者：有点蓝
--  发布时间：2023/11/15 10:04:00
--  
如果不是独立、模式窗口，改为

Dim f_h As Integer = Forms("测试1").panel.Height