- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 运行错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108721)
-- 发布时间：2017/10/27 19:30:00
-- 运行错误
我如果把主窗体的类型从独立窗口变为主窗体后运行就出错了，并且主窗体也打不开，老师给看看怎么回事呢？
此主题相关图片如下：55555.png
[此贴子已经被作者于2017/10/27 19:59:51编辑过]
-- 发布时间：2017/10/27 20:32:00
--
主窗口afterload事件去掉以下代码
\'Dim frm = forms("主窗体").baseform \'第二中全屏方法
\'frm.windowstate = 0
\'frm.left = 0
\'frm.top = 0
\'frm.width = SysInfo.ScreenWidth
\'frm.height = SysInfo.WorkingAreaHeight
\'e.Form.Controls("Label1").text="目前用户: " & _UserName & " 用户角色: " & _UserGroup
-- 发布时间：2017/10/27 20:47:00
--
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then \'如果注册码正确
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & Tables("注册用户信息表").Current("公司名称")
Else
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & " 试用版"
End If
\'Dim frm = forms("主窗体").baseform \'第二中全屏方法
\'frm.windowstate = 0
\'frm.left = 0
\'frm.top = 0
\'frm.width = SysInfo.ScreenWidth
\'frm.height = SysInfo.WorkingAreaHeight
\'e.Form.Controls("Label1").text="目前用户: " & _UserName & " 用户角色: " & _UserGroup
去掉也不行，还是弹出错误提示框
注释后窗体用户名e.Form.Controls("Label1").text怎么获取呢？
[此贴子已经被作者于2017/10/27 20:49:06编辑过]
-- 发布时间：2017/10/27 20:56:00
--
我测试没有问题。窗口都没有Label1控件，取啥
-- 发布时间：2017/10/27 22:33:00
--
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then \'如果注册码正确
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & Tables("注册用户信息表").Current("公司名称")
Else
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & " 试用版"
End If
把后面的代码去掉后运行还是出错
-- 发布时间：2017/10/27 22:50:00
--
我测试没有问题，出什么错？截图说明
-- 发布时间：2017/10/27 22:57:00
--
此主题相关图片如下：2017102719264771247.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:商户入库数据同步.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:录像31.rar |
[此贴子已经被作者于2017/10/27 23:02:52编辑过]
-- 发布时间：2017/10/27 23:08:00
--
我测试还是没有问题。
删除项目里的bin目录，关闭重启项目再测试
-- 发布时间：2017/10/27 23:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:录像32.rar |
奇怪了我这按您的方法删除了项目里的bin目录，关闭重启项目还是错误？您看看视频
[此贴子已经被作者于2017/10/28 0:08:24编辑过]
-- 发布时间：2017/10/28 8:49:00
--
换台电脑测试还是没有问题。
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看那一句代码出错
[此贴子已经被作者于2017/10/28 8:49:33编辑过]