以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  “UserCode”的类型初始值设定项引发异常。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170523)

--  作者:tcmhl
--  发布时间:2021/7/29 13:48:00
--  “UserCode”的类型初始值设定项引发异常。
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.1.19.19
错误所在事件:项目,AfterOpenProject
详细错误信息:
“UserCode”的类型初始值设定项引发异常。
无法创建 ActiveX 组件。


求助!!

--  作者:tcmhl
--  发布时间:2021/7/29 13:50:00
--  
Dim tab = basemainform.controls("mainpages")
tab.Padding = new point(15, 15)
\'//////最小化窗体
\'AfterOpenProject事件

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick \'为通知区域图标添加双击事件
nfi.Text = "投影点击" \'鼠标移上去显示的文本
nfi.Icon = New Icon(projectpath & "test.ico") \'图标地址
nfi.Visible = True \'设置为显示

Dim tsm1 As New System.Windows.Forms.ToolStripMenuItem("显示",GetImage(projectpath & "test.ico"))  \'定义一个菜单选项(带图标)
AddHandler tsm1.Click, AddressOf Menu_Click  \'为这个菜单选项添加点击事件
cms.Items.Add(tsm1)
nfi.ContextMenuStrip = cms

Dim tsm2 As New System.Windows.Forms.ToolStripMenuItem("隐藏",GetImage(projectpath & "test.ico"))  \'定义一个菜单选项(带图标)
AddHandler tsm2.Click, AddressOf Menu_Click  \'为这个菜单选项添加点击事件
cms.Items.Add(tsm2)
nfi.ContextMenuStrip = cms

Dim tsm3 As New System.Windows.Forms.ToolStripMenuItem("退出",GetImage(projectpath & "test.ico"))  \'定义一个菜单选项(带图标)
AddHandler tsm3.Click, AddressOf Menu_Click  \'为这个菜单选项添加点击事件
cms.Items.Add(tsm3)
nfi.ContextMenuStrip = cms

Dim tsm4 As New System.Windows.Forms.ToolStripMenuItem("打开窗口",GetImage(projectpath & "test.ico"))  \'定义一个菜单选项(带图标)
AddHandler tsm4.Click, AddressOf Menu_Click  \'为这个菜单选项添加点击事件
cms.Items.Add(tsm4)
nfi.ContextMenuStrip = cms

Dim tsm5 As New System.Windows.Forms.ToolStripMenuItem("关闭窗口",GetImage(projectpath & "test.ico"))  \'定义一个菜单选项(带图标)
AddHandler tsm5.Click, AddressOf Menu_Click  \'为这个菜单选项添加点击事件
cms.Items.Add(tsm5)
nfi.ContextMenuStrip = cms

BaseMainform.Text = "投影点击"

addhandler basemainform.resize, addressof BaseMainform_Resize
baseMainform.visible=False
Forms("点击").open

--  作者:有点蓝
--  发布时间:2021/7/29 13:58:00
--  
调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错
--  作者:tcmhl
--  发布时间:2021/7/29 14:00:00
--  
问题我在自己电脑上面是正常的,换了一台就不行了
--  作者:有点蓝
--  发布时间:2021/7/29 14:07:00
--  
不管哪个电脑,添加测试代码到有问题的电脑调试

无法创建 ActiveX 组件。是系统组件有问题导致,检查一下用到了哪些第三方组件,然后没有注册