VBA中的错误处理

2017年02月06日 118 阅读

VBA中的错误处理2010-01-29 博客园 Jaxu从理论上讲，VBA没有提供任何的错误处理机制，这种被用在微软Office产品中的以Visual Basic语言为基础的脚本语言根本就不要任何的错误处理，当程序出现错误或产生异常情况时，VBA会自动定位到出错的代码行，然后提示用户出错的可能原因。这是典型的脚本语言的错误提示，联想到javascript语言，在浏览器中如果出现脚本错误，浏览器会给出提示信息，但这并不影响整个程序的正常运行，最多也就是出现错...

在VBScript中使用类（一）

2017年02月06日 98 阅读

在VBScript中使用类（一）2010-01-29 4guysfromrolla 前言首先，在我进入实质性主题并解释如何建立类之前，我希望保证你知道“对象”。虽然你可以在程序中使用对象而不用知道其正确的规则，但我并不建议如此！对于对象的初学者，接下来的部分将让你了解其概念及内容。已经了解面向对象编程（OOP）的读者可以跳过这章节。导论l “对象是什么？”——对象通常代表某种实体，主要...

在VBScript中使用类（二）

2017年02月06日 101 阅读

在VBScript中使用类（二）2010-01-29 4guysfromrolla 创建对象在VBScript中创建对象类型（类）时，你首先要知道，这真的很容易！我在一个下午自学，只是阅读了Microsof VB Script 的参考书，但必须承认，这书不是最容易阅读的文档。初学者需要安装VBScript 5.0引擎，可以在Microsoft"s Scripting Site下载。我们来看代码。类的定义与函数和子过程非常类似。起始行为Class <M...

在VBScript中使用类（三）

2017年02月06日 100 阅读

在VBScript中使用类（三）2010-01-29我们来分析一下（2）中的程序：Class TVProgramPublic StartTimePublic internal_ProgramDatePublic Property Get ProgramDateProgramDate = Day（internal_ProgramDate） & _" " & MonthName（Month（internal_ProgramD...

在VBScript中使用类（四）

2017年02月06日 99 阅读

在VBScript中使用类（四）2010-01-29现在的代码离我们想要的还是有些不太实用，我们将在其他页使用类TVProgram，因此最好将其独立定义，以便所有也面都可以调用。创建一个ASP页面，并命名为TVProgramClass.asp，我们在其中定义类TVProgram。--TVProgramClass.asp--<%Class TVProgramPrivate internal_StartTimePublic Property Get St...

VBA在Excel中的应用（一）

2017年02月06日 95 阅读

VBA在Excel中的应用（一）2010-01-29 博客园 Jaxu目录ActiveCellActiveWorkbookAdvancedFilterAutoFillActiveCell1.检查活动单元格是否存在Sub activeCell（）If ActiveCell Is Nothing Then End IfEnd Sub2.通过指定偏移量设置活动单元格Sub offset（）ActiveCell.Offset（RowOffset:=-2, Colu...

VBA在Excel中的应用（二）

2017年02月06日 95 阅读

VBA在Excel中的应用（二）2010-01-29 博客园 Jaxu目录AutoFilterBindingCell CommentsCell CopyCell FormatCell Number FormatCell ValueCellAutoFilter1.确认当前工作表是否开启了自动筛选功能Sub filter（）If ActiveSheet.AutoFilterMode ThenMsgBox "Turned on"End IfE...

VBA在Excel中的应用（三）

2017年02月06日 99 阅读

VBA在Excel中的应用（三）2010-01-29 博客园 Jaxu目录Chart ExportChart FormatChart LengendChart ProtectChart TitleChartChart Export1.将Excel中的图表导出成gif格式的图片保存到硬盘上Sub ExportChart（）Dim myChart As ChartSet myChart=ActiveChartmyChart.Export Filename:=&...

万年历的一种写法

2017年02月06日 106 阅读

万年历的一种写法2010-03-12program www;var year :integer;Function monthday（year,month:integer）:integer;{第year年第month月的天数}begincase month of0 :monthday:=0;4,6,9,11 :monthday:=30;1,3,5,7,8,10,12:monthday:=31;2 :if （year mod 4 =0） and （year m...

VB编程的好帮手--资源文件

2017年02月06日 101 阅读

VB编程的好帮手--资源文件2010-03-12各位VB高手，你一定也常常因苦于无法组织自己程序中大量的picture，而头痛不已，那就让小生为各位介绍一下VB编程的好帮手--资源文件。所谓资源文件，就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字（TEXT）、位图（BITMAP）。图标（ICON）等。并且在程序中调用时不用指明路径，这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小程序为例讲述资源文件的一些使用方法。...

VB编程开发常见技巧

2017年02月06日 103 阅读

VB编程开发常见技巧2010-03-12Visual Basic（以下简称VB）是Windows下的一个面向对象的可视 化开发环境,功能非常强大。下面笔者就自己在实际软件开发过程中 获得的一些经验和大家作以交流。提示钮的实现如果自己留心一点儿,一定注意到了Microsoft公司的一系列产品 （如Word、Excel甚至B 本身）,都为其应用程序的命令按钮提供了信息 。如用户不清楚软件中所列图标按钮的功能, 可将鼠标移至该图标按 钮上,过一会儿在其下方就会显...

VB功能扩展

2017年02月06日 107 阅读

VB功能扩展2010-03-12 计算机世界 杜晓东我们在设计一个VB窗体时，常常放上许多控件，为了使这些控件看上去整整齐齐，我们不得不设置一大堆Left、Top、Height、Width属性，您是否已经感到厌烦并想转向Powerbuilder或Delphi等别急，让我们现在就来扩展一下VB的功能。VB4.0提供了一个新功能:Add-Ins，利用这一功能我们就可以把自己的程序加到VB4的系统菜单Add-Ins里去，作为VB的扩展功能。我们设计的程序将具有以...

程式设计基础讲座

2017年02月06日 104 阅读

程式设计基础讲座2010-03-12程式设计之路对于软体开发，笔者最近听到两种极端的声音，其一是程式设计人员没前途，另一种声音则是软体是有梦的工业，不禁让笔者想好好地谈一谈软体这一行。程式设计人员没前途？有一次收到一位读者来函，内容是：「最近在网路上看到了一些文章说：他妹妹花八万大洋到资策会学程式设计，结果她们老师告诉她们在台湾当程式设计师是一件吃力不讨好的工作，钱少、事多、没地位，还不如去干网路工程师…写出不算好的程式时，人家连看都不看，反...

捕捉MouseExit事件

2017年02月06日 114 阅读

捕捉MouseExit事件2010-03-12MouseDown、MouseUp、MouseMove。VB 似乎提供了很好的 Mouse 事件。但好象还缺少什么！对！还差 MouseExit（鼠标移出）事件。在 VB 中，我们要捕捉 MouseExit 事件，必须用 API 函数：Private Declare Function SetCapture Lib "user32" （ByVal hWnd As Long） As LongPr...

从字符串中分离文件路径、文件名及其扩展名

2017年02月06日 102 阅读

从字符串中分离文件路径、文件名及其扩展名2010-03-12此函数从字符串中分离出路径Function ParsePath （sPathIn As String） As String Dim I As Integer For I = Len（sPathIn） To 1 Step -1 If InStr（":", Mid$（sPathIn, I, 1）） Then Exit For Next ParsePath = Left$...

利用Form_QueryUnload询问视窗

2017年02月06日 109 阅读

利用Form_QueryUnload询问视窗2010-03-12如何在视窗关闭时，询问使用者是否确定关闭，若否，则取消关闭动作，若是则结束程式！这是一个很重要的问题，想想，如果还有编辑中的档案尚未存档，但一时忘了按下「关机」钮，那么编辑中的档案难道就不存档了吗？为了避免这种事情的发生，Windows在关机以前会徵询每一个视窗是否同意关机，而对VB程式而言，所收到「徵询同意关机」的事件是Form_QueryUnload，如果程式不同意关机，可以将参数中的Ca...

VB6内置的内码转换功能

2017年02月06日 116 阅读

VB6内置的内码转换功能2010-03-12嘿嘿，看到这个题目，想必吓了一大跳吧，或者是摆出一副不相信的表情？不用着急，请听我慢慢道来。话说这个VB6，很是无耻，居然内置了支持Unicode的功能，也就是说，当你读入一个字符串时，它根据本地缺省语言的对应关系将之转换为Unicode，输出时，再从Unicode转换为本地编码。一方面，它当然方便啦，随便出个什么语言的版本都好方便的，而且在Unicode的系统上，如NT，那它可就如鱼得水，Unicode毕竟是软...

vb实现动态添加控件

2017年02月06日 122 阅读

vb实现动态添加控件2010-03-12VB6有一个新功能，可以动态添加控件，不用控件数组：object.Add （ProgID, name, container）参数说明Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。ProgID 必需的。一个标识控件的字符串。大多数控件的ProgID 都可通过查看对象浏览器来决定。控件的ProgID是由控件的库和类组成的。例如，CommandButton控件的ProgID...

VB编程技巧三则

2017年02月06日 94 阅读

VB编程技巧三则2010-03-121、VB中实现动态移动控件窗体中的控件如按钮、文本框等一般在运行时位 置是固定不变的，但为了能给用户更方便的功能，我们可以做到在运行时动态移动控件的 位置，比如我们可以允许用户随便将按钮放到自己喜欢的位置，而并非界面中固定的位置。 其实这个功能实现起来是很容易的，只需要使用API函数SendMessage传递控件移动的消息 即可。下面是一个例子，当用户单击按钮后可以移动按 钮的位置。在窗体的总体声明部分声明SendMes...

设计图象切换效果

2017年02月06日 99 阅读

设计图象切换效果2010-03-12PaintPicture是VB4新提供的图形图像处理方法，它的基本功能是图像块传输，在以前的VB版本中要产生块传输效果，需采用Win？dowsGDI中的块传输函数BitBltAPI调用。PaintPicture正是VB4中用来代替BitBltAPI调用的简单而方便的方法。它能快速地将两幅位图进行合并；能将位图的全部或某一部分快速剪切并粘贴到其它地方；并能将位图自动延伸或压缩以适应新的环境；能在屏幕上不同位置之间、屏幕与内...