【VB开源代码栏目提醒】：网学会员VB开源代码为您提供VB程序设计基础 - 培训资料参考，解决您在VB程序设计基础 - 培训资料学习中工作中的难题，参考学习。

    

主讲人马正元山东大学物理微电子学院2012-2-52第五讲2012-2-53本讲要点VB程序中的基本语句从立即窗口中输出数据使用标签控件输出数据使用文本框控件输出数据使用消息对话框显示信息使用图片框控件输出数据2012-2-543.6 一、VB程序中语句的规定VB中的语句可以由VB中关键字、事件、属性、函数和运算符组成并能由VB编辑器识别的指令。

    语句是进行具体操作的指令一个语句若在一行中写不完可以有续行。

    VB中用分行符“_”把一个长语句分成若干行来存放。

    一行中也可以写多个语句每个语句之间用““分隔。

    但并不提倡这种写法。

    2012-2-55二、命令格式中的符号约定为了便于解释语句、方法和函数本书中语句、方法和函数格式中的符号采用统一的约定在各语句、方法、函数的语法格式和功能说明中。

    尖括号里面的内容为必选参数。

    方括号里面的内容为可选参数。

    竖线为多取一表示符竖线分隔多个选项中必须选择一项。

    大括号包含多中取一的各项。

    …逗号加删节号表示同类项目的重复出现。

    …删节号表示省略了在当前叙述中不涉及的内容。

    2012-2-56三、用Print方法直接从窗体中输出数据使用Print方法可以在窗体上输出文本字符串或表达式的值其格式如下.Print说明可以是窗体、图片框PictureBox、立即窗口和打印机Printer如果省略对象名称则直接从窗体上输出。

    可以是一个或多个表达式表达式可为数值表达式或字符串。

    如果省略表达式列表则输出一个空行。

    2012-2-57输出表达式若为多项则各项之间应用逗号或分号分隔。

    若各输出项以逗号分隔则各项按标准格式输出若各输出项之间用分号分隔则各输出项连续输出。

    输出语句若以逗号结束则下一个输出按标准格式输出。

    若以分号结束则下一个输出语句紧接着上一个输出项输出。

    2012-2-58Print1、Tab函数该函数用于对输出进行定位。

    语法TabnTab函数用来指定从对象或窗口的哪一个位置开始输出信息。

    其中参数的作用是在显示或打印列表中的下一个表达式之前移动的列数若省略此参数则将插入点移到下一个打印区的起点。

    如果当上一行的打印位置大于n则Tab将打印位置移动到下一个输出行的第n列上。

    如果n小于1则Tab将打印位置移到列1。

    如果n大于输出行的宽度则Tab函数使用以下公式计算下一个打印位置n Mod Width2012-2-59一个Print方法中可以使用多个Tab函数这时每个Tab函数对应一个输出项它们之间用分号隔开。

    例Print Tab10100在第10 个位置上输出数值100。

    2、Spc函数该函数与Tab函数的作用类似但有一点区别即函数的n参数表示的是两个输出项之间的间隔而Tab函数的n参数表示的是要输出的数据与对象左端之间的间隔。

    3、空格函数Spacen用来返回n个小空格。

    2012-2-510例在一个窗体的Click事件中输入如下代码。

    Private Sub Form_ClickFontSize 16PrintTab10vb程序设计PrintPrintTab5VisualBasicSpc5程序设计PrintPrintTab5123345.45Spc6abcdefghijkPrintPrintTab5VisualBasic程序设计Print2012-2-511PrintVisualBasic程序设计PrintPrintVisualBasic程序设计EndSub运行结果如下图所示2012-2-512四、窗体的介绍窗体是设计工程的主界面。

    启动VB后出现第一个画面后选新建工程“标准EXE”按“打开”按钮就会出现一个窗体。

    用户在这个窗体上设计界面。

    窗体有自己的属性、事件和方法。

    窗体的属性窗体的属性可在“属性”窗口中完成也可在程序代码中设置。

    窗体有50个左右的属性。

    常见窗体的属性如下页表3-10所示2012-2-513窗体的属性2012-2-514【例3-2】下面的工程将在窗体上输出“新年好”三个字要求输出字体为“隶书”字大小为60设窗体的称字的背景颜色为绿色字的颜色称前景色为红色。

    工程设计步骤如下启动VB在出现的“新建工程”中选“标准EXE”工程。

    立即出现一个窗体该程序只有一个窗体就可以了。

    设置窗体的属性如表3-11所示:编写单击窗体事件执行的代码:运行工程。

    2012-2-515表3-11例3-2 中窗体的属性的设置程序代码编写如下页所示2012-2-516PrivateSubForm_ClickDimaAsStringtextWAsInteger_textHAsIntegerFontName隶书设置字体的名称FontSize60设置字体的大小设置字体的颜色为红色ForeColorQBColor12设置背景的颜色绿色BackColorQBColor3a新年好2012-2-517textWTextWidtha/3textHTextHeighta/2设置输出内容的X坐标CurrentXScaleWidth/3–textW设置输出内容的Y坐标CurrentYScaleHeight/2–textH从窗体上输出a的内容“新年好”PrintaEndSub2012-2-518运行工程。

    按工具栏中的执行按钮或按F5键。

    则首先出现一个黄色的窗口如图3-7左图所示用鼠标单击窗体后出现绿色窗体并在窗体中间位置显示三个红色的“新年好”。

    如下面右边图中所示。

    2012-2-5193-5 1设计工程界面在窗体设计器上填加一个标签控件和一个计时器控件。

    2设置窗体及控件的属性设置窗体的Caption属性为“变化的窗体和标签”。

    设置标签的Caption属性为“欢迎学习VB6.0”设置其Autosize属性为True。

    设置计时器控件Interval属性为600。

    2012-2-5203设计工程界面和属性设置标签控件的“设置标签控件的Caption属性为“欢迎学习VB60“2012-2-5214编写代码如下Private Sub Timer1_TimerIf Label1.FontSize 12 ThenLabel1.ForeColor RGB255 0 0Label1.FontSize 25Label1.FontBold FalseForm1.Width Form1.Width 100Form1.Height Form1.Height 100Form1.Left Form1.Left -50Form1.Top Form1.Top -502012-2-522ElseLabel1.ForeColor RGB0 0 255Label1.FontSize 12Label1.FontBold TrueForm1.Height Form1.Height -100Form1.Width Form1.Width -100Form1.Left Form1.Left 50Form1.Top Form1.Top 50End IfEnd Sub2012-2-5235按F5键运行结果如下图所示2012-2-524标签是提供在窗体的相对位置上输出文本的区域但该区域不能进行编辑。

    因而常用来标识没有标题Caption属性的控件例如给文本框控件TextBox加标题。

    标签控件也常用来输出文本。

    标签控件的属性标签控件大约有37个属性这些属性大多是所有控件都具有的共有属性例如Caption、BackColor、Visible、Left、Top、Height、Width等在窗体中已经介绍过下面只介绍标签中特有的属性如表3-12所示。

    2012-2-525表3-12 标签的属性2012-2-526标签常用的方法标签常用的方法只有Move。

    它的格式为Movelefttopwidthheight其中lefttopwidthheight分别表示移动到目的位置的坐标和大小其中left为必要参数其他三个参数为可选项。

    标签的常用事件标签常用的事件Change、Click、DblClick。

    2012-2-5273-31-413-62012-2-528图3-6 设置不同的标签2012-2-529对象属性属性值说明Form1Caption标签控件演示窗体的标题Label1AppearanceBorderstyleAlignmentAutosizeCaption0-Flat1-Opaqe0-LeftJustifyFalse标签1平面的无边框设文本的对齐方式为左对齐。

    不能自动调节标签的大小。

    标签1的标题2设置窗体和各控件的属性如下表3-12所示。

    2012-2-530对象属性属性值说明Label2AppearanceBorderstyleAlignmentAutosizeCaption1-3D1-FixedSingle1-RightJustifyFalse标签2三维的有边框为凹形的设文本的对齐方式为右对齐。

    不能自动调节标签的大小.标签2的标题2012-2-531对象属性属性值说明Label3AppearanceBorderstyleAlignmentAutosizeCaption1-3D1-FixedSingle0-LeftJustifyTrue标签3三维的有边框为凹形的设文本的对齐方式为左对齐。

    能自动调节标签的大小。

    标签3的标题2012-2-532对象属性属性值说明Label4AppearanceBorderstyleAlignmentAutosizeCaption1-3D1-FixedSingle2-CenterFalse标签4三维的有边框为凹形的设文本的对齐方式为中心对齐。

    不能自动调节标签的大小标签4的标题Command1Caption标签1Command1的标题Command2Caption标签2Command2的标题Command3Caption标签3Command3的标题Command4Caption标签4Command4的标题2012-2-5333.Private Sub Command1_ClickLabel1.Caption 新年快乐End SubPrivate Sub Command2_ClickLabel2.Caption 新年快乐End SubPrivate Sub Command3_ClickLabel3.Caption 新年快乐End Sub2012-2-534Private Sub Command4_ClickLabel4.Caption 新年快乐End SubPrivate Sub Command5_ClickUnload MeEnd SubPrivate Sub Form_LoadLabel1.Caption Label2.Caption Label3.Caption Label4.Caption End Sub4.按F5键运行结果如下页所示。

    2012-2-5352012-2-5363-4工程设计步骤如下启动VB在新建工程中选“标准EXE”工程。

    出现第一个窗体在此窗体上建立用户工程界面先在窗体上添加一个标签控件Label1和两个命令按钮Command1和Command2。

    然后用复制和粘贴技术在窗体建立第二个标签控件Label2。

    两个标签是重叠在一起的。

    设置窗体和控件的属性如表3-13所示2012-2-537表3-13 “立体字演示”工程属性设置另外设置Label1和Label2的Caption属性都为“计算机世界”而Command1和Command2的Caption 属性分别为“阴影字”和“立体字”。

    2012-2-5383编写单击Command1命令按钮“阴影字”所执行的代码PrivateSubCommand1_ClickLabel1.VisibleTrue标签的顶部向下移动50Label1.TopLabel2.Top50标签的左边界向右移动50Label1.LeftLabel2.Left50EndSub2012-2-5393编写代码如下编写单击Command1命令按钮“立体字”所执行的代码PrivateSubCommand2_Click标签的顶部向下移动70Label1.TopLabel2.Top70标签的左边界向右移动70Label1.LeftLabel2.Left70EndSub2012-2-540运行结果。

    按F5键运行工程结果如图3-8所示图3-8 立体字程序运行结果2012-2-541443-142012-2-542表3--14文本框控件的属性2012-2-543作为Windows应用程序所不可缺少的一部分文本框不仅是一个非常灵活的数据输出和输入工具而且还可以响应多种事件下面分别介绍。

    Change 事件当文本框控件中的文本发生变化时引发的事件。

    Click事件当单击文本框控件引发的事件。

    DblClick事件当双击文本框控件引发的事件。

    Keypress事件当有键按下所引发的事件。

    2012-2-5443-6设计步骤如下启动VB在新建工程中选“标准EXE”工程在窗体上添加四个标签控件、四个文本控件和两个命令按钮工程界面设计如图3-9左图所示。

    属性设置如下表3-15所示。

    表3-152012-2-545编写代码如下编写单击命令按钮“计算”执行的代码如下PrivateSubCommand1_Click说明变量abcd都为字符型DimaAsSinglebAsSingle_sAsSinglecAsSingles0c1将文本框图的数字变为数值型aValText1.TextbValText2.Text2012-2-546sabcabText3.TextsText4.TextcEndSub编写单击命令按钮“退出”执行的代码。

    PrivateSubCommand2_ClickUnloadMeEndSub2012-2-547PrivateSubForm_LoadText1.Text12Text2.Text15End Sub F53-93-92012-2-548图3-9 用文本框输出文本的界面设置与运行结果2012-2-549MsgBox MsgBox MsgBox函数MsgBox函数用来在对话框中显示消息等待用户单击按钮并返回一个整数告诉用户单击了哪一个按钮。

    语法MsgBoxbuttons_titlehelpfilecontext2012-2-550说明1prompt必选项。

    是字符串表达式为显示在对话框中的消息。

    prompt的最大长度为1024个字符由所用字符的宽度决定。

    2buttons可选项。

    数值表达式是值的总和指定显示按钮的数目及形式使用的图标样式缺省按钮是什么以及消息框的强制回应等。

    该参数由四类数值相加得到。

    如果省略则buttons的缺省值为0buttons参数见表3-16。