高中计算机算计Access怎么做,Access非常简单实用的计算器
Access编写计算器,实际上编写计算器的关键语句就是一条,也就是Eval函数。这个函数可以将一个字符串表示的算式计算出结果了。按照这个思路下去,你只是需要得到一个用阿拉伯数字和运算符号连接起来的字符串了,这样一来问题就十分简单了。
倒是在调用计算器并将计算结果写入指定控件处,着实费了些周折。周折处主要有二,其一是被OpenArgs参数迷惑了个把小时,几经摸索算是搞明白了所以然;其二是获得当前控件的名称,折腾好一阵也没搞清楚,好在经t小宝同志指点,终于豁然开朗。
主窗体:Private Sub 折让_DblClick(Cancel As Integer)
'请在OpenArgs参数中,用,号分割主窗体、子窗体控件、控件名称
Dim Ctlname As String
Ctlname = Screen.ActiveControl.Name
DoCmd.OpenForm "myCalc", , , , , , Me.Form.Name & "," & Ctlname
End Sub
子窗体:
Private Sub 数量_DblClick(Cancel As Integer)
'请在OpenArgs参数中,用,号分割主窗体、子窗体控件、控件名称
Dim Ctlname As String
Ctlname = Screen.ActiveControl.Name
DoCmd.OpenForm "myCalc", , , , , , Me.Parent.Form.Name & "," & Me.Form.Name & "," & Ctlname
End Sub
myCalc窗体:
Private Sub 等于_Click()
Dim str As String
Dim Pfname As String
Dim Sfname As String
Dim Cname As String
On Error GoTo 等于_Err
If IsNull(Me.计算.Value) = False Then
Me.计算.Value = Eval(Me.计算.Value)
Else
Me.计算.SetFocus
Exit Sub
End If
If OpenArgs <> "" Then
str = OpenArgs
Pfname = Mid(str, 1, InStr(1, str, ",") - 1)
str = Replace(str, Pfname & ",", "")
If InStr(1, str, ",") = 0 Then
Sfname = Pfname
Cname = str
Forms(Sfname).Form.Controls(Cname).Value = Me.计算.Value
Else
Sfname = Mid(str, 1, InStr(1, str, ",") - 1)
str = Replace(str, Sfname & ",", "")
Cname = str
Forms(Pfname).Controls(Sfname).Form.Controls(Cname).Value = Me.计算.Value
End If
DoCmd.Close acForm, "myCalc"
End If
等于_Exit:
Exit Sub
等于_Err:
Me.计算.Value = "兄弟,搞错了吧?!^o^ "
Resume 等于_Exit
End Sub
Private Sub L0_Click()
Me.计算.Value = Me.计算.Value & Me.L0.Caption
End Sub
如果把动态效果(如经过时变色、按下时下沉)加到“按钮”(实际上是标签)上效果更加理想
(常用控件-相关文章技巧链接):
初识VBA:第四课 计算器代码的编写
高中计算机算计Access怎么做,Access非常简单实用的计算器相关推荐
- 实用计算机计算方法,科学的方法:最简单实用的计算机功率计算方法
PC电源作为计算机的核心组件,在购买时对于许来说非常重要. 但是,许也对自己的计算机需要配备多少电源存有疑问. 由于电源方面的权威材料和指导性文章很少,因此大多数人对电源选择感到困惑. 恐怕许最安全的 ...
- 原创,自己做的一个简单实用的提示小插件,兼容性很好,基本上都兼容!
实现的效果图如下: jquery.message.box.js 插件代码如下: /*message 提示信息 url 跳转的url,有3个值可以选({1:指定跳转url地址,2:返回前一个页面,3:不 ...
- 用html5做立体盒子,简单实用的立体盒子收纳小柜子制作教程
简单实用的立体盒子收纳小柜子制作教程 我们的办公桌或是家里的桌子上面总是有一些零碎的小东西,尤其是女生,有一些小耳钉小戒指之类的首饰都是不占地方,但是不好好收拾的话就容易丢掉了,纸艺网里面的很多的折纸 ...
- 计算机二级 access应用,计算机二级Access辅导:Access软件应用指南
计算机二级Access辅导:Access软件应用指南 本文是百分网小编搜索整理的关于计算机二级Access辅导:Access软件应用指南,供参考学习,希望对大家有所帮助!想了解更多相关信息请持续关注我 ...
- 浙江省二级计算机试题,2015浙江省计算机等级考试试题 二级ACCESS考试题库
2015浙江省计算机等级考试试题 二级ACCESS考试题库 1.下列4条叙述中,不正确的一条是( D ) A.字节通常用英文单词"BYTE"来表示 B.目前广泛使用的Pentium ...
- 山东省计算机等级考试初级试题,2013山东省计算机等级考试试题 二级ACCESS理论考试试题及答案...
2013山东省计算机等级考试试题 二级ACCESS理论考试试题及答案 1.化工厂中用计算机系统控制物料配比.温度调节.阀门开关的应用属于( A ) A.过程控制 B.数据处理 C.科学计算 D.CAD ...
- 江苏省计算机等级考试理论试题,2015江苏省计算机等级考试试题 二级ACCESS理论考试试题及答案...
2015江苏省计算机等级考试试题 二级ACCESS理论考试试题及答案 1.一般情况下,1KB内在最多能存储( B )个ASCII码字符,或( B )个汉字内码. A.1024.1024 B.1024, ...
- 山西省计算机二级考试试题,2010山西省计算机等级考试试题 二级ACCESS最新考试试题库...
2010山西省计算机等级考试试题 二级ACCESS最新考试试题库 1.下列设备中,既能向主机输入数据又能接收主机输出数据的设备是( C ) A.CD-ROM B.显示器 C.软磁盘驱动器 D.光笔 2 ...
- 安徽省计算机二级机试题库,2010安徽省计算机等级考试试题 二级ACCESS最新考试试题库...
2010安徽省计算机等级考试试题 二级ACCESS最新考试试题库 1.针式打印机术语中,24针是指( D ) A.24×24点阵 B.信号线插头有24针 C.打印头内有24×24根针 D.打印头内有2 ...
最新文章
- 如何用node开发自己的cli工具
- hitTest练手例子
- 在SAP BSP view里显示outlook inbox里的邮件
- canvas学习和滤镜实现
- 核心显卡是新一代的智能图形核心
- 高等组合学笔记(一)集合的计数,映射与集合的排列组合
- 发力金融市场,中兴通讯有何硬实力?
- C++ Lambda表达式demo
- 如何安装中文manpage
- jdbc连接池工作原理_JDBC连接实际上如何工作?
- CTF_ CRYPTO(Cryptography)_密码学/密码编码学
- 老外网络语言缩写总结
- hiveSQL面试题16__时间序列--构造日期
- VS2013 简单MFC应用以及teechart使用方法
- 实用的CAD技巧,你也可以成为大神!
- 牛客错题集C++(一)
- 行业分析报告怎么做?
- CodeForces入门
- 实例简述Spring AOP之对AspectJ语法的支持
- 软件测试基础面试常问问题(二)
热门文章
- php mysql 性能测试工具下载_MySQL压力测试工具_MySQL
- mysql update 几万 非常慢_面试官:谈谈你对mysql索引的认识?
- 没有主清单属性_梦幻西游电脑版:神威组第一大唐?大佬两天更新200W硬件,这身属性难被超越!太狠了...
- 计算机导论 网络,计算机导论(网络).ppt
- UI设计灵感|有声读物APP界面设计
- 电商新春农历年春节海报还没设计?这是你需要的新年Banner灵感!
- 设计配色专辑,很值得设计师拥有
- UI设计素材干货|可临摹的时尚播放页面模板
- APP提示框设计模板|UI设计师灵感好帮手
- UI设计进阶干货|切图命名