VB最小化到左下角的代码是?
答案:2 悬赏:30 手机版
解决时间 2021-08-20 11:38
- 提问者网友:美人性情
- 2021-08-19 18:16
VB最小化到左下角的代码是?
最佳答案
- 五星知识达人网友:一叶十三刺
- 2021-08-19 18:58
把Form的ShowInTaskbar设为False即可.
全部回答
- 1楼网友:山君与见山
- 2021-08-19 20:25
可以用API来实现,不过还是采用微软封装好的控件来实现比较方便,不过该控件并不在VB安装目录中,需要找到VB的安装盘(不是安装以后的目录)的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目录,将Systray目录拷到硬盘上面并编译为ocx控件(编译前记得要先把只读属性修改掉,有时候会提示要先保存,直接保存。),
然后在自己的VB程序中添加改控件(工程-部件-浏览)。
最好把这个ocx放到C:\WINDOWS\system32。如果需要注册,就在开始-运行里输入:regsvr32 C:\WINDOWS\system32\SysTray.ocx
改控件的属性InTray属性用来设置是否显示在托盘中,True为显示在托盘,False为不显示。
TrayIcon属性是在托盘中显示的图标式样。
TrayTip属性是鼠标移到改控件上面显示的提示文字。
如果要使程序最小化时显示到托盘,如下:
Private Sub Form_Resize()If Me.WindowState = vbMinimized Then cSysTray1.InTray = True
Me.Visible = False
End If
End Sub 点击托盘图标后让程序显示出来,如下:
Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
Me.WindowState = vbNormal
Me.Visible = True
cSysTray1.InTray = False
Me.SetFocus
End Sub
看看,对不对吧
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯