精华内容
下载资源
问答
  • 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代码粘贴进去并保存,这时只要在...

    时 间: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源码网店

    展开全文
  • 我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。那么是否可以利用代码窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数...

    大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。

    15895010c028406fd9af1c3bc3d5d3e2.png

    那么是否可以利用代码让窗口上也出现类似于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的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。那么是否可以利用代码窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数...

    大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。

    cf378438514e57d0e0906039ba01d420.png

    那么是否可以利用代码让窗口上也出现类似于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窗体默认只有一个关闭按钮,没有最大化和最小化按钮,下面的代码可以方便的为窗体增加最大、最小化按钮,让窗口使用更方便。 调用方法 窗体最大最小化 Me 窗体最大化 Me 函数代码 '窗体的最大最小化 Public ...
  • 如何点击确定按钮tru VBA?任何帮助请...当我选择触发警报的项目时,我认为这是网页中的代码。这就是我在HTML脚本中看到的:function onUpdatedShowAlertTS(varControl) {if (varControl == "ddlProjectStatus")...
  • 第53集 窗体与控件基础 251、 窗体的使用 1、窗体的插入和启用 插入菜单 --用户窗体 ...手工点关闭按钮代码执行关闭 详见窗体 4、窗体的显示设置 A、窗体的标题 设置Captain的值 B、窗体的背景色 设置Back...
  • 学习资源:《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:34
    26了解代码窗口 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章 ...
  • 关闭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 ...
  • 学习资源:《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:51
    26了解代码窗口 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:12
    26了解代码窗口 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:20
    26了解代码窗口 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:06
    7 关闭........................................................................ 7 其他文件函数................................................................ 7 二、VISUAL BASIC程序设计网络教学..........
  • 在使用WindowsAPI方面,提供了去掉对话框的关闭按钮和添加快捷菜单的实例。 第14章介绍在VBA中创建数据库应用程序的方法。由于ADO技术是比较理想的一种技术,因此本章着重介绍ADO和SQL语句结合开发数据库应用程序。...
  • 26了解代码窗口 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:24
    02067关闭窗口 03001通过索引引用工作表 03002通过名称引用工作表 03003通过Sheets集合引用工作表 03004引用当前活动工作表 03005引用第一个工作表 03006引用最后一个工作表 03007引用所有的工作表 03008引用指定的...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     7.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:38
     7.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:39
    ALT+F11打开VBA编辑窗口,在左边列表框点鼠标右键选插入模块粘贴以下代码后,关闭VBA编辑窗口,在工作表页面按ALT+F8 点选转换CSV,按回车执行或点击执行按钮.该工作薄里所有的工作表都保存在这个工作薄的路径下.文件名...

空空如也

空空如也

1 2 3
收藏数 47
精华内容 18
关键字:

vba窗口关闭按钮代码