请教:如何单独屏闭窗口的最大化按钮,关闭和最小化按钮可以正常使用,代码怎么写,谢谢
解决方案 »
- 请问如何实现当客户关闭EXCEL文件时自动保存本文件呢?
- 公司使用一J2EE开发的成品B/S管理系统,所以人都感觉运行它后就很慢
- 关于VB中文取名的问题
- 高分求教!!用TypeLib Information封装好多个类之后,如何根据TypeLibInfo中的信息调用该类中的函数?
- 有人能说说datarepeater控件的用法吗?
- 那里有SuperCapture 抓图用的?
- vb 窗体在任务栏效果
- 医院报表令人头痛的问题,up者有分
- 谁有Crystal Report 4.6?
- 见鬼了!见鬼了!
- VB中如何设置某一个菜单的快捷键为ctrl+shift+l啊,默认好象只能设置哪个组合键啊?
- vb如何获取网页数据?
MinButton = True
否则要调用 API.
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongConst GWL_STYLE = (-16)
Const WS_MAXIMIZEBOX = &H10000Private Sub Form_Load()
Dim tmp As Long
tmp = GetWindowLong(Me.hwnd, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, tmp Xor WS_MAXIMIZEBOX
End Sub当然也可以直接在对象编辑界面上将 MaxButton 属性设置为 False.
在设计程序界面时候
MaxButton=true 表示最大可用
=false 表示最大不可用
MinButton=true 表示最小可用
=false 表示最小不可用
这两个属性必须在设计阶段在属性里设置 不能通过代码设置代码可以控制程序最大\最小\还原状态
Me.WindowState = 0 能程序状态还原
Me.WindowState = 1 能把窗体最小化
Me.WindowState = 2 能把窗体最大化单独设置 form 的 borderStyle 属性 能选择几种不同的窗体类型 有些是不含最大 最小按纽的 这个也必须在设计时修改