| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]把FT程序 （发布后），隐藏到WIN7任务栏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101979) |
| -- 作者：yancheng -- 发布时间：2017/6/11 10:02:00 -- [求助]把FT程序 （发布后），隐藏到WIN7任务栏 QQServer.ServerIp = e.Form.Controls("txtIP").Value \'指定IP地址 QQServer.ServerPort = e.Form.Controls("txtPort").Value \'指定端口 QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value \'指定心跳时间 QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value \'指定心跳超时时间 QQServer.Start() \'启动QQServer ShowAppWindow("中电致远QQServer.exe",4) 在QQserver的启动按钮写的。 [此贴子已经被作者于2017/6/11 11:09:00编辑过]
|
| -- 作者：kaituozhe -- 发布时间：2017/6/11 10:26:00 -- 你是怎么做，可以请教一下吗？ |
| -- 作者：yancheng -- 发布时间：2017/6/11 11:11:00 -- 呵呵，是求助贴 。 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=34553 我用上面这个帖子的，改了一下。 但是，打开项目后，项目还是要弹开。 我想的是，能直接把QQ服务器，打开，就放在：WIN7 右下角，图标。就OK 了。系统 不弹出来。点图标后，-菜单一，弹出服务器，设置窗口。
|
| -- 作者：yancheng -- 发布时间：2017/6/11 11:14:00 -- AfterOpenProject项目的 AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick \'为通知区域图标添加双击事件 Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("菜单一",GetImage(projectpath & "\\BrowseMode.ico")) \'定义一个菜单选项(带图标) AddHandler tsmi1 .Click, AddressOf Menu1_Click \'为这个菜单选项添加点击事件 \'Dim tsmi2 As new System.Windows.Forms.ToolStripMenuItem("菜单二") \'定义一个菜单选项 \'AddHandler tsmi2 .Click, AddressOf Menu1_Click \'为这个菜单选项添加点击事件 \'Dim zcd1 As new System.Windows.Forms.ToolStripMenuItem("子菜单1") \'定义一个菜单选项 \'Dim zcd2 As new System.Windows.Forms.ToolStripMenuItem("子菜单2") \'定义一个菜单选项 \'tsmi2.DropDownItems.Add(zcd1) \'把 "子菜单1" 添加为 "菜单二" 的子菜单 \'tsmi2.DropDownItems.Add(zcd2) \'把 "子菜单2" 添加为 "菜单二" 的子菜单 \'Dim tsmi3 As new System.Windows.Forms.ToolStripMenuItem("菜单三") \'定义一个菜单选项 \'AddHandler tsmi3 .Click, AddressOf Menu1_Click \'为这个菜单选项添加点击事件 \'Dim ztsmi As new System.Windows.Forms.ToolStripMenuItem("一级子菜单1") \'定义一个菜单选项 \'AddHandler ztsmi .Click, AddressOf Menu1_Click \'为这个菜单选项添加点击事件 \'Dim ejzcd As new System.Windows.Forms.ToolStripMenuItem("二级子菜单1") \'定义一个菜单选项 \'ztsmi.DropDownItems.Add(ejzcd ) \'把"二级子菜单1" 添加为 "一级子菜单1" 的子菜单 \'tsmi3.DropDownItems.Add(ztsmi) \'把 "一级子菜单1" 添加为 "菜单三" 的子菜单 cms.Items.Add(tsmi1) \'为全局变量CMS 也就是右键菜单添加 "菜单一" \'cms.Items.Add(tsmi2) \'为全局变量CMS 也就是右键菜单添加 "菜单二" \'cms.Items.Add(tsmi3) \'为全局变量CMS 也就是右键菜单添加 "菜单三" nfi.ContextMenuStrip = cms nfi.Text = "我是中电致远QQSever" \'鼠标移上去显示的文本 nfi.Icon = new Icon(ProjectPath & "\\001.ico") \'图标地址 nfi.Visible = True \'设置为显示 \'\' \'Forms("QQServer").Open() QQServer.ServerIp = "192.168.40.102" \'指定IP地址 QQServer.ServerPort ="52177" \'指定端口 QQServer.HeartbeatInterval ="30" \'指定心跳时间 QQServer.HeartbeatTimeout ="100" \'指定心跳超时时间 QQServer.Start() \'启动QQServer nfi.Ballo \'需要弹出的提示 nfi.ShowBalloonTip(1000) \'提示显示的事件(毫秒) baseMainform.visible=False |
| -- 作者：有点色 -- 发布时间：2017/6/11 14:49:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=99769&skin=0
|
| -- 作者：yancheng -- 发布时间：2017/6/11 15:49:00 -- 项目事件
AfterOpenProject
AddHandler
nfi.DoubleClick, AddressOf Icon_DoubleClick \'为通知区域图标添加双击事件 nfi.Text =
"QQserver" \'鼠标移上去显示的文本 nfi.Icon = New
Icon(ProjectPath & "\\001.ico") \'图标地址 nfi.Visible = True
\'设置为显示
Dim tsm1 As New
System.Windows.Forms.ToolStripMenuItem("显示主窗体",GetImage(ProjectPath
& "\\BrowseMode.ico")) \'定义一个菜单选项(带图标) AddHandler
tsm1.Click, AddressOf Menu_Click \'为这个菜单选项添加点击事件 cms.Items.Add(tsm1) nfi.ContextMenuStrip
= cms
Dim tsm2 As New
System.Windows.Forms.ToolStripMenuItem("退出",GetImage(ProjectPath
& "\\BrowseMode.ico")) \'定义一个菜单选项(带图标) AddHandler
tsm2.Click, AddressOf Menu_Click \'为这个菜单选项添加点击事件 cms.Items.Add(tsm2) nfi.ContextMenuStrip
= cms
BaseMainform.Text
= "QQserver" addhandler
basemainform.resize, addressof BaseMainform_Resize
QQServer.ServerIp
= "192.168.40.102" \'指定IP地址 QQServer.ServerPort
="52177" \'指定端口 QQServer.HeartbeatInterval
="30" \'指定心跳时间 QQServer.HeartbeatTimeout
="100" \'指定心跳超时时间 QQServer.Start() \'启动QQServer BaseMainForm.Opacity = 0 basemainform.ShowInTaskBar = False 打开时，我想让他只：显示右侧的图片，不弹开系统。怎么搞 |
| -- 作者：有点色 -- 发布时间：2017/6/11 16:16:00 -- 方法一：加一个模式窗口，弹出这个模式窗口，就不会弹出系统界面了；
方法二：先显示再隐藏 AfterOpenProject 事件，
basemainform.visible = True
|