主题：如何让 windows 任务栏图标隐藏

老师 我用

 

If  Forms("mainform").baseform.windowstate = 1 Then
Forms("mainform").baseform.windowstate = 0

else

 

Forms("mainform").baseform.windowstate = 1

end if

 

进行最大最小化

 

 

现在最小化的时候 窗体 会在左下角 有个最小化窗口

 

能否 让  窗体最小化的时候 完全看不见？？

老师

 

在 afterload

 

加载了  小框框！

 

baseMainform.visible=false

 

也没效。

 

还是最小化到左下角

此主题相关图片如下：无标题.jpg

测试过 也不行的！

 

老师 我测试过

 

用

 

if forms（"A").baseform.visible = False then

forms（"A").baseform.visible = true

else

forms（"A").baseform.visible = False

end if

 

第一次进行 主界面会跳出来

 

加上

 

if forms（"A").baseform.visible = False then

baseMainform.visible=false

forms（"A").baseform.visible = true

else

baseMainform.visible=false

forms（"A").baseform.visible = False

end if

或者 在项目加载时就

baseMainform.visible=false

也没有用

 

用 hide 判断

forms（"A").baseform.hide = true

提示表达式不产生值，测试不到

老师 测试了  第一次 隐藏的时候 ， 总是会有一个 窗口弹出来 ，添加一个 模式窗体， 变成 这么模式窗体 弹出来。。。。

 

就算隐藏这个窗体也没有用。

 

你能试下么

 

我试过 在  窗体 的计时器 上

加个

这个可以操作，

If basemainform.Visible = True Then
basemainform.Visible = False
e.Form.TimerEnabled = False
End If

还是会有 一个主窗体 一瞬间显示，

 

还有这样，对系统 运行会不会变慢

好了 多谢老师给的思路，

 

自己想不到。。。。。。。。

老师

 

问下

 

用模式窗体做主显示窗体，

 

在任务栏 生成了 一个图标，  

 

如何 通过 单击 图标 进行 最大最小化？

现在是点击了  能够 显示正常， 但不能切换为最小化。

是点击了显示，  但再点击不能最小化