[已解决]如何设置使窗体无关闭按钮宽高不发生变化

向前650809

各位网友好。对窗体如何设置，可达到如下效果：1窗体无关闭按钮，2窗体运行时，不能改变大小（宽高不让变化）。请指导，谢谢。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-5 21:00

1. Private Declare Function FindWindow Lib "user32" Alias _
   
2.     "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
3. Private Declare Function SetWindowLong Lib "user32" Alias _
   
4.     "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
5. '窗体初始化
   
6. Private Sub UserForm_Initialize()
   
7.     '将窗体设置为全部按钮都没有，不能改变大小
   
8.     SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这个貌似是API来实现的。

hwc2ycy

http://amulee.bokee.com/6950404.html
这里有相关的说明。

hwc2ycy

setwindowlong的第二个参数index值说明如下：
GWL_EXSTYLE         -20        设定一个新的扩展风格。
GWL_HINSTANCE -6        设置一个新的应用程序实例句柄。
GWL_ID        -12            设置一个新的窗口标识符。
GWL_STYLE  -16           设定一个新的窗口风格。
GWL_USERDATA  -21         设置与窗口有关的32位值。每个窗口均有一个由创建该窗口的应用程序使用的32位值。
GWL_WNDPROC          -4        为窗口过程设定一个新的地址。

hwc2ycy

1. Private Declare Function FindWindow Lib "user32" Alias _
   
2.     "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
3. Private Declare Function SetWindowLong Lib "user32" Alias _
   
4.     "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
5. '窗体初始化
   
6. Private Sub UserForm_Initialize()
   
7.     '将窗体设置为全部按钮都没有，不能改变大小
   
8.     SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000
   
9. End Sub

复制代码

向前650809

运行时，让用鼠标也不能拉动大小 ，可以设置吗

hwc2ycy

向前650809 发表于 2014-4-5 21:26
运行时，让用鼠标也不能拉动大小 ，可以设置吗

你自己试了没？
没有的话就先试下吧。
上面的说明已经很清楚了。

hwc2ycy

demo.rar (11.5 KB, 下载次数: 18)

2014-4-6 07:07 上传

点击文件名下载附件