“UserCode”的类型初始值设定项引发异常。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：“UserCode”的类型初始值设定项引发异常。