玩酷之家

 找回密码
 立即注册
查看: 464|回复: 0

【VB.NET】无边框窗口点击任务栏切换最小化

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2020-2-6 10:06:52 | 显示全部楼层 |阅读模式
  1.     Protected Overrides ReadOnly Property CreateParams() As CreateParams
  2.         '点击任务栏实现最小化与还原
  3.         Get
  4.             Const WS_MINIMIZEBOX As Integer = &H20000
  5.             Dim cp As CreateParams = MyBase.CreateParams
  6.             cp.Style = cp.Style Or WS_MINIMIZEBOX
  7.             ' 允许最小化操作  
  8.             Return cp
  9.         End Get
  10.     End Property
复制代码


湖边的稻草 1059 Studio
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-4 15:43 , Processed in 1.092002 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表