1. 关注常识网首页
  2. 生活常识

【生活小知识】access vba 控制窗体最小化或最大化的问题 易语言如何判断启动窗口是

这个问题难点在于窗体状态的判断上,至于DoCmd。Minimize只能作用于当前窗体其实好办,将需要最小化的窗体设置为当前窗体后就可以使用了。由于ACCESS...
access vba 控制窗体最小化或最大化的问题VB 6.0 如何判断 窗体最大化和最小化易语言如何判断启动窗口是否最大化!!...更多access vba 控制窗体最小化或最大化的问题 易语言如何判断启动窗口是话题,小编为你整理了详细内容,欢迎浏览。

【生活小知识】access vba 控制窗体最小化或最大化的问题 易语言如何判断启动窗口是

access vba 控制窗体最小化或最大化的问题 易语言如何判断启动窗口是

这个问题难点在于窗体状态的判断上,至于DoCmd。

Minimize只能作用于当前窗体其实好办,将需要最小化的窗体设置为当前窗体后就可以使用了。由于ACCESS VBA没有WindowState属性,因此要判断窗体是否处于最小化状态我们需要借助WINDOWS API函数。下面是具体解决方案: 1)新建一个模块,取名“模块1“将下列代码复制黏贴到该模块之下Option Compare Database'声明API函数Declare Function apiIsIconic Lib user32 Alias IsIconic (ByVal hwnd As Long As LongDeclare Function apiIsZoomed Lib user32 Alias IsZoomed (ByVal hwnd As Long As Long '编写下列自定义函数 Private Function IsAccMaxFrom(frm As Form As Boolean'此函数为中间过渡函数,判断ACCESS窗体是否处于最大化状态,'供下面自定义函数GetWindowState 调用 If apiIsZoomed(frm。

hwnd = 0 Then IsAccMaxFrom = False Else IsAccMaxFrom = True End IfEnd Function Private Function IsAccMinForm(frm As Form As Boolean'此函数中间过渡函数,判断ACCESS窗体是否处于最小化状态,'供下面自定义函数GetWindowState 调用 If apiIsIconic(frm。

hwnd = 0 Then IsAccMinForm = False Else IsAccMinForm = True End IfEnd Function Public Function GetWindowState(frm As Form As Integer'此函数判断ACCESS窗体处于何种状态,供需要时调用'函数返回0,表示窗体处于正常状态 '函数返回1,表示窗体处于最小化状态 '函数返回2,表示窗体处于最大化状态 If IsAccMinForm(frm = True Then GetWindowState = 1 Exit Function ElseIf IsAccMaxFrom(frm = True Then GetWindowState = 2 Exit Function Else GetWindowState = 0 End IfEnd Function 2)假设A、B两个窗体名分别为“窗体1” 和“窗体2” 。为“窗体1”的命令按钮“COMMAND8”编写下列单击事件过程Private Sub Command8_Click If CurrentProject。

AllForms(窗体2。

IsLoaded = True Then If GetWindowState(Forms!窗体2 = 1 Then '窗体处于最小化时,则复原 DoCmd。

SelectObject acForm, 窗体2 DoCmd。

Restore Else '窗体不处于最小化状态时,则最小化 DoCmd。

SelectObject acForm, 窗体2 DoCmd。

Minimize End If Else MsgBox 窗体尚未打开 ''如果窗体尚未打开则予以提示 End IfEnd Sub '如果要求在“窗体2”还没又打开时,强制打开窗体并最小化,则代码可以改写如下Private Sub Command9_Click If CurrentProject。

AllForms(窗体2。

IsLoaded = True Then If GetWindowState(Forms!窗体2 = 1 Then DoCmd。

SelectObject acForm, 窗体2 '将窗体2设置为当前窗体 DoCmd。

Restore Else DoCmd。

SelectObject acForm, 窗体2 DoCmd。

Minimize End If Exit Sub End If '窗体2尚未打开时强制打开窗体并最小化 DoCmd。

OpenForm 窗体2 DoCmd。

MinimizeEnd Sub 好了,到此大功告成。如有疑问,可以私信给我。

好像是这个吧。me。

windowstat 或者 formX。

windowstat=max之类的。 你试试。WindowState =2是最大化其它你自己试一下吧。

_启动窗口。

位置= 0 代表通常_启动窗口。

位置= 1 代表居中_启动窗口。

位置= 2 代表最小化_启动窗口。

位置= 3 代表最大化

vba怎么学,access里的vba,怎么查看数据? - : 建议先从excel-vba入手,弄清楚后再学access。

毕竟access对记录集、记录,指针控训与excel不同。

当然也可以从access-vba入手。

推荐这本书可以看看Access 2007VBA宝典

如何用VBA控制一个access查询的“条件参数”? - : 可以用窗体和子窗体来实现,查询的条件直接关联窗体里的文本控件。

用子窗体显示按要求的查询

ACCESS的VBA程序流程控制语句内容题目 - : 在循环执行到k=k+1之前,k=1时:f=2,f0=1,f1=2k=2时:f=3,f0=2,f1=3k=3时:f=5,f0=3,f1=5k=4时:f=8,f0=5,f1=8k=5时:f=13,f0=8,f1=13

access vba 控制窗体最小化或最大化的问题 - : 这个问题难点在于窗体状态的判断上,至于DoCmd。

Minimize只能作用于当前窗体其实好办,将需要最小化的窗体设置为当62616964757a686964616fe58685e5aeb931333332636436前窗体后就可以使用了。

由于ACCESS VBA没有。

Access Form VBA 控制问题 - : select * from table_name where checkbox。

caption = text。

textselect * from table_name where checkbox。

caption like "%" + text。

text + "%"这样子去拼SQL 查询语句。

ACCESS和VBA的介绍 - : VBA是内嵌于Office的解释性语言,用于编写Office宏的语言 流行一时的宏病毒就是用VBA编写的 Access是一种小型数据库的技术

access的VBA - : 单看这代码,没有错。

你是要在窗体打开时,将这查询赋给窗体做数据源吗?可能会有这两个问题:1,你没有对Me。

OpenArgs做空值处理,到时窗体打开,会是一片空白,就是一片白色,很壮观。

2,这段代码,似乎应该加载在Load事件中更合乎逻辑。

关于VBA编程在Access的操作 - : isloaded 是你自己的函数吗? vb库里没有这个函数。

当vb找不到相应的函数的时候就会报这个错误~

计算机access中VBA是什么意思 - : 就是可对access窗体进行象VBA一样编程,语句基本与VB一样的

access vba 控制窗体最小化或最大化的问题 易语言如何判断启动窗口是相关拓展阅读

这个问题难点在于窗体状态的判断上,至于DoCmd。Minimize只能作用于当前窗体其实好办,将需要最小化的窗体设置为当前窗体后就可以使用了。由于ACCESS ...

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人,并不代表关注常识网立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容(包括不限于图片和视频等),请邮件至379184938@qq.com 举报,一经查实,本站将立刻删除。

留言与评论(共有 0 条评论)
   
验证码:

联系我们

在线咨询:点击这里给我发消息

微信号:CHWK6868

工作日:9:30-18:30,节假日休息