- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [公告]如何可以做到按快捷键将窗体缩小到任务栏右下角 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99769)
-- 发布时间：2017/4/26 15:33:00
-- [公告]如何可以做到按快捷键将窗体缩小到任务栏右下角
1、如何可以做到按快捷键Ctrl+ALT+F2 （或点击图标）将窗体缩小到任务栏右下角（如QQ一样）。
2、点击缩小的任务栏的图标，打开指定窗体。
-- 发布时间：2017/4/26 15:38:00
--
1、http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52509&skin=0
2、你问过 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98896&skin=0
-- 发布时间：2017/4/27 10:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打卡提醒1 (1).table |
老师，第一个问题在你的提示下完成了，
第二个问题，我把Default的全局代码改为以下，
1）如何在自定义函数中调用ICON_DoubleClick
2）无法打开窗口1
\'定义通知区域小图标
Public Dim nfi As New System.Windows.Forms.NotifyIcon
\'图标双击事件\'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
\'MessageBox.Show(BaseMainform.Visible)
If BaseMainform.Visible = True Then
BaseMainform.Visible = False
Else
Forms("窗口1").open
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)
If sender.Text = "退出" Then
Syscmd.Project.Exit(False)
End If
End Sub
-- 发布时间：2017/4/27 10:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:打卡提醒1 (1).table |
-- 发布时间：2017/4/27 11:02:00
--
老师，这样会把主界面都显示出来，如何做到只显示窗口1
-- 发布时间：2017/4/27 11:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:打卡提醒1 (1).table |