Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Const MF_BYCOMMAND = &H0&
Private Const SC_MAXIMIZE = &HF030
Private Const SC_RESTORE = &HF120
Private Const SC_SIZE = &HF000
Private Const SC_MOVE = &HF010
Private Const SC_MINIMIZE = &HF020
Private Const SC_CLOSE = &HF060
'以上代码放在声明段
Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
'禁止还原按钮
Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
'禁止改变大小
Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
'禁止最大化
Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
'禁止最小化
Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
'禁止关闭
Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
'禁止移动
Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
如果要用 API 函数去实现上述操作应该使用 SENDMESSAGE 函数
Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060& '关闭窗体
Public Const SC_MINIMIZE = &HF020& '最小化窗体
Public Const SC_MAXIMIZE = &HF030& '最大化窗体
Public Const SC_RESTORE = &HF120& '恢复窗体大小
Public Const WM_SETTEXT = &HC '设置窗体的Caption
Public Const WM_GETTEXT = &HD '取得窗体的caption
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'以上放入声明段
Private Sub Command_Click(Index As Integer)
Dim S As String
S = String(80, Chr(0))
Select Case Index
Case 0
SendMessage Application.hWndAccessApp, WM_GETTEXT, Len(S), ByVal S '读出窗体的Caption
'在用户自己的窗体中加一个文本框，用于操作ACCESS主窗体标题
Text1.Text = Left(S, InStr(S, Chr(0)) - 1)
Case 1
'因为Text1.text属于Variant类型，所以一定先要用CStr把它转换成字符串
SendMessage Application.hWndAccessApp, WM_SETTEXT, 0, ByVal CStr(Text1.Text) '设置窗体的Caption
Case 2
SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_MAXIMIZE, ByVal 0&'使窗体最大化
Case 3
SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0&'使窗体最小化
Case 4
SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_RESTORE, ByVal 0&'使窗体恢复原来的大小
Case 5
SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&'关闭窗体
End Select
End Sub
|
