作者:乔山办公网日期:
返回目录:excel表格制作
这个不是窗体代码吧,应该是sheet里面的代码吧
ATL+F11打开编辑百器,比如要把这个代码给sheet2用就点到sheet2的代码窗口里加度入代码就可以内了
,直接复制粘贴就可以了。
你的这段代码应该是sheet内容发生变容化的时候会触发一定的事件。
DoCmd.Minimize 最小化当前窗口
可以不用调用API函数,最小化,最大化等窗体的所有操作都可以用DOCMD的对象的各种方法来实现的。而且语句都很简单。
UserForm1.Show 1 就是窗体只能有焦点的
UserForm1.Show 0 现在就可以在窗体和excel间互换了
需要嗲用API,例子代码:
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long '获取窗口样式API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '查找当前窗口句柄e69da5e6ba90e799bee5baa6335API
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) '设置窗口样式API
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