-
VBA 屏蔽窗口的“关闭”按钮
2018-12-07 10:50:59插入窗体,输入代码如下: Option Explicit ...'---此模块演示了禁用窗体关闭按钮--- '**************************************** '以下声明API函数 #If Win64 Then '64位 '查找窗口 Private Declare PtrS...插入窗体,输入代码如下:
Option Explicit '**************************************** '---此模块演示了禁用窗体关闭按钮--- '**************************************** '以下声明API函数 #If Win64 Then '64位 '查找窗口 Private Declare PtrSafe Function FindWindow _ Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) _ As LongPtr '取得窗体系统菜单 Private Declare PtrSafe Function GetSystemMenu _ Lib "user32" ( _ ByVal hwnd As LongPtr, _ ByVal bRevert As Long) _ As LongPtr '删除菜单项 Private Declare PtrSafe Function DeleteMenu _ Lib "user32" ( _ ByVal hMenu As LongPtr, _ ByVal nPosition As Long, _ ByVal wFlags As Long) _ As Long '重绘窗体标题栏 Private Declare PtrSafe Function DrawMenuBar _ Lib "user32" ( _ ByVal hwnd As LongPtr) _ As Long #Else '32位 '查找窗口 Private Declare Function FindWindow _ Lib "User32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) _ As Long '取得窗体系统菜单 Private Declare Function GetSystemMenu _ Lib "User32" ( _ ByVal Hwnd As Long, _ ByVal bRevert As Long) _ As Long '删除菜单项 Private Declare Function DeleteMenu _ Lib "User32" ( _ ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) _ As Long '重绘窗体标题栏 Private Declare Function DrawMenuBar _ Lib "User32" ( _ ByVal Hwnd As Long) _ As Long #End If '以下定义常数 Private Const MF_BYCOMMAND = &H0& Private Const SC_CLOSE = &HF060 '以下下定义变量 #If Win64 Then '64位 Private FHwnd As LongPtr Private hMenu As LongPtr #Else Private FHwnd As Long Private hMenu As Long #End If ''关闭按钮点击 'Private Sub BtCancel_Click() ' Unload Me 'End Sub ''恢复按钮点击 'Private Sub BtResume_Click() ' '恢复原菜单 ' hMenu = GetSystemMenu(FHwnd, 1) ' '重绘窗体标题栏 ' DrawMenuBar FHwnd 'End Sub '************************************** '---------------主程序----------------- '************************************** Private Sub UserForm_Initialize() '查找窗口句柄 FHwnd = FindWindow("ThunderDFrame", Me.Caption) '取得窗体系统菜单 hMenu = GetSystemMenu(FHwnd, 0) '删除系统菜单中关闭菜单 DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND '重绘窗体标题栏 DrawMenuBar FHwnd End Sub
-
access vba 禁止右键_利用VBA禁用或启用Access主程序的关闭按钮
2021-01-17 17:06:49正 文:在利用ACCESS进行程序开发时,有时为了避免用户随意将程序关闭,需要临时禁用主程序窗口的关闭按钮,我们可以利用下面的代码实现。在VBA编程器中新建下标准模块,把下面的VBA代码粘贴进去并保存,这时只要在...时 间:2017-12-03 13:22:58
作 者:摘 要: 利用VBA禁用或启用Access主程序的关闭按钮。
正 文:
在利用ACCESS进行程序开发时,有时为了避免用户随意将程序关闭,需要临时禁用主程序窗口的关闭按钮,我们可以利用下面的代码实现。
在VBA编程器中新建下标准模块,把下面的VBA代码粘贴进去并保存,这时只要在需要的时候调用AccessCloseButtonEnabled( )函数即可。如:禁用关闭按钮就这样调用函数Call AccessCloseButtonEnabled(False);在需要启用关闭按钮时就这样调用Call AccessCloseButtonEnabled(True)。
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
On Error Resume Next
Const clngCommand As Long = &H0&
Const clngGrayed As Long = &H1&
Const clngClose As Long = &HF060&
Dim lngWindow As Long
Dim lngMenu As Long
Dim lngFlags As Long
lngWindow = Application.hWndAccessApp
lngMenu = GetSystemMenu(lngWindow, 0)
If pfEnabled Then
lngFlags = clngCommand And Not clngGrayed
Else
lngFlags = clngCommand or clngGrayed
End If
Call EnableMenuItem(lngMenu, clngClose, lngFlags)
End Sub
'禁用关闭按钮
'Call AccessCloseButtonEnabled(False)
'
'启用关闭按钮
'Call AccessCloseButtonEnabled(True)
附 件:
Access软件网官方交流QQ群(群号:39785885)
Access源码网店
-
asp.net 窗体关闭事件_VBA代码将强制执行:你的窗体上必须显示最大、最小化按钮...
2020-11-25 09:59:28我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数...大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。
那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数了,利用API函数在窗体的标题栏上添加最大最小化按钮,是非常可行的。
如下面的代码所示。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Sub UserForm_Initialize() '注意是在此事件下的加载
Dim hWndForm As Long
Dim iStyle As Long
hWndForm = FindWindow("ThunderDFrame
-
electron browserwindow 最大化按钮和最小化按钮_VBA代码将强制执行:你的窗体上必须显示最大、最小化按钮....
2021-01-14 20:25:11我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数...大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。
那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数了,利用API函数在窗体的标题栏上添加最大最小化按钮,是非常可行的。
如下面的代码所示。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Sub UserForm_Initialize() '注意是在此事件下的加载
Dim hWndForm As Long
Dim iStyle As Long
hWndForm = FindWindow("ThunderDFrame
-
给VBA窗体增加最大化、最小化窗体按钮
2020-07-13 21:05:56VBA窗体默认只有一个关闭按钮,没有最大化和最小化按钮,下面的代码可以方便的为窗体增加最大、最小化按钮,让窗口使用更方便。 调用方法 窗体最大最小化 Me 窗体最大化 Me 函数代码 '窗体的最大最小化 Public ... -
java中如何屏蔽excel下拉框的alert error_VBA关闭Java警报弹出窗口,名称为“来自网页的消息”...
2021-03-13 04:53:36如何点击确定按钮tru VBA?任何帮助请...当我选择触发警报的项目时,我认为这是网页中的代码。这就是我在HTML脚本中看到的:function onUpdatedShowAlertTS(varControl) {if (varControl == "ddlProjectStatus")... -
VBA入门到进阶常用知识代码总结53
2020-02-17 22:21:05第53集 窗体与控件基础 251、 窗体的使用 1、窗体的插入和启用 插入菜单 --用户窗体 ...手工点关闭按钮 用代码执行关闭 详见窗体 4、窗体的显示设置 A、窗体的标题 设置Captain的值 B、窗体的背景色 设置Back... -
asp.net 窗体关闭事件_VBA学习笔记53:窗体与控件基础
2020-11-22 21:49:22学习资源:《Excel VBA从入门到进阶》第53集 by兰色幻想一、窗体的使用窗体的插入和启用 ①插入菜单--用户窗体 ②工程窗口中右键--... 窗体的关闭 ①手工点关闭按钮 ②用代码执行关闭 例:单击窗体时关闭窗体。Priv... -
VBA作业
2018-05-10 16:56:25【宏的录制】1、在Excel中调出“开发...按钮关闭“录制新宏”对话框,开始进行宏的录制,如图所示4、点击“代码”组中的“停止录制”按钮,如图所示【熟悉VBA的编程环境——VBE】启动Excel,切换到VBE窗口,如图所示... -
利用API对VBA窗体设置
2010-03-08 10:04:00很多时候有人问到,怎么样弄使得VBA中的关闭窗口的按钮消失啊。...以下代码添加到窗体中,可以隐藏窗体的关闭按钮。 API声明Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal -
Excel_VBA教程
2014-09-22 11:36:3426了解代码窗口 44 27 VB编辑器里的其它窗口 46 28接下来…… 46 第二章 VBA 第一步 46 1了解指令,模块和过程 47 2 VBA工程命名 47 3模块重命名 48 4从其它工程调用过程 49 5了解对象,属性和方法 50 6学习对象,... -
VBA常用技巧
2014-12-21 16:39:28技巧92 移除工作表的最小最大化和关闭按钮 12 技巧93 在工具栏上添加下拉列表框 12 技巧94 屏蔽工作表的复制功能 12 技巧95 禁用工具栏的自定义 12 技巧96 屏蔽所有的命令栏 12 技巧97 恢复Excel的命令栏 12 第8章 ... -
python3.9+selenium+IE11无法点击链接,命令窗口未关闭前,无法手动操作IE
2021-01-29 14:07:56关闭cmd窗口,无论是按钮还链接均可正常点击并进入新窗口 <p>5.求大佬指点 selenium无法点击按钮跳转到新页面 问题出在什么地方,当如何解决?谢谢 另,本人用excel vba的seleniumBasic... -
VBA编程技巧大全
2013-08-05 09:03:19技巧92 移除工作表的最小最大化和关闭按钮 218 技巧93 在工具栏上添加下拉列表框 219 技巧94 屏蔽工作表的复制功能 221 技巧95 禁用工具栏的自定义 222 技巧96 屏蔽所有的命令栏 225 技巧97 恢复Excel的命令栏 226 ... -
.net 窗体清除上次显示的内容_VBA学习笔记53:窗体与控件基础
2020-12-30 03:32:46学习资源:《Excel VBA从入门到进阶》第53集 by兰色幻想一、窗体的使用窗体的插入和启用 ①插入菜单--用户窗体 ②工程窗口中右键--... 窗体的关闭 ①手工点关闭按钮 ②用代码执行关闭 例:单击窗体时关闭窗体。Priv... -
Excel VBA(08)窗体和控件
2020-04-29 16:36:58代码关闭是 unload testform方法 4、显示设置 窗体标题:caption 背景色:backcolor 背景图片:picture,代码里面可以使用loadpicture()方法进行加载 属性窗口里面可以查看 5、位置大小 to... -
ExcelVBA程序设计.doc
2011-04-05 21:32:5126了解代码窗口 44 27 VB编辑器里的其它窗口 46 28接下来…… 46 第二章 VBA 第一步 46 1了解指令,模块和过程 47 2 VBA工程命名 47 3模块重命名 48 4从其它工程调用过程 49 5了解对象,属性和方法 50 6学习对象,... -
Excel VBA程序设计.doc
2009-07-06 22:16:1226了解代码窗口 52 27 VB编辑器里的其它窗口 54 28接下来…… 55 第二章 VBA 第一步 55 1了解指令,模块和过程 55 2 VBA工程命名 55 3模块重命名 56 4从其它工程调用过程 57 5了解对象,属性和方法 58 6学习对象,... -
Excel_VBA程序设计.pdf
2009-08-31 23:05:2026了解代码窗口 52 27 VB编辑器里的其它窗口 54 28接下来…… 55 第二章 VBA 第一步 55 1了解指令,模块和过程 55 2 VBA工程命名 55 3模块重命名 56 4从其它工程调用过程 57 5了解对象,属性和方法 58 6学习对象,... -
Excel VBA 基础教程
2019-01-01 18:51:067 关闭........................................................................ 7 其他文件函数................................................................ 7 二、VISUAL BASIC程序设计网络教学.......... -
AutoCAD VBA二次开发教程.PDF
2015-07-01 12:31:25在使用WindowsAPI方面,提供了去掉对话框的关闭按钮和添加快捷菜单的实例。 第14章介绍在VBA中创建数据库应用程序的方法。由于ADO技术是比较理想的一种技术,因此本章着重介绍ADO和SQL语句结合开发数据库应用程序。... -
Excel VBA程序设计 CHM格式 带全文检索
2008-11-26 23:40:0526了解代码窗口 43 27 VB编辑器里的其它窗口 45 28接下来…… 45 第二章 VBA 第一步 45 1了解指令,模块和过程 45 2 VBA工程命名 46 3模块重命名 47 4从其它工程调用过程 48 5了解对象,属性和方法 49 6学习对象,... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2402067关闭窗口 03001通过索引引用工作表 03002通过名称引用工作表 03003通过Sheets集合引用工作表 03004引用当前活动工作表 03005引用第一个工作表 03006引用最后一个工作表 03007引用所有的工作表 03008引用指定的... -
中文版Excel.2007高级VBA编程宝典 1/2
2012-04-06 16:00:167.6 使用“代码”窗口 7.6.1 窗口的最小化和最大化 7.6.2 VBA代码的存储 7.6.3 VBA代码的输入 7.7 VBE环境的定制 7.7.1 使用“编辑器”选项卡 7.7.2 使用“编辑器格式”选项卡 7.7.3 使用“通用”... -
中文版Excel.2007高级VBA编程宝典 2/2
2012-04-06 16:41:387.6 使用“代码”窗口 7.6.1 窗口的最小化和最大化 7.6.2 VBA代码的存储 7.6.3 VBA代码的输入 7.7 VBE环境的定制 7.7.1 使用“编辑器”选项卡 7.7.2 使用“编辑器格式”选项卡 7.7.3 使用“通用”... -
EXCEL编程VBA高级教程
2015-04-16 11:40:55关闭........................................................................7 其他文件函数................................................................7 二、VISUALBASIC程序设计网络教学............... -
颠倒Excel数据行顺序
2017-07-27 17:23:14如下图所示,要求将第3行和第2... 按组合键,调出VBE窗口,在代码窗口中输入以下代码: 关闭VBE窗口返回工作表,在【开发工具】选项卡中,单击【插入】,选择【窗体按钮】,为插入的按钮指定宏,然后点击按钮就可以了。 -
如何把WORD编号转换为普通文本?
2016-08-04 16:03:10打开WORD,依次点击:工具-宏-宏-在“宏名”框内输入宏名(好比:NumToTxt)-单击“创建”按钮 创建一段如下的代码 ...保存将宏保存到Normal模板,然后关闭VBA窗口并返回Word。 打开你要处理的WORD -
把excel表格批量转为csv
2018-05-27 11:11:39ALT+F11打开VBA编辑窗口,在左边列表框点鼠标右键选插入模块粘贴以下代码后,关闭VBA编辑窗口,在工作表页面按ALT+F8 点选转换CSV,按回车执行或点击执行按钮.该工作薄里所有的工作表都保存在这个工作薄的路径下.文件名...