1、05/01/2002#3.4.6 运算符的执行顺序 当一个表达式中出现了多种不同类型的运算符时，优先级高的运算符先运算，运算符的优先级相同时，从左向右进行运算。各运算符优先级如下：算术运算符字符运算符关系运算符逻辑运算符说明： 当一个表达式中出现多种运算符时，首先进行算术运算符，接着处理字符串连接运算符，然后处理比较运算符，最后处理逻辑运算符，在各类运算中再按照相应的优先次序进行。 可以用括号改变优先顺序，强令表达式的某些部分优先运行。括号内的运算总是优先于括号外的运算。对于多重括号，总是由内到外。 表达式的书写中需注意的问题。（1）运算符不能相邻。例a+*b是错误的。（2）乘号不能省略。例x
2、乘以y应写成：x*y。（3）括号必须成对出现，均使用圆括号。（4）表达式从左到右在同一基准并排书写，不能出现上下标。（5）要注意各种运算符的优先级别，为保持运算顺序，在写VB表达式时需要适当添加括号（）,若用到库函数必须按库函要求书写。例如：(b-sqr(b*b-4*a*c)/(2*a)(a+b)/(a-b)3.5.1 数学函数VB提供了上百种内部函数（库函数），要求掌握这些常用函数的功能及使用。函数的调用方法如下：函数名（参数列表） 有参函数函数名 无参函数一、绝对值函数格式：Abs(x)功能：计算绝对值。说明： x为一个数值型数据，函数值返回一个大于或等于零的数值型数据。例如：xAbs(-
3、7.8) x的值为7.8xAbs(98) x的值为98二、正弦函数格式：Sin(x)功能：计算角度的正弦值。说明： x为用弧度表示的数值型数据，函数值返回一个大于1并且小于-1的数值型数据。例如：xSin(0) x的值为0xSin(3.14*90、180) x的值为1三、余弦函数格式：Cos(x)功能：计算角度的余弦值。说明： x为用弧度表示的数值型数据，函数值返回一个大于1并且小于-1的数值型数据。例如：xCos(0) x的值为1四、指数函数格式：Exp(x)功能：计算以e为底的幂。说明： x为一个数值型数据，函数值返回ex。例如：xExp(3) x的值为20.0855369231877五、
4、对数函数格式：Log(x)功能：计算以e为底的自然对数。说明： x为一个数值型数据，函数值返回lnx。例如：xLog(2) x的值为0.69314718六、随机函数格式：Rnd(x)或Rnd()功能：生成一个0，1之间的单精度随机数。说明： 当x0或缺省x时，则以上一个随机数作为种子，产生序列中的下一个随机数；当x0时，则产生与最近生成的随机数相同的数。例如：Print Rnd(-2) 结果为0.7133257Print Rnd(2) 结果为0.6624333Print Rnd(-2) 结果为0.7133257Print Rnd(0) 结果为0.7133257Print Rnd() 结果为0.
5、6624333七、平方根函数格式：Sqr(x)功能：计算x的平方根。说明： x为一个数值型数据，并且x0，函数值返回x的平方根。例如：xSqr(9) x的值为3八、符号函数格式：Sgn(x)功能：返回一个整型数，指示参数的正负号。说明： x为一个数值型数据，当x0时，函数值为1；当x0时，函数值为0；当x0时，函数值为-1。例如：xSgn(9) x的值为1说明： 使用库函数要注意参数的个数及其参数的数据类型。 要注意函数的定义域（自变量或参数的取值范围）例如：Sgn(x) 要求：x0 Visual Basic函数的调用只能出现在表达式中，目的是使用函数求得一值。 要注意函数的值域。如：exp(
6、23773)的值就超出实数在计算机中的表示范围，即数据溢出。3.5.2 转换函数 一、将字符串转换成ASCII码格式： Asc(x)功能：返回字符串x中第一个字符的ASCII码。说明： x是一个字符串型数据，函数值返回一个。例如：xAsc0 x的值为48xAscABC x的值为65二、将ASCII码转换成字符格式：Chr(x)功能：将ASCII码值转换成相应的字符。说明： x是一个ASCII码代码值，函数值返回一个字符。例如：xChr(66) x的值为字符B三、将数值转换成字符串格式：Str (x)功能：将数值转换成字符串。说明： x是一个数值型数据，Str函数数值数据转换为自变量十进制表示的
7、对应字符串形式，字符串的第一个位一定是空格（自变量为正数）或是负号（自变量为负数），小数点最后的“0”将被去掉。例如：Str(256) 值为256Str(-256.65) 值为-256.65Str(-256.65000) 值为-256.65四、将字符串转换成数值格式：Val(x)功能：将数字字符串转换成数值类型。说明： x是一个字符串，函数值返回一个数值型数据，当自变量字符中出现数值规定字符以外的字符，()函数只将最前面的符合数值型规定的字符转换为数值。例如：xVa(1.2sa10) x的值为1.2xVal(abc123) x的值为0注意：()函数只将最前面的数字字符转换为数值。五、取整函数格
8、式：Int(x)、Fix(x)功能：返回参数x的整数部分。说明： ()函数和Fix()函数都会删除x的小数部分而只保留整数。()和Fix()的不同之处在于，如果x为负数，则()返回小于或等于x的第一个负整数，而Fix()则会返回大于或等于x的第一个负整数。例如：Fix(5.95)=9 Int(5.95)=9Fix(-5.95)=-9 Int(5.95)=-10除上面所列出的转换函数外，Visual Basic中还有类型转换数值函数Cbool、Cbyte、Cdate、CDbl、Cdec、CInt、CLng、CSng、Cvar、CStr等，详细例子请查阅帮助。 3.5.3 字符串函数 一、搜索字符
9、串函数格式：InStr(n1,c1,c2,m)功能：指定一字符串在另一字符串中最先出现的位置。说明： 函数中，n1是可选参数。为数值表达式，设置每次搜索的起点，如果省略，将从第一个字符的位置开始。C1是必要参数。接受搜索的字符串表达式。C2是必要参数。被搜索的字符串表达式。M是可选参数。指定字符串比较。例如：xInStr(ABCDE，BC) x的值为2二、删除空白字符函数格式：LTrim(x)、RTrim(x)、Trim(x)功能：返回一个字符串，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim) 或前导和尾随空白(Trim)。说明： x参数是必要的，可以是任何有效的
10、字符串表达式。例如：xLTrim( ABC)x的值为ABCxRTrim(ABC )x的值为ABCxTrim( ABC )x的值为ABC三、取子串函数格式：Left(s,n)、Right(s,n)、Mid(s,p,n)功能：Left(s,n)返回字符串中从左边算起指定数量的字符。Right(s,n)返回从字符串右边取出的指定数量的字符。Mid(s,p,n)从字符串s的第p个字符开始取n个字符。说明： Left(s,n)和Right(s,n)函数中，参数s,n是必要的，Mid(s,p,n)函数中，参数s，p是必需的，n是可选的。例如15.1.1 编译错误编译错误是指在程序编译过程中出现的错误（也称
11、语法错误）。常见的编译错误有： 标点符号错（程序中只能使用西文标点）；关键字输入错（例：Dim写成Din）；一行语句没有写完整等。 对象名称（Name属性）写错。 对象的属性名、方法名，内部函数名写错。 变量未定义或变量名写错（可在通用声明段加Option Explicit，采用变量显式声明）。 块If没有对应的End If语句；For循环没有对应的Next语句；Do循环没有对应的Loop语句等，这类错误当VB开始运行时提示出错信息，且将出错位置用反色显示。如图15-1所示。例如：关键字写错，遗漏标点符号，括号不匹配等。VB提供了自动语法检查功能，能指出并显示这些错误，帮助用户纠正语法错误。图
12、15-1 编译错误提示窗口15.1.2 运行错误运行时的错误是指应用程序在运行期间执行了非法操作所发生的错误。例如：除法时分母为零，被操作的驱动器未准备好或磁盘读写有错。或数组下标超界、数据溢出等。这种错误只有在程序运行时才能被发现。运行出错也将弹出一个子窗口，提示出错信息。【例】当运行程序时出现（“下标越界”）错误，如图15-2窗口所示：Private Sub Form_Load()Dim D(20) As Integer, k As IntegerFor k=1 To 30D(k)=k*KNext kEnd Sub15.1.3 逻辑错误逻辑错误使程序运行时得不到预期的结果。这种程序没有语法
13、错误，也能运行，但却得不到正确的结果。例如，使用了不正确的变量类型或指令的次序不对。又如，循环中起终值不正确。逻辑错误也可以产生运行错误。通常，逻辑错误不会产生错误提示信息，需要程序员仔细地阅读分析程序。【例】要求10!，若采用：Private Sub Form_ Click ()Dim t As IntegerFor i=1 To 10t=t*iNext iPrint tEnd Sub运行程序时，单击窗体输出的结果是0。逻辑错误：“Dim t As Integer”语句应改为“Dim t As Single”和“t=1”两个语句。图15-2 提示出错信息窗口c15.2 VB 6.0系统调试工
14、具Visual Basic程序调试包括：断点、中断表达式、监视表达式、通过代码一次经过一个语句或一个过程、显示变量和属性的值。一、设置自动语法检测在VB集成开发环境中，选择“工具”菜单的“选项”命令，再在打开的“选项”对话框中选“编辑器”标签。如图15-3所示。图15-3二、使用VB调试工具（一）调试工具栏Visual Basic提供了一个专用的程序调试工具栏。要显示“调试”工具栏，可在VB工具栏上单击鼠标右键并选定“调试”选项。如图15-4所示。图15-4所示 调试工具栏可以用调试工具栏提供的按扭运行要测试的程序、中断程序的运行、在程序中设置断点、监视变量、逐语句和逐过程调试等，以查找并排除
15、代码中存在的错误。（二）调试菜单除了调试工具栏以外，Visual Basic还有“调试”菜单。在“调试”菜单中也有“启动”、“中断、“结束”等命令。调试窗口也可在“视图”菜单中打开。15.3.1 Visual Basic的3种工作模式VB的三种工作模式：设计模式、运行模式和中断模式。一、设计模式在设计模式下，可以建立应用程序的用户界面，设置控件的属性，编写程序代码等。二、运行模式在运行模式下，可以测试程序的运行结果，可以与应用程序对话，还可以 查看程序代码，但不能修改程序。三、中断模式在中断模式下，可以利用各种调试手段检查或更改某些变量或表达式的值，或者在断点附近单步执行程序，以便发现错误或改
16、正错误。进入中断模式的方法：1、在代码中插入Stop语句。 2、在代码窗口中设置断点(用菜单命令)。3、在代码窗口中设置断点(鼠标操作)。4、在程序运行时强制“中断”。5、当程序运行出现错误。当检查调试通过后，需要清除断点。单击“结束”命令。15.3.2 控制程序的运行一、启动对象及控制程序的运行（一）逐语句运行逐语句运行：VB允许逐条语句执行程序，每执行一条语句后就返回中断模式。如果执行的是过程调用的代码(如Call)，“逐语句”操作也会跟踪到被调过程中继续一条语句一条语句的执行。（二）逐过程运行逐过程运行：逐过程执行是以整个函数或过程为一个整体，一次执行。逐过程与逐语句一样，能够一条语句一
17、条语句地执行代码。把被调用的函数或过程当作一个语句来看待。（三）从过程中跳出从过程中跳出：单击“调试”工具栏上的“跳出”按钮，则VB将连续执行完该过程的其余部分，返回调用过程的下一条语句并回复中断模式。1、切换断点“切换断点”按钮用来设置断点。2、跳出单击“调试”工具栏上的“跳出”按钮，则VB将连续执行完该过程的其余部分，返回调用过程的下一条语句并回复中断模式。（四）结束立即停止程序运行，返回设计模式。二、设置断点断点是程序中作了标记的位置。通过断点的设置，可以使程序在需要中断的地方自动停止执行，并进入中断模式。可在代码编辑器窗口，用鼠标单击要设置断点的代码行左边框位置的方法设置断点。（鼠标再
18、单击可清除）如图15-5所示。15-5所示 设置断点15.3.3 程序调试窗口VB提供的程序调试有三个窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。一、本地窗口显示当前过程中所有变量和活动窗体的所有属性值。Me代表当前窗体；单击“+”号或“-”号。在中断模式下，可自动显示出所有在当前过程中的变量声明及变量值。（单击调试工具栏上的“本地窗口”按扭或选择“视图”菜单的“本地窗口”显示），如图15-6所示。图15-6二、立即窗口可以检查某个属性或者变量的值，也可以对表达式求值，或为变量或属性赋值等。显示代码中正在调试的语句所产生的信息，或直接往窗口
19、中键入的命令所请求的信息。如图15-7所示。图15-7三、监视窗口对用户定义的表达式进行监视。“监视”窗口显示当前的监视表达式，如图15-8所示。在代码运行过程中可决定是否监控这些表达式的值。如图15-9所示：图15-8图15-915.4.1 设置错误陷阱一、出错处理所谓错误处理，就是允许编写的应用程序对错误进行响应。当一个错误发生了，程序能捕捉到这一错误，并可按程序设计者事先设计的方法来处理这一错误。二、设置错误陷阱在程序适当的地方加入一些语句来捕捉错误，一旦错误发生，程序的运行将转移到错误处理程序，根据所捕获到的错误代码告诉应用程序应当怎样操作。使用On Error语句可设置陷阱，捕捉错误
20、。On Error语句有如下形式：1、On Error Resume Next发生错误时，忽略错误行，继续执行下一语句。2、On Error GoTo 语句标号发生错误时，使程序转跳到语句标号所指示的程序块。3、On Error GoTo 0表示当发生错误时，不使用错误处理程序块。15.4.2 编写错误处理程序当程序中出现运行错误时，程序的运行将转到错误处理程序，错误处理程序根据可预知的错误类型决定采取何种措施。编写错误处理程序一般要使用到Err对象，它是一个系统对象，可以通过Err对象来获取错误的消息。当出现VB错误时，有关错误的信息存储在Err对象中。Err对象每次只维护一个错误的信息。当
21、出现新的错误时，Err对象将更新为新的错误信息。Err对象的缺省属性是Number属性。当运行时错误发生时，Err对象的属性被填入明确识别错误的信息以及处理这个错误所使用的信息。当On Error捕捉到错误后，Err对象的属性Number指示对应错误号。在错误处理程序块中可使用“Select Case Err.Number”或“If Err.Number=”语句编写出错处理。【例】下面的Test过程是Number 属性在错误处理过程中的典型用法。 Private Sub test()On Error GoTo outDim x, yx=1/y 引发一个“除以零”的错误Exit Subout:M
22、sgBox Err.NumberMsgBox Err.DescriptionIf Err.Number=11 Then 检查是否发生“除以零”的错误y=y+1End IfResumeEnd Sub15.4.3 退出错误处理在错误处理程序中，当遇到 Exit Sub、Exit Function、End Sub、End Function等语句时，将退出错误捕获。在错误处理程序结束后，要恢复原有的运行。可用Resume 语句。语法： Resume 重新执行产生错误的语句 Resume Next 重新执行产生错误的语句的下一语句 Resume 语句标号 语句标号初恢复执行一般来说，一些可以修正的错误，
23、可使用 Resume，而在错误处理程序不能修正错误时使用 Resume Next或Resu10.1.1 由普通窗体创建自定义对话框对话框是应用程序在执行过程中与用户进行交流的窗口。在VB中，可以利用系统提供的通用对话框，也可以根据需要自己设计对话框。由普通窗体创建自定义对话框：设计步骤 ：1、窗体：工程添加窗体。2、窗体定义成对话框风格。例如：不能移动、改变尺寸、最大或最小化例如：BorderStyle设置为1单边框，不能改变大小；ControlBox设置为False删除控制菜单框； MaxButton设置为False删除最大化按钮；MinButton设置为False删除最小化按钮。3、在对话
24、框上添加按钮，如“确定”与“取消”按钮。4、在对话框上添加其它控件。5、在适当的位置编写显示对话框的代码。两种显示方式：模式对话框与无模式对话框。 显示模式对话框模式对话框在焦点可以切换到其它窗体或对话框之前要求用户必须作出响应以关闭对话框，如单击“确定”按钮、“取消”按钮或者直接单击“关闭”按钮。其显示方法为：窗体名.Show vbModal或：窗体名.Show 1 显示无模式对话框无模式对话框的焦点可以自由切换到其它窗体或对话框，而无需用户关闭当前对话框，其显示方法为：窗体名.Show vbModeless或：窗体名.Show 0或：窗体名.Show例如： Form2.Show vbMod
25、alForm2.Show vbModeless为确保对话框可以随其父窗体的最小化而最小化，随其父窗体的关闭而关闭，需要在Show方法中定义父窗体。例如：Private Sub Command1_Click（）Form2.Show vbModeless, Form1End Sub6、编写从对话框退出的代码可使用Hide方法或UnLoad语句来关闭自定义对话框，其格式为：Me.Hide 或： .Hide 或： UnLoad 例如：Unload Form2或：Form2.Hide例如：设计对话框Form2如图10-1所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，
26、单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框。图10-1对话框Form2代码如下：Private Sub Command1_Click（）On Error GoTo ErrorHandler 设置错误陷阱FName=Trim（Text1.Text）If Option1.Value=True Then a=Shell（FName, 1） If Option2.Value=True Then a=Shell（FName, 3）If Option3.Value=True Then a=Shell（FName, 2）Exit SubErrorHand
27、ler：MsgBox 不能运行该程序, , 注意Resume Next 从产生错误的语句之后开始运行 End SubPrivate Sub Command2_Click（）Unload MeEnd Sub10.1.2 使用对话框模板创建对话框Visual Basic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等，如图10-2所示：图10-2当用户选择“登录对话框”，即可创建一个如图10-3所示的登录对话框。图10-3在该窗体的模块
28、中，系统已有一段程序代码：Public LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()设置全局变量为 false不提示失败的登录LoginSucceeded=FalseMe.HideEnd SubPrivate Sub cmdOK_Click()检查正确的密码If txtPassword=password Then将代码放在这里传递成功到 calling 函数设置全局变量时最容易的LoginSucceeded=TrueMe.HideElseMsgBox 无效的密码，请重试!, , 登录txtPassword.SetFocusSend
29、Keys Home+EndEnd IfEnd Sub用户可以通过对以上代码的修改，来将此窗体作为自己的登陆对话框。10.2.1 “打开”“另存为”对话框VB提供了一组基于Windows的常用的标准对话框界面，用户可以充分利用通用对话框（Common Dialog）控件在窗体上创建6种标准对话框，它们分别为打开（Open）、另存为（Save As）、颜色（Color）、字体（Font）、打印机（Printer）和帮助（Help）对话框。程序设计中如果所有的对话框都由设计人员来完成，将会耗费大量的时间，而利用系统提供的通用对话框则可以节省很大的工作量。通用对话框不是标准控件，因此使用前需要先把通用
30、对话框控件添加到工具箱中，操作步骤为：1、选择“工程”菜单中的“部件”命令打开部件对话框，如图10-4所示。图10-42、在控件标签中选定“Microsoft Common Dialog Control 6 0”。3、最后选择“确定”按钮退出。经过上面的操作后，通用对话框控件就出现在控件工具箱中，如果需要使用上面的某种对话框，我们就可以像使用标准控件一样把它添加到窗体中。在设计状态，窗体上显示通用对话框图标，但在程序运行时，窗体上不会显示通用对话框，直到在程序中用 Action属性或Show方法激活而调出所需的对话框。通用对话框仅用于应用程序与用户之间进行的信息交互，是输入输出界面，不能实现打
31、开文件、存储文件、设置颜色、字体打印等操作。如果想要实现这些功能还得靠编程实现。一、通用对话框的基本属性（一）基本属性Name是通用对话框的名称属性，Index是由多个对话框组成的控件数组的下标。Left和Top表示通用对话框的位置。（二）Action功能属性该属性直接决定打开何种类型的对话框。0None：无对话框显示。1Open：打开文件对话框。2Save As：另存为对话框。3Color：颜色对话框。4Font：字体对话框。5Printer：打印机对话框。6Help：帮助对话框。该属性不能在属性窗口内设置，只能在程序中赋值，用于调出相应的对话框。（三）DialogTitle（对话框标题）属
32、性该属性是通用对话框标题属性，可以是任意字符串。（四）CancelError属性该属性表示用户在与对话框进行信息交互时，按下“取消”按钮时是否产生出错信息。True：表示按下对话框中“取消”按钮时，便会出现错误警告。False（缺省）：表示按下对话框中的“取消”按钮时，不会出现错误警示。对话框被打开后，有时为了防止用户在未输入信息时便使用取消操作，则可用该属性设置出错警告。当该属性设为True时，用户对对话框中的“取消”按钮一经操作，自动将错误标志Err置为32755（CDERR-CANCEL），供程序判断。该属性值在属性窗口及程序中均可设置。在通用对话框的使用过程中，除了上面的基本属性外，每
33、种对话框还有自己的特殊属性。这些属性可以在属性窗口中进行设置，也可以在通用对话框控件的属性对话框中设置。对窗体上的通用对话框控件单击鼠标右键，在弹出的快捷菜单中选择“属性”即可调出通用对话框控件属性对话框，如图10-5所示。该对话框中有5个标签，可以分别对不同类型的对话框设置属性。例如，要对字体对话框设置，就选定字体标签。图10-510.2.1 “打开”“另存为”对话框二、使用通用对话框的方法在实际应用中，除了可以通过对通用对话框的Action属性设置明确对话框的类型外，还可以使用VB提供的一组方法来打开不同类型的通用对话框。这些方法如下：ShowOpen：打开对话框。ShowSave：另存为
34、对话框。ShowColor：颜色对话框。ShowFont：字体对话框。ShowPrinter：打印机对话框。ShowHelp：帮助对话框。如果在程序中有下面的语句：Commondialog1.ShowOpen或Commondialog1.Action=1在运行到上面的语句时，系统就会调出“打开”对话框。三、“打开”对话框在程序运行时，通用对话框的Action属性被设置为1，就立即弹出“打开”对话框如图10-6所示。打开文件对话框并不能真正打开一个文件，它仅仅提供一个打开文件的用户界面，供用户选择所要打开的文件，打开文件的具体工作还是要通过编程来完成。图10-6对于“打开”文件对话框，如图10-
35、6所示，主要有下面几项属性需要设置。 对话框标题（DialogTitle）属性 返回或设置该对话框标题栏所显示的字符串。 文件名称（FileName）属性 返回或设置用户要打开或保存的文件名（含路径）。 文件标题（FileTitle）属性 返回要打开或保存文件的名称（没有路径）。 初始化路径（InitDir）属性 初始打开或保存的文件路径。 过滤器（Filter）属性 返回或设置在对话框的类型列表框中所显示的文件类型。 标志（Flags）属性 为“打开”对话框返回或设置选项。 缺省扩展名（DefaulText）属性 确定保存文件的缺省扩展名。 文件最大长度（MaxFileSize）属性 返回或
36、设置使用通用对话框控件被打开的文件名的最大尺寸。 过滤器索引（FilterIndex）属性 表示用户在文件类型列表框选定了第几组文件类型。 CancelError属性 表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。 10.2.1 “打开”“另存为”对话框四、“另存为”对话框“另存为”对话框是当Action为2时的通用对话框，如图10-7所示。它为用户在存储文件时提供了一个标准用户界面，供用户选择或键入所要存入文件的驱动器、路径和文件名。同样，它并不能提供真正的存储文件操作，储存文件的操作需要编程来完成。图10-7“另存为”对话框所涉及的属性基本上和打开对话框一样，只是还
37、有一个DefaulText属性，它表示所存文件的缺省扩展名。【例】设计一个窗体，包含1个文本框（Text1）和6个分别为 “打开”（cmdOpen）、“另存为”（cmdSave）、“颜色”（cmdColor）、“字体”（cmdFont）、“打印”（cmdPrinter）和“帮助”（cmdHelp）命令按钮，如图10-8所示。本例中仅涉及前两种对话框的使用，当用户要求单击“打开”就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；当单击“另存为”就打开另存为对话框。用户输入文件名后，便可以新的文件名保存文本框的内容。图10-8“打开”按钮的单击事件过程如下：Private Su
38、b cmdOpen_Click()On Error Resume Next 当出现错误时，不提示，继续执行下一语句Dim StrTxt$CommonDialog1.DialogTitle=通过对话框示例打开对话框CommonDialog1.InitDir=c:CommonDialog1.Filter=Word文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*CommonDialog1.FilterIndex=2Text1.Text=CommonDialog1.ShowOpen 或使用 CommonDialog1.Action=1Open Common
39、Dialog1.FileName For Input As #1If Err.Number=0 Then 如果打开文件正确Do While Not EOF(1)Line Input #1, StrTxtText1=Text1+StrTxt+vbCrLfLoopClose #1End IfEnd Sub“另存为”按钮的单击事件过程如下：Private Sub cmdSave_Click()Dim i As IntegerCommonDialog1.DialogTitle=通过对话框示例另存为对话框CommonDialog1.InitDir=c:CommonDialog1.Filter=Word文
40、档(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*CommonDialog1.FilterIndex=2CommonDialog1.DefaultExt=*.TxtCommonDialog1.ShowSaveCommonDialog1.Action=2Open CommonDialog1.FileName For Output As #1For i=1 To Len(Text1)Print #1, Mid$(Text1, i, 1);Next iClose #1End Sub10.2.2 “颜色”对话框许多Windows应用程序都有颜色对话框，使用户能
41、够自己选择所需的颜色。当通用对话框的Action属性值为3时，就会产生“颜色”对话框，如图10-9所示。图10-9在10.2.1字体“对话框”知识点的例中，“颜色”按钮的单击事件过程如下：Private Sub cmdColor_Click()CommonDialog1.ShowColor或使用CommonDialog1.Action=3 Text1.ForeColor=CommonDialog1.Color 设置文本框的前景色End Sub 10.2.3 “字体”对话框为了方便Windows应用程序的设计，VB允许自己根据需要设计字体对话框。当通用对话框的Action属性值为4时，定义并打开
42、一个“字体”对话框，如图10-10所示。图10-10对于“字体”对话框有下列重要属性。1、Color属性选定字体的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。2、FontName属性选定的字体名称。3、FontSize属性选定的字体大小。4、FontBold、FontItalic、FontStrikethru、FontUnderline属性字体是否选定“粗体”、“斜体”、“删除线”、“下划线”。5、Min、Max属性选定的字体的最大、最小范围。6、Flags属性用来规定“字体”对话框的外形。在10.2.1字体“对话框”知识点的例中的“字体”按钮的单击事件过程如下：
43、Private Sub cmdFont_Click()CommonDialog1.Flags=cdlCFScreenFonts Or cdlCFEffectsCommonDialog1.Max=100CommonDialog1.Min=1CommonDialog1.ShowFontCommonDialog1.Action =4Text1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDi
44、alog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineEnd Sub10.2.4 “打印”对话框“打印”对话框是当Action为5时的通用对话框，是一个标准打印对话窗口界面，如图10-11所示。“打印”对话框并不能处理打印工作，仅仅是一个供用户选择打印参数的界面，所选参数存于各属性中，再通过编程来处理打印操作。图10-11对于“打印”对话框，除了基本属性之外，还有下列重要属性：1、Copies（复制份数）属性指定要打印文档的份
45、数。2、FromPage（起始页号）、Topage（终止页号）属性指定从第几页打印到第几页。在10.2.1字体“对话框”知识点的例中的“打印”按钮的单击事件过程如下：Private Sub cmdPrinter_Click()Dim i As IntegerCommonDialog1.ShowPrinterCommonDialog1.Action=5For i=1 To CommonDialog1.CopiesPrinter.Print Form1.CaptionNext iPrinter.EndDoc 结束打印End Sub10.2.5 “帮助”对话框“帮助”对话框是当Action为6时的通用对话框，是一个标准的帮助窗口，可以用于制作应用程序的在线帮助。“帮助”对话框不能制作应用程序的帮助文件，只能将已制作好的帮助文件从磁盘中提取出来，并与界面连接起来，达到显示并检索帮助信息的目的。对于“帮助”对话框，除了基本属性之外，还有下列重要属性：1、HelpCommand（帮助命令）属性返回或设置需要的联机帮助的类型。2、HelpFile（帮助文件）属性返回或设置一个字符串表
个人主页
