专栏首页VB小源码VBA 窗体增加最小化按钮

VBA 窗体增加最小化按钮




VBA 窗体增加最小化按钮!!



'全局声明

Option Explicit

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long '获取窗口样式

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '查找当前窗口句柄

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16) '设置窗口样式

Private Const WS_MINIMIZEBOX As Long = &H20000 '最小化

'==========================================================

'窗体UserForm的初始化

Private Sub UserForm_Initialize()

Dim hWndForm As Long

Dim IStyle As Long

hWndForm = FindWindow("ThunderDFrame", Me.Caption) '获取窗口句柄

IStyle = GetWindowLong(hWndForm, GWL_STYLE) '获取当前标题栏样式

IStyle = IStyle Or WS_MINIMIZEBOX '设置最小化按钮

SetWindowLong hWndForm, GWL_STYLE, IStyle '显示最小化按钮

End Sub



本文分享自微信公众号 - VB小源码(vb_xym),作者:巴西_prince

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2018-06-10

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • VB6 打开文件夹

    Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As...

    巴西_prince
  • CAD VBA测量两点间的距离

    point1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "点击第一点: ")

    巴西_prince
  • VB6 获取网页代码

    Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (By...

    巴西_prince
  • VBA使用API_01:读取文件

    VBA用到一定的时候,就会发现有些功能实现不了,被限制束缚了,这个时候一旦接触到了Windows API,就感觉又有了一片新天地。

    xyj
  • 基于电子海图的水面无人艇全局路径规划

      该论文已经在ICMIR2017会议上发表,附上springer的文献地址 Research and Implementation of Global Pat...

    waylon
  • 基于电子海图的水面无人艇全局路径规划

    Research and Implementation of Global Path Planning for Unmanned Surface Vehicle...

    waylon
  • VBA使用API_03:创建窗体

    使用Excel VBA要创建窗体非常的简单,直接插入一个用户窗体就可以了,VBA已经封装好了窗体,而且具有很多功能以及控件。

    xyj
  • 程序员内功心法【设计模式】之建造者模式

    建造者模式构建复杂对象就像造汽车一样,是一个一个组件一个一个步骤创建出来的,它允许用户通过制定的对象类型和内容来创建他们,但是用户并不需要知道这个复杂对象是如何...

    Java架构
  • Android优化之Hardware Layer

    项目中越来越多的动画,越来越多的效果导致了应用性能越来越低。该如何提升。 简介 在View播放动画的过程中每一帧都需要被重绘。如果使用view layer...

    xiangzhihong
  • Android优化之Hardware Layer

    项目中越来越多的动画,越来越多的效果导致了应用性能越来越低。该如何提升。 ###简介 在View播放动画的过程中每一帧都需要被重绘。如果使用view l...

    xiangzhihong

扫码关注云+社区

领取腾讯云代金券