作者:乔山办公网日期:
返回目录:excel表格制作
虽然过程f()是用public定义的,但是Static a, b的作用抄域只是在袭f()这个sub中,其他过程是无法百访问到的。
如果确实需要的话你可以将a,b的声明用度public放在通用:
public a,b
Public Sub f()
a = 3
b = 4
UserForm1.Show
End Sub
或者你可以将声明放在窗体中知
而变量的道初始化可以放在窗体的Load事件中
private a,b
private sub form1_load()
a=3
b=4
end sub
PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode1ThenCancel=1'禁用窗知体道右上角的版“×”权EndSub
需要嗲用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 '查找当前窗口句柄API
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的初始e79fa5e98193e78988e69d83335化
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
在这个事件下
Activate