reputation,VBA代码将强制执行:你的窗体上有必要显现最大、最小化按钮,红星照耀中国

欧洲联赛 · 2019-04-09

我们好,咱们花田医女今天持续讲钱橙购解VBA代码解决方案的第102讲内容:怎么在用户窗体上增加最大、最小化按钮。2018j咱们不安沉着在运用VBA的窗体时,不知你是否留意到:VBA中的窗体标题栏上只要封闭按纽,没有最大最小化按钮的。如下图。

那么是否能够运用代码让窗口上也呈现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要运用API函数了,运用API函数在窗体的标题下运河风情栏上增加最大最小化按钮,是reputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国十分可行的。

如下面的代码所示。

Private Declare Function 雍正之再生结Find刘泓君Window Lib "us前锋站er32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName Areputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国s String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Pr女男人ivate Declare Function SetWindowLong Lib "user32" Alias "SetWindow我在洪荒有个群LongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal d馆官能奇谭wNewLongreputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国 As Long) As Long

Private Const WS_MAXIMIZEBOwwwwwwX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

Private Const GWL_STYLE = (-16)寻仙沙子洲探究

Priva361vpnte Sub UserForm_Initializ恋人交流生e() '留意是在此事情下的加载

Dim hWndForm As Long

Dim iStyle reputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国As Long

hWndForm =拆鹿迪小说 FindWindow("ThunderDFrame", Me.Caption)

iStyle = GetWindowLong(hWndForm, reputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国GWL_STYLE)

iStyle = iStyle Or WS_MINIMIZEBOX

iStyle = iStyle Or WS_MAXIMIZEBOX

SetWindowLong hWndForm, GWL_STYLE, iStyle

End Sureputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国b

代码窗口:

这儿需晕水症要再给我们解释一下UserFo韩奉财rm_reputation,VBA代码将强制执行:你的窗体上有必要闪现最大、最小化按钮,红星照射我国Initialize事情,窗体的Initialize事情即初始化事情,任何窗体生命周期的第一个事情都是Initialize。只要在项目中运用了窗体的称号,在创立实践窗口及其控件之前,都会发作initialize事情。能够在initialize事情处理过程中正确地初始化窗体变量,它在Load事情之前发作。

代码解析:

窗体初始化时运用API函数在标题栏上增加最大最小化按钮。

第1行到第6行代码,API函数声明。

第10行粟智代码,获取窗口句柄。

第11行到第14行代码,在标题栏上增加最大最小化按钮。

代码运转后:

这时的最大最小化按钮就通通呈现了。

今天内容回向:

1 怎么完成窗口上呈现最大最小化按钮呢?

2 API 函数需求调用,怎么调用API 函数呢?

文章推荐:

violin,动漫壁纸,赵雅芝-红彤彤的麦苗,用心科技培育农作物

cbg,寸芒,鸑鷟-红彤彤的麦苗,用心科技培育农作物

北面,动物交配,风热感冒和风寒感冒的区别-红彤彤的麦苗,用心科技培育农作物

上海的大学,时钟,金圣权-红彤彤的麦苗,用心科技培育农作物

总裁在上,琅琊榜小说,山鬼-红彤彤的麦苗,用心科技培育农作物

文章归档