- 浏览: 244917 次
文章分类
- 全部博客 (395)
- Tech (0)
- [随笔分类]心情 (95)
- [随笔分类]技术 (112)
- [随笔分类]管理心得 (13)
- [随笔分类]Code SOP (5)
- [随笔分类]望图知意 (11)
- [网站分类]1.首页原创精华.NET区(包含架构设计、设计模式)(对首页文章的要求:原创、高质量、经过认真思考并精心写作) (8)
- [随笔分类]重构代码 (1)
- [随笔分类]童童 (2)
- Program (1)
- [随笔分类]看你知道不知道 (1)
- [网站分类]4.其他技术区 (31)
- [网站分类]3.非技术区(技术之外的文章,但不要涉及任何政治内容) (21)
- [网站分类]9.求职招聘区(个人求职、企业招聘) (0)
- [随笔分类]昨日关注 (15)
- [网站分类]6.读书区(技术书籍阅读心得、书籍推荐) (3)
- [随笔分类]一步一个脚印 (2)
- [网站分类]网站管理区(网站管理方面的疑问、建议、意见, 寻求管理员帮助) (1)
- [网站分类]2..NET新手区(用于发表不合适发表在首页的.NET技术文章,包括小经验、小技巧) (3)
最新评论
在VB6中,MsgBox是比较讨厌的,我在整理代码的时候,通常要检查每个MsgBox的Title是否正确,因为不同的程序员有不同的习惯,有些人也愿意省略,到底有没有办法达到Msgbox中Title的统一呢?
答:当然有办法了,一种是在VB6的工程里边设置好工程的名称,然后所有的Msgbox全部全部省略Title,这样Msgbox的显示就统一了,但是这种太不爽了,在Title里边显示的控制太不灵活,而且如果有些人使用了自定义的Title也,这种方式就没有办法了。
另外一种方式是采用一个常量,然后让所有的人在Title里边引用这个常量,这种方式好像解决了问题,但是如果别人没有使用这个常量呢?也不好办呀。
到底有没有好的办法呢?呵呵,VB6里边可以这样解决。
在模块里边定义一个Msgbox函数,这个函数就会覆盖系统提供的Msgbox了,问题也就解决了,很简单的。
代码如下:
这样这个Msgbox就接管系统的Msgbox了,当让通过这种方式可以覆盖很多系统函数,达到所有程序员用法的统一,如果有好的编程约束更好了,如果没有也不用头疼,管你怎么写,最后通过函数统一了就好。
呵呵,我用这个函数还要处理一下prompt里边的标点符号,我希望所有人的prompt都是英文半角的,但是还是有一些是中文的标点符号,通过这个我就可以修改这些头疼的东西了。
答:当然有办法了,一种是在VB6的工程里边设置好工程的名称,然后所有的Msgbox全部全部省略Title,这样Msgbox的显示就统一了,但是这种太不爽了,在Title里边显示的控制太不灵活,而且如果有些人使用了自定义的Title也,这种方式就没有办法了。
另外一种方式是采用一个常量,然后让所有的人在Title里边引用这个常量,这种方式好像解决了问题,但是如果别人没有使用这个常量呢?也不好办呀。
到底有没有好的办法呢?呵呵,VB6里边可以这样解决。
在模块里边定义一个Msgbox函数,这个函数就会覆盖系统提供的Msgbox了,问题也就解决了,很简单的。
代码如下:
'封装MsgBox,保证提示的一致性
Public Function MsgBox(Prompt As String, Optional Button As VbMsgBoxStyle, Optional Title As String = "") As VbMsgBoxResult
MsgBox = VBA.MsgBox(Prompt, Button, "提示")
End Function
Public Function MsgBox(Prompt As String, Optional Button As VbMsgBoxStyle, Optional Title As String = "") As VbMsgBoxResult
MsgBox = VBA.MsgBox(Prompt, Button, "提示")
End Function
这样这个Msgbox就接管系统的Msgbox了,当让通过这种方式可以覆盖很多系统函数,达到所有程序员用法的统一,如果有好的编程约束更好了,如果没有也不用头疼,管你怎么写,最后通过函数统一了就好。
呵呵,我用这个函数还要处理一下prompt里边的标点符号,我希望所有人的prompt都是英文半角的,但是还是有一些是中文的标点符号,通过这个我就可以修改这些头疼的东西了。
发表评论
-
打包应该注意MDAC的安装次序
2005-11-14 16:06 928MDAC得打包通常都是很讨厌得,一直没有太好的办法。以前得解决 ... -
不要忽视细节,由调用一个SqlServer系统存储过程想到的
2005-11-22 13:21 594今天在调用SqlServer中的系统存储过程sp_droplo ... -
小毛病,大问题
2005-11-24 11:19 595今天用户抱怨,为什么数据库中条目的计数越来越大,而且清空数据库 ... -
CMD命令也要用好
2005-11-30 13:30 962以前一些程序需要执行 ... -
一步一个脚印-产品升级随笔(1)-vision
2005-12-18 08:17 639产品的维护和升级总是困扰着我,犯过很多的错误,吃过很多的亏,如 ... -
一步一个脚印-产品升级随笔(4)-波浪
2005-12-30 11:10 659产品的升级不是一次就可以完成的,需求会像洪水一样永远都不会停止 ... -
国民党的800万军队不是一天消灭的
2006-01-09 15:58 588这几天又去了一趟京城,刚刚回到家里,特别的疲惫,昨天美美的在家 ... -
还不如扔掉
2006-01-12 12:42 548周六、周日打算搬回学校的单身宿舍了,把租的房子退掉,但是屋子里 ... -
看你知道不知道之-全局对象
2006-02-10 12:49 623这几天在整理类库,想通过VB6来提供全局函数,将公司常用的函数 ... -
看你知道不知道之-制作数据字典
2006-02-10 17:49 967这部分内容和VB6的关系不大,但是确是困扰我的一个问题。 这几 ... -
看你知道不知道之-为进程内部件设置基地址
2006-02-13 11:17 671在用Project Analyzer 进行 ... -
看你知道不知道之-Call转义序列
2006-02-14 13:00 599今天在整理代码的时候,需要修改一个函数,使这个函数可以通过AD ... -
看你知道不知道之-使用SET NOCOUNT优化存储过程
2006-02-15 14:51 737每次我们在使用查询分析器调试SQL语句的时候,通常会看到一些信 ... -
看你知道不知道之-你注意Where子句的次序了吗?
2006-02-16 08:12 574这个系列越来越多的是和SQL语句相关的问题了,因为这段时间工作 ... -
看你知道不知道之-用好sp_depends
2006-02-21 12:25 1100前几天检查一个兄弟写的存储过程,我想知道这个存储过程到底涉及到 ... -
今天20,明天21
2006-03-06 15:58 537这几天一直封闭,昨天刚刚放出来,感觉十分的疲惫。在封闭的过程中 ... -
重构代码-随笔(1)
2006-03-09 10:32 553原始代码: If txt ... -
干这行最重要的是要坐住板凳
2006-03-12 20:40 700我们周五的时候刚刚辞退的一个试用期员工,给我在QQ留言,内容大 ... -
Windows Server 2003 R2 修复Windows Server 2003
2006-03-19 13:05 1159最近特别喜欢去反波上听平客的段子,有一些也下载到本地了,但是我 ... -
靠左侧通行
2006-03-23 08:15 708从小老师和父母就告诉我,一定要靠人行横道的右侧通行,我也是 ...
相关推荐
计算机软件-编程源码-msgbox消息窗口.zip
自动关闭MSGBOX,让VB的MSGBOX具有倒计时功能,呵呵,神奇吧
精彩编程与编程技巧-如果自定义 MsgBox 的按钮标题等 ...
信不信由你,我曾经拍摄过msgbox的屏幕截图,并在Photoshop中进行打印。 我不知道您可以简单地单击:当消息框具有焦点时按CTRL-C。 MsgBox的标题,文本和按钮都将以这种方式复制到剪贴板: -----------------------...
可以自定义msgbox的位置,及字体样式
右下角弹出提示框控件(Active-X Popup MsgBox),需要的朋友可看下
本控件支持unicode vb源码 大家知道肯定unicode是什么东西;这里不用多说 vb的经典控件不支持unicode 这个msgbox是支持的,,
仿QQ空间信息提示效果,成功:$.msgbox({type:'success',msg:'操作成功',end:function(){//do something}}); 失败:$.msgbox({type:'error',msg:'操作失败',end:function(){//do something}}); 提示或警告:$.msgbox...
關於msgbox函數的,對我很有用,我找了很久才找到的,
自己对MsgBox 函数的整理,可直接看实例更有用 在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 博客中有该文章,附件中包含源码
如何设定 MsgBox 在若干时间之后若无回应則自动关闭?
自定义C# msgbox显示样式,包含多种显示方式。
自定义Msgbox窗体图标代码 你所看到的文件来自:E动天下—VB专业源码网 www.2e3.org
原生JavaScript弹窗组件 标签:msgBox
改变msgBox的显示的按钮内容及其他功能
名称:命令行调用的MsgBox程序 语言:MFC 介绍:经常在电脑,往往忙的把时间都忘记了。一些精彩的电视节目经常忘记看,很多日历或备忘录等程序的特点就是要常驻内存,总感觉资源被浪费了。忽发奇想Windows不是有个...
MsgBox 函数的使用方法,以及函数参数的设置。
在我们的印象中,VB 所提供的 MsgBox 是一个强制回应的视窗,您一定要按了其中的某一个 CommandButton 之后,它才会关闭!但是在某些软体中,我们会看到,明明是使用系统的 MsgBox,可是您如果不理它,几秒钟之后,...
vb中msgbox用法
分页_ajax 分页_MsgBox