以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  找不到字段:“UserCode.nfi”  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170978)
--  作者：tcmhl
--  发布时间：2021/8/13 8:49:00
--  找不到字段:“UserCode.nfi”
RT 之前是好的，某次打开项目突然不行了 求助
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：项目,AfterOpenProject
详细错误信息：
找不到字段:“UserCode.nfi”。


AfterOpenProject代码如下：

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

BaseMainform.Text = "main"
addhandler basemainform.resize, addressof BaseMainform_Resize




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

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


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


全局：

\'定义通知区域小图标
Public Dim nfi As New System.Windows.Forms.NotifyIcon
Public wstate = 2

\'\'图标双击事件\'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
   If forms("主窗口").opened  Then
     forms("主窗口").close
   Else
     basemainform.WindowState = 1
     BaseMainForm.Opacity = 0
     forms("主窗口").open
   End If
End Sub



Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    \'If sender.WindowState = 1 Then
        BaseMainForm.Opacity = 0
        basemainform.ShowInTaskBar = False
   \' Else
     \'   BaseMainForm.Opacity = 1
     \'   basemainform.ShowInTaskBar = True
   \' End If
End Sub


\'定义右键菜单
Public Dim cms As New System.Windows.Forms.ContextMenuStrip

\'菜单按钮点击事件
Public Sub Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Select Case sender.Text
        Case "浮窗"
        basemainform.WindowState = 1
        BaseMainForm.Opacity = 0
        forms("主窗口").open()
        Case "设置"
        forms("主窗口").close()
        basemainform.WindowState = wstate
        BaseMainForm.Opacity = 1 
        Tables("详细信息").Filter = ""
        Tables("详细信息").cols("参数类型").Visible = True
        Case "退出"
        Syscmd.Project.Exit(False)
    End Select
End Sub
--  作者：有点蓝
--  发布时间：2021/8/13 8:52:00
--  
全局代码定义全局变量不要加Dim

Public Dim nfi As New System.Windows.Forms.NotifyIcon
改为
Public nfi As New System.Windows.Forms.NotifyIcon

其他的自行改