第二章VB程序的界面设计

第2章VB程序的界面设计&2.1窗体对象打开VB时或新建一个工程时，VB都自动创建了一个窗体对象。我们可以根据需要创建多个窗体对象。方法1：在工程菜单中选择添加窗体。方法2：在工具栏中选择添加窗体。方法3：在工程资源管理器窗口中用鼠标 右健单击窗体，鼠标指针指向添 加，选择添加窗体。一、窗体对象的创建二、窗体对象的属性Name(名称)：系统自动会为每个窗体命名为 Form1、Form2、Form3、……。 当我们要改它们的名称时(尽量 改)，建议用窗体的实际意义加前 缀Frm组成。如一个启动窗体， 它的名称可以用FrmStartUp命名。Caption属性：窗体标题。它是出现在标题栏中 的文字。BackColor属性：窗体的背景色。ForeColor属性：窗体的前景色。BorderStyle:窗体边框风格。Enabled:活动属性。决定对象是否能被事件激活。 缺省值为“True”,表示能被事件激活。 “False”表示不能被事件激活Icon:图标属性。设置运行时窗体最小化时所显 示的图标。或在标题栏上所看到的图标。Left、Top、Height、Width:决定窗体的位置与 大小。Font:设置窗体所显示文字的字体、字型和字号。三、窗体对象的方法Hide:隐藏Move:移动Print:打印PrintForm:打印窗体Refresh:刷新Show:显示四、窗体对象的事件Click:单击事件DblClick:双击事件Load:装载事件Resize:窗体被改变大小时，触发本事件。Activate:窗体变为当前窗口时，触发本事件。Deactivate:窗体失去当前窗口时，触发本事件。五、设置对象的属性和方法格式：选中对象后直接在属性窗口中为属性设置值方法1：方法2：用语句设置属性值Object.Property=Expression对象名属性名称设置新值设置属性：例：单击窗体时，窗体上显示“欢迎使用Visual BASIC”，窗体的标题栏上显示“实验1”使用方法的格式：Object.Method[Arg1,Arge2,...]对象名方法名参数答：OptionExplicit打开代码窗口，编写如下程序PrivateSubForm_Click()Form1.FontSize=22Form1.Font="黑体"Form1.Print"欢迎使用VisualBasic"Form1.Caption=“实验1"EndSub六、窗体的显示、隐藏使用Show与Hide方法可以显示或隐藏窗体例：创建二个窗体，在窗体1上建三个按钮，窗 体对象界面如下窗体1的属性设置如下：Name：FrmStartUpCaption:窗体1一个按钮的属性设置如下：Name：CmdOpenCaption:显示窗体2另一个按钮的属性设置如下：Name：CmdCloseCaption:隐藏窗体2第三个按钮的属性设置如下：Name：CmdExitCaption:退出窗体2的属性设置如下：Name：FrmWorkCaption:窗体2编写程序代码：PrivateSubCmdOpen_Click()FrmWork.ShowEndSubPrivateSubCmdClose_Click()FrmWork.HideEndSubPrivateSubCmdExit_Click()EndEndSub演示程序七、窗体的Print方法Print方法用于将文本输出到窗体上。Print方法的格式为：[Object.]Printp1<s>p2<s>...输出项。可以是常量；变量；表达式等输出项之间的分隔符，可以是逗号或分号1、输出布局：a、标准格式(也叫分区格式)---- 用“,”作为输出项之间的分隔 符，每个输出项占据一个显 示区(一个显示区占14个字符 位置)。b、紧凑格式(也叫自由格式)----用“;”作为输出 项之间的分隔符，每个分号都使 后面的一个输出项紧靠前面的输 出项。2、数值的组成符号位数值部分一个空格例：Print5[[5例：Print-5[-5输出为：输出为：3、续行当一个Print语句的末尾是一个“,”或“;”时，表示下一个Print语句中的输出项应接在本语句输出项的后面输出。4、空行当一个Print语句无输出项时，将空一行。例： Print“12345678901234” Print1,2;3 Print Print“a”;“b”; Print“c”,“d”&3.2命令按钮控件命令按钮(CommandButton)在工具箱中的按钮工具命令按钮的属性：1、名称：缺省值为Command1、 Command2、……建议以 按钮的实际意义加前缀 Cmd 组成。例：两个按钮，一个是加1，一个是退出。所以 两个按钮的名称分别命名为CmdAdd1,CmdExitOptionExplicitPrivateSubCmdAdd1_Click()StaticxAsIntegerx=x+1Text1.Text=xEndSubPrivateSubCmdExit_Click()EndEndSub窗体模块的对象为：窗体模块的代码为：2、Caption属性：缺省值为Command1、 Command2、……它是按钮上的标题 显示文字，建议以按钮的实际意义说 明组成。3、Enabled属性：值为True或False，设置或返 回一个值，用来确定按钮是否能够对 用户产生的事件作出反应。例：在一个窗体上建立一个加1按钮，一个减1按 钮，在按加1按钮时(结果在0~10之间),不允 许按减1按钮，在按减1按钮时(结果在10~0之 间)不允许按加1按钮。OptionExplicitDimxAsIntegerPrivateSubCmdAdd1_Click()x=x+1Text1.Text=xIfx>=10ThenCmdAdd1.Enabled=FalseCmdSub1.Enabled=TrueEndIfEndSubPrivateSubCmdExit_Click()EndEndSubPrivateSubCmdSub1_Click()x=x-1Text1.Text=xIfx<=0ThenCmdAdd1.Enabled=TrueCmdSub1.Enabled=FalseEndIfEndSubPrivateSubForm_Load()CmdAdd1.Enabled=TrueCmdSub1.Enabled=FalseEndSub4、Visible属性：值为True或False，决定按钮是 否可见。5、Cancel属性：值为True或False，决定按钮是 否是取消按钮。即Cancel属性设置 为True时，表示按键盘上的Esc键就 是单击此按钮。6、Default属性：值为True或False，决定按钮是 否是Enter键。即Default属性设置 为True时，表示按键盘上的Enter键 就是单击此按钮。7、TabIndex属性：设置或返回父窗体中按钮对 象的Tab顺序。(值为0~n-1，n为窗体 中控件对象的个数)8、TabStop属性：值为True、False。指出用户 是否可以使用Tab键来选定对象。 TabStop设置为True,表示可以选定对象9、创建键盘快捷方式：利用Caption属性，在标题 显示文字某个字符前加连字符(&)，这时 可看见该字符出现一个下划线，运行时， 只要按Alt+带下划线字符，就能选定该 按钮。10、Value属性：在设计时不可用。True表示已选 择该按钮；False（缺省值）表示没有选 择该按钮。如果在代码中设置Value属 性值为True，表示激活该按钮的Click事 件。11、选定命令按钮： A、用鼠标单击按钮。 B、按Tab键，将焦点移到该按钮上，然后按 Enter键或空格键。 C、若按钮有快捷方式，则只要按快捷键即可 (Alt+带下划线字符)。 D、若按钮是默认命令按钮，则只要Enter键 即可。 E、若按钮是默认取消按钮，则只要Esc键 即可。&2-3标签(Label)在工具箱中的标签工具标签的属性：1、名称：缺省值为Label1、 Label2、……。建议以 标签的实际意义加前缀 Lbl组成。2、Caption属性：缺省值为Label1、 Label2、……。设置或返 回标题栏的文本。3、Alignment属性：缺省值为0-Left Justify。设置或返回标签标 题栏文本的对齐方式。0-LeftJustify表示左对齐1-RightJustify表示中对齐2-Center表示右对齐4、AutoSize属性：缺省值为False。设置标 签是否能水平自动调整大小以显 示所有的内容。5、WordWrap属性：缺省值为False。设置 标签是否能垂直自动调整大小以 显示所有的内容。6、UseMnemonic属性：缺省值为True。设 置返回标签的Caption属性中能否 出现下划线。 True-------在&字符后的字符出 现下划线。 False-------在&字符后的字符不出 现下划线，&显示在标题栏中&2-4文本框(TextBox)在工具箱中的文本框工具文本框的属性：文本框用来输入或显示(输出)文字信息1、名称：缺省值为Text1、Text2、……。 建议以文本框的实际意义加前缀txt 组成。2、Text属性：输入或输出到文本框的文字。 缺省时，可输入2048个字符。若将 MultiLine属性设置成True，则可 输入多达32K的字符。3、MultiLine属性：缺省值为False。决定文 本框是否允许接受多行文本。4、ScrollBar属性：缺省值为0-Nore。决定文 本框是否加上水平滚动条或垂直滚 动条。例：在文本框中输入多排文字PrivateSubCommand1_Click()Text1="VisualBasic"&_vbCrLf&"123456"EndSub创建如下用户界面：将文本框的MultiLine属性设置为True编写如下程序：5、Alignment属性：在MultiLine属性为True 时，此属性起作用。 0-LiftJustify 1-RightJustify 2-Center6、PasswordChar属性：创建密码文本框。在 此属性中加一个“*”,则运行时此文 本框中无论输入什么字符，都只显 示*号。例：创建一个密码窗口。窗体模块的对象为：窗体模块的代码为：OptionExplicitPrivateSubCmdExit_Click()EndEndSubPrivateSubCmdOK_Click()

IfTxtPass.Text="123456"ThenFrmPassWord.HideFrmMain.Show

ElseMsgBox("密码错误，请重输入")TxtPass.SetFocusTxtPass=""ExitSub

EndIfEndSub7、MaxLength属性：设置文本框中最大可以 输入的字符数。若超过则系统发出 嘟嘟声。 缺省值是0------输入的字符取决于 系统对内存所建 立的值。8、Locked属性：决定文本框中的文本是否可 编辑。 缺省值为False-----文本可编辑9、取消文本框中的击键值 对于文本框中所输入字符，可以利 用KeyPress事件加以过滤或限制。例：计算两个数的平均数窗体模块的对象为：Txtnum1Txtnum2TxtResult三个文本框的名字分别为：OptionExplicitPrivateSubTxtnum1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0'0代表长度为0的字符串BeepEndIfEndSubPrivateSubCmdOk_Click()TxtResult=(Val(TxtNum1)+Val(TxtNum2))/2EndSubPrivateSubTxtnum2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0'0代表长度为0的字符串BeepEndIfEndSub窗体模块的代码为：&2-5复选框(CheckBox)在工具箱中的复选框工具复选框的属性：复选框用来在多个选项中选择一个或多个选项。1、名称：缺省值为Check1、 Check2、……。建议以文本 框的实际意义加前缀chk 组成。2、Value属性：是默认属性，决定该复选框 是否被选中 0---Unchecked(缺省值) 没选中 1---Checked 选中 2---Grayed 暗淡其中 0可用VbUnChecked代替 1可用VbChecked代替 2可用VbGrayed代替例：调查体育爱好OptionExplicitPrivateSubCommand1_Click()Dimx1,x2,x3AsString

IfCheck1=vbCheckedThenx1=Check1.Caption

Elsex1=""

EndIf

IfCheck2=vbCheckedThenx2=Check2.Caption

Elsex2=""

EndIf

IfCheck3=vbCheckedThenx3=Check3.Caption

Elsex3=""

EndIfLabel2.Caption=""Label2.Caption=Text1+"爱好"+x1+x2+x3EndSub&2-6选项按钮(OptionButton)在工具箱中的选项按钮工具(单选项)选项按钮用来在多个选项中选择一个选项。创建选项按钮组：要将选项按钮分组，只要将选项按钮创建在控件容器中。例：在窗体上的选项按钮都是一组。在框架中的选项按钮也是一组。在同一组选项按钮中只能选择一个选项。选项按钮的属性：1、名称：缺省值为Option1、Option2、……。 建议以选项按钮的实际意义加前缀 Opt组成。2、缺省属性：为Value。值为 True------选中 False-----没选中例：调查体育爱好OptionExplicitPrivateSubCommand1_Click()Dimx1,x2,x3,xbAsString

IfText1=""ThenMsgBox("请输入姓名"):Text1.SetFocus:ExitSub

IfCheck1=vbCheckedThen

x1=Check1.Caption

Else

x1=""

EndIf

IfCheck2=vbCheckedThenx2=Check2.Caption

Else

x2=""

EndIf

IfCheck3=vbCheckedThenx3=Check3.Caption

Elsex3=""

EndIfIfOption1=TrueThenxb=Option1.CaptionElseIfOption2=TrueThenxb=Option2.CaptionEndIfLabel2.Caption=""Label2.Caption=Text1+xb+"爱好"+x1+x2+x3EndSub&2-7框架(Frame)在工具箱中的框架工具框架用来为一些控件提供可标识的分组。在框架中绘制控件1、先绘制框架，然后在框架中绘制 其它控件。这时移动框架，框架 中的其它控件一起移动。2、先绘制框架，如果在框架外绘制 其它控件，然后移入框架，这时 框架与框架内的其它控件将分别 移动。&2-8列表框(ListBox)在工具箱中的列表框工具列表框用来为用户提供选项列表。在Windows95/98/2000中出现的列表框列表框的属性：1、名称：缺省值为List1、List2、……。建议以 列表框的实际意义加前缀Lst组成。2、Text属性：它是默认属性，表示列 表框中 选中的列表项目。例：图示列表框中，当我们选中第二行时，列表 框的Text属性就是222PrivateSubList1_Click()PrintList1.TextEndSub3、List属性：列表框中的内容实际上是一个 字符串数组中的内容，数组的每一项对应列表框中的每一行内容。所以List属性的语法格式为 Object.List(Index)[=String] Index为0---列表框中表项数量-1代表数组中的下标例：Object.List(Index)选中列表项中下标指示的那一项的内容PrivateSubList1_Click()PrintList1.List(1)EndSub例：Object.List(Index)[=String]直接给列表项中下标指示的那一项赋新值PrivateSubList1_Click()List1.List(1)="VB"EndSub注意：如果下标(Index)超出范围将出现下列错误。OptionExplicitPrivateSubCommand1_Click()StaticiAsIntegerIfi>List1.ListCount-1Theni=0EndIfText1=List1.List(i)i=i+1EndSubPrivateSubForm_Load()List1.AddItem“轻化1201"List1.AddItem“轻化1202"List1.AddItem“轻化1203"EndSub例：一个列表框中有三行内容，按下按钮在 文本框中轮流显示列表框中的表项4、ListCount属性：该属性计算出列表框中 表项的数量。5、ListIndex属性：该属性返回或设置控件中 当前选择项目的索引(下标),在设计 时不可用。object.ListIndex[=index]语法格式：指定当前选择项目的下标值为0---ListCount-1-1表示没选中例：object.ListIndex返回一个值，它是被选中的表项的下标。范围在0---ListCount-1之间PrivateSubList1_Click()PrintList1.ListIndexEndSub例：object.ListIndex=Index设置一个值，直接选中数组下标所表示的列表框表项。PrivateSubList1_Click()List1.ListIndex=0EndSub注意：如果下标(Index)超出范围将出现错误。PrivateSubList1_Click()List1.ListIndex=5EndSub例：错误信息为：OptionExplicitPrivateSubForm_Load()List1.AddItem"一年级"List1.AddItem"二年级"List1.AddItem"三年级"List1.AddItem"四年级"List1.AddItem"五年级"EndSubPrivateSubList1_DblClick()PrintList1.ListIndexPrintList1.TextPrintList1.List(List1.ListIndex)List1.ListIndex=0EndSub例：理解ListIndex 属性6、Selected属性：该属性返回或设置列表框 控件中的一个项的选择状态,在设计 时不可用。Object.Selected(index)[=Boolean]语法格式：控件中选择项目的下标True或False例：Object.Selected(index)返回True或False表示下标指示的那个项有没有被选中例：Object.Selected(index)=Boolean设置True或False，直接选中下标指示的那个项；或直接取消下标指示的那个项。7、MultiSelect属性：该属性返回或设置一个值， 用来表示列表框中的项能否进行复选。0 (缺省值)不允许复选。1 简单复选。即用鼠标单击或空格键 进行选中或取消。2 扩展复选。用鼠标配合Shift或Ctrl键进 行选择。方法与Windows98中的选择一 样。二、列表框的事件：列表框的常用事件为Click和DblClickClick------表示单击列表框中的某一项DblClick------表示双击列表框中的某一项三、列表框的方法：1、AddItem方法：它用来向列表框中添 加项目。语法格式：object.AddItemitem,index添加到列表框中的项目指示项目添加到列表框中的位置。它是可选的2、RemoveItem方法：从列表框中删除以 “Index”为目标的项目。语法格式：object.RemoveItemindex指示列表框中需删除项的位置。它是必选项下标例：创建一个按钮和一个列表框，按按钮时向 列表中添加项目。双击列表框中的某一项 时，则将它删除。3、Clear方法：从列表框中删除所有项目。OptionExplicitPrivateSubCommand1_Click()List1.AddItem"一年级"List1.AddItem"二年级"List1.AddItem"三年级"List1.AddItem"四年级"List1.AddItem"五年级"EndSubPrivateSubList1_DblClick()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand2_Click()List1.ClearEndSub&2-9组合框(ComboBox)在工具箱中的组合框工具组合框是文本框与列表框的结合，用来为用户提供建议性的选项列表。一、组合框的属性：1、名称：缺省值为Combo1、 Combo2、……。建议以组合框 的实际意义加前缀Cbo组成。2、Text属性：它是默认属性，表示组合 框中选中的文本或列表项目。object.Text[=string]语法格式：3、Style属性：该属性选择组合框中的样式。0 vbComboDropDown

下拉式组合框它是默认设置。包括文本框和能下拉的列表。即可在文本部分输入文字，又可打开下拉式列表，选择列表项目。1 vbComboSimple

简单组合框包括文本框和不能下拉的列表。可以在文本中输入、也可以在列表中选择2 vbComboDrop-DownList

下拉式列表包括文本框和能下拉的列表。它不能在文本中输入、只能在列表中选择4、往组合框中添加项目：(a)、使用List属性：修改列表项目或在下拉列表中往后添加项目语法格式：object.List(index)[=string]下标(b)、使用AddItem方法：语法格式：object.AddItemitem,index添加到组合框中的项目指示项目添加到组合框中的位置。它是可选的5、往组合框中的文本框部分添加文本：在Style属性=0或Style属性=1时，使用Text属性：语法格式：object.Text=string在Style属性=2时，Text属性只能是只读6、组合框中删除项目：使用RemoveItem方法：语法格式：object.RemoveItemindex指示组合框中需删除项的位置。它是必选项7、Clear方法：从组合框中删除所有项目。8、ListCount属性：该属性计算出组合框中 表项的数量。9、ListIndex属性：该属性返回或设置组合框 中当前选择项目的索引(下标)。用 它判断一个项的位置。在设计时不 可用。object.ListIndex[=index]语法格式：指定当前选择项目的下标值为0---ListCount-1-1表示没选中例：object.ListIndexobject.ListIndex[=index]返回选中项的下标值例：直接选中下标指示的项。&2-10驱动器列表框(DriveListBox)在工具箱中的驱动器列表框工具驱动器列表框用来为用户提供有效的磁盘驱动器选择。一、驱动器列表框的属性：1、名称：缺省值为Drive1、Drive2、……。 建议以驱动器列表框的实际意 义加前缀Drv组成。2、Drive属性：它是默认属性，返回或 设置运行时选择的驱动器。 在设计时不可用。object.Drive[=drive]语法格式：例：Drive1.Drive=“c:”表示选中磁盘驱动器c:3、ListCount属性：返回驱动器列表框中列 表的个数(驱动器的个数,包括软驱、 硬盘、光驱)。4、List属性：返回驱动器列表框中列表的某 个选项。在运行时只读。object.List(index)语法：例：Drive1.Drive=drive1.list(1)表示选中驱动器列表框中排列第二行的磁盘驱动器例：PrintDrive1.Drive显示当前磁盘驱动器例：创建驱动器列表框，当按下按钮时在驱动器列表框中显示光盘驱动器。PrivateSubCommand1_Click()Drive1.Drive=Drive1.List(Drive1.ListCount-1)EndSub5、ListIndex属性：该属性返回或设置控件中 当前选择项目的索引(下标)。用它判 断一个项的位置。在设计时不可用。object.ListIndex[=index]语法格式：指定当前选择项目的下标值为0---ListCount-1-1表示没选中&2-11目录列表框(DirListBox)在工具箱中的目录列表框工具目录列表框用来为用户显示目录和路径。一、目录列表框的属性：1、名称：缺省值为Dir1、Dir2、……。 建议以目录列表框的实际意义 加前缀Dir组成。2、Path属性：它是默认属性，返回或 设置运行时选择的当前路径。 在设计时不可用。object.Path[=pathname]语法格式：例：创建驱动器列表框和目录列表框，当改变驱动器列表框中的驱动器时，在目录列表框显示相应的文件夹。PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub3、ListCount属性：返回目录列表框中当前目 录的子目录个数。4、List属性：返回目录列表框中列表的某 个目录选项。在运行时只读。object.List(index)语法：指定当前选择目录的下标范围为-n到ListCount-1当前选中的目录下标为-1,紧邻其上的为-2,-3,…紧邻其下的目录下标依次为0,1,2,3,……例：PrivateSubDrive1_Change()Dir1=Drive1PrintDir1.ListCountPrintDir1.List(0)EndSub5、ListIndex属性：该属性返回或设置控件中 当前选择项目(目录)的索引(下标)。 用它判断一个项的位置。在设计时不 可用。object.ListIndex[=index]语法格式：指定当前选择项目的下标值为0---ListCount-1-1表示没选中例：PrivateSubDrive1_Change()Dir1=Drive1PrintDir1.ListCountPrintDir1.List(0)Dir1.ListIndex=3EndSub&2-12文件列表框(FileListBox)在工具箱中的文件列表框工具文件列表框用来为用户显示某个目录中的文件名。一、文件列表框的属性：1、名称：缺省值为File1、File2、……。 建议以文件列表框的实际意义加前缀Fil组成。2、FileName属性：它是默认属性，返 回或设置所选文件的路径和文 件名。在设计时不可用。object.FileName[=pathname]语法格式：字符串表达式，指定路径和文件名3、Path属性：返回或设置当前路径。在设计 时不可用。4、ListCount属性：返回文件列表框中当前目 录中匹配Pattern属性设置的文件 个数。4、Pattern属性：返回或设置一个值，该值指示在运行时显示在FileListBox控件中的文件名object.Pattern[=Value]语法格式：一个用来指定文件规格的字符串表达式，例如"*.*"或"*.FRM"。缺省值是"*.*"它返回所有文件的列表。除使用通配符外，还能够使用分号(;)分隔的多种模式。例如，"*.exe;*.bat"将返回所有可执行文件和所有MS-DOS批处理文件的列表。5、List属性：返回文件列表框中某个文件的选项。 在运行时只读。object.List(index)语法：指定当前选择文件的下标范围为0到ListCount-16、ListIndex属性：返回或设置控件中当前选择 文件的索引(下标)。用它判断一个项 的位置。在设计时不可用。object.ListIndex[=index]语法格式：指定当前选择项目的下标值为0---ListCount-1-1表示没选中例：组合使用文件系统控件。调用硬盘上的某 个文件，并将它显示在窗口中。PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1=Dir1.PathEndSubPrivateSubFile1_DblClick()PrintFile1.filename

IfRight(Dir1,1)<>"\"thenPrintDir1+"\"+File1

elsePrintDir1+File1

EndIfEndSub&2-13图形框(PictureBox)在工具箱中的图形框工具图形框用来为显示图形。一、图形框的属性：1、名称：缺省值为Picture1、 Picture2、……。建议以图形框 的实际意义加前缀Pic组成。2、Picture属性：它是默认属性，返回 或设置控件中要显示的图片。object.Picture[=picture]语法格式：需要加载到图形框中的图形(指明图形所在的位置----路径与文件名)。它所能使用的图形格式为Bitmap,icon,metafile,GIF,JPEG在设计时：只要在属性窗口，使用Picture 属性，指明图形文件的位置即可在运行时：使用上述语法格式，外加 LoadPicture函数，即能加载图片例：在窗体中创建一个图形框，一个按钮。当按 钮按下时，显示图片。OptionExplicitPrivateSubCommand1_Click()Picture1.Picture=LoadPicture("e:\练习\练习20\fruit.jpg")EndSub例：制作电子像册OptionExplicitDimiAsIntegerPrivateSubCommand1_Click()DimtAsStringi=i+1

Ifi>=6Theni=1t="e:\"+Trim(Str(i))+".jpg"Picture1.Picture=LoadPicture(t)EndSubPrivateSubCommand2_Click()DimtAsStringi=i-1Ifi<=0Theni=5t="e:\"+Trim(Str(i))+".jpg"Picture1.Picture=LoadPicture(t)EndSub3、AutoRedraw属性：返回或设置从图 形方法到持久图形的输出。object.AutoRedraw[=boolean]True---自动重画功能有效PrivateSubC1_Click()P1.AutoRedraw=FalseEndSubPrivateSubC2_Click()P1.AutoRedraw=TrueEndSubPrivateSubForm_Load()P1.ScaleHeight=100P1.ScaleWidth=100EndSubPrivateSubP1_Click()DimIP1.ForeColor=RGB(255,0,0)ForI=5To95Step10P1.Line(I,0)-(I,100)NextEndSubFalse---自动重画功能无效OptionExplicitPrivateSubCommand1_Click()Picture1.PrintTab(2);"12"Picture1.PrintTab(2);"123"Picture1.PrintTab(2);"1234"EndSub1二、图形框的方法：1、Print方法：在图形框中输出文字。例：在图形框中输出文字2、Circle方法：在图形框中输出一个圆或 部分圆或椭圆。语法格式：object.Circle[Step](x,y),radius,[color,start,end,aspect]必需的。Single(单精度浮点数)，圆、椭圆或弧的中心坐标。必需的。Single(单精度浮点数)，圆、椭圆或弧的半径。可选项。圆的轮廓的RGB颜色。当弧、或部分圆或椭圆画完以后，start和end指定(以弧度为单位)弧的起点和终点位置。以弧度为单位圆的纵横尺寸比。3、Line方法：在图形框中输出一条线或一个矩形。语法格式：object.Line[Step](x1,y1)-[Step](x2,y2),[color],[B][F]直线或矩形的起点坐标。直线或矩形的终点坐标。直线或矩形的颜色。可用RGB函数设定以起点到终点之间画矩形如果使用了B选项，则F选项规定矩形以矩形边框的颜色填充。不能不用B而用F。如果不用F光用B，则矩形用当前的FillColor和FillStyle填充。FillStyle的缺省值是Transparent例：在一个图形框中画一个圆，一个椭圆，一 条线，一个矩形。OptionExplicitPrivateSubCommand1_Click()Picture1.Circle(1200,1000),750Picture1.Circle(1200,2800),500,,,,0.5Picture1.Line(2500,1500)-(3500,1500)Picture1.Line(3500,2000)-(4000,3000),,BEndSub4、PaintPicture方法：在图片框中的指定位置画 图形。语法格式：object.PaintPicturepicture,x1,y1,width1,_ height1,x2,y2,width2,height2,opcodePicture---------需要调入图形框中的图形。x1,y1---------必需的。均为单精度数值，指定在 object

上绘制picture

的目标坐标(x-轴 和y-轴)。Width1-------可选的。对调入图形框中的图形宽 度进行压缩或拉伸。省略则使用原宽度。height1-------可选的。对调入图形框中的图形 高度进行压缩或拉伸。省略则使用原高度。例:使用一个按钮,利用PaintPicture方法在图形框中显示/隐藏一幅照片OptionExplicitDimxAsBooleanPrivateSubCommand1_Click()

Ifx=TrueThenPicture1.PaintPictureLoadPicture("d:\test\1.jpg"),110,110x=False

ElsePicture1.Clsx=True

EndIfEndSubPrivateSubForm_Load()x=TrueEndSub程序代码:&2-14图像框(Image)在工具箱中的图像框工具图像框用来显示图像。一、图像的属性：1、名称：缺省值为Image1、 Image2、……。建议以图像的 实际意义加前缀Img组成。2、Picture属性：它是默认属性，返回 或设置控件中要显示的图像。object.Picture[=picture]语法格式：需要加载到图像框中的图像(指明图像所在的位置----路径与文件名)。它所能使用的图像格式为Bitmap,icon,metafile,GIF,JPEG在设计时：只要在属性窗口，使用Picture 属性，指明图像文件的位置即可在运行时：使用上述语法格式，外加 LoadPicture函数，即能加载图像例：在窗体中创建一个图像框，一个按钮。当按 钮按下时，显示图像。OptionExplicitPrivateSubCommand1_Click()Image1.Picture=LoadPicture("e:\练习\练习20\fruit.jpg")EndSub图形框(PictureBox)与图像框(Image)的区别1、图像框只能显示它所支持的图像(例：位 图文件.bmp;图标文件.ico;图元文件 .wmf；增强型图元文件.emf；JPEG文件； GIF文件。2、图像框可以伸展图片的大小使之适合控件 的大小。而图形框(PictureBox)控件不行。3、图像框(Image)执行的速度比图形框(PictureBox)快。4、图形框(PictureBox)有PaintPicture方法，而图像框 (Image)没有。而图形框除了支持图像框的所有文件外，还能绘制各种线条组成的图形(例：线条；圆；矩形等)&2-15定时器(Timer)在工具箱中的定时器工具定时器用来为用户提供在一定时间间隔内执行一次代码操作。一、定时器的属性：1、名称：缺省值为Timer1、 Timer2、……。建议以定时器 的实际意义加前缀Tmr组成。2、Enabled属性：它是默认属性，返 回或设置一个值，该值用来确 定定时器对象是否能够对用户 产生的事件作出反应。object.Enabled[=boolean]语法格式：值为True---- (默认值)，允许定时器对事件作 出反应False---- 不允许定时器对事件作出反应3、Interval属性：返回或设置对Timer控件 的定时间隔（毫秒）。object.Interval[=milliseconds]语法格式：数值表达式，指定毫秒数，范围是0---65535毫秒，倒计时例：制作一只蝴蝶飞舞的简单动画。OptionExplicitDimi,intleft,flagAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=42EndSub窗体模块的代码为：PrivateSubTimer1_Timer()intleft=intleft+20

Ifintleft>Picture1.WidthThenintleft=0

EndIfPicture1.Cls

Ifflag=0Thenflag=1Picture1.PaintPictureLoadPicture("e:\bfly1.bmp"),intleft,1000

Elseflag=0Picture1.PaintPictureLoadPicture("e:\bfly2.bmp"),intleft,1000

EndIfEndSub&2-16菜单概述菜单是现代应用程序中不可缺少的用户界面之一。它的主要作用是： 1、提供了人机对话的界面，以便让使用者选择应用系统的各种功能。 2、管理应用系统，控制各种功能模块的运行。在Windows98/2000/xp中典型的菜单有二种： 1、下拉式菜单 如：File文件 2、弹出式菜单(上下文菜单)如：按鼠 标右键。下面看一下菜单的实例(Windows98/2000/xp中的记事本)：菜单栏访问键菜单下拉菜单分隔符条快捷键命令&2-17创建菜单打开VB中的“菜单编辑器”（在工具菜单下），或使用快捷键Ctrl+E。出现如下窗口。出现在菜单中的文本代码中引用的菜单名字使选中命令往前提升一层使选中命令往后挪一层使选中命令与前一个命令对调使选中命令与后一个命令对调对某个命令设置快捷键跳到下一个命令在选中命令前面插入一个命令将选中命令删除例：创建与记事本一样的菜单打开菜单编辑器，输入如下内容。“&”后跟字母表示创建访问键对比记事本，在菜单“文件”下还有下拉式菜单。在菜单编辑器中继续添加命令。这时菜单已经创建成如下形式：在以上菜单中继续添加分隔符条在菜单编辑器中继续添加：分隔符条在“编辑”菜单下继续添加下拉式菜单，并为有的菜单命令添加快捷键。最后出现的菜单为：&2-18创建工具栏工具栏为Windows98/2000应用程序常用的标准功能。它提供菜单命令的快速访问。一、使用控件创建工具栏1、首先在工具栏中添加“Toolbar控件”与 “ImageList控件”方法：将鼠标移到工具箱上，单击鼠 标右键，选择“部件”。在控件标 签下选择“Microsoft Windows CommonControls6.0”,单击确定 按钮。2、将“Toolbar控件”与“ImageList 控件”放到窗体中Toolbar控件ImageList控件Toolbar对象ImageList对象3、将按钮图形文件加到“ImageList控件”中。 此控件主要是管理图像文件。方法：选中ImageList控件，单击鼠标 右键，选择“属性”，出现以下窗 口。选择“图像”标签”。单击“插入图片”按钮，在某个文件夹下找到要使用的图片，并为每个图片指定一个关键字。单击“确定”按钮。4、使用“Toolbar控件”建立按钮。 方法：选中“Toolbar控件”，单击鼠标右键， 选择“属性”。出现如下窗口。在“通用”标签下，在“图像列表”下拉列表中选择ImageList对象。在“按钮”标签下，单击“插入按钮”，在关键字处输入“Open”,在工具提示文本中输入“打开”，在图像中输入“1”，单击“应用”按钮。这时在工具栏按钮上出现图像。重复以上步骤，将能创建多个工具栏按钮。在程序代码中出现的按钮名称。(必须要)5、输入各个按钮的程序代码在设计状态，双击“Toolbar”对象，出现代码窗口。PrivateSubToolbar1_ButtonClick(ByValButton_AsComctlLib.Button)

SelectCaseButton.Key

Case"print"… ‘执行打印程序代码

Case"open"… ‘执行打开文件程序代码

EndSelectEndSub&2-19InputBox函数在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])语法格式：InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])Title----可选的。显示在对话框标题栏中的字符串。 若省略则显示应用程序名。Default----可选的。显示文本框中的字符串表达 式，在没有其它输入时作为缺省值。如果 省略default，则文本框为空。Xpos----可选的。数值表达式，成对出现，指定对 话框的左边与屏幕左边的水平距离。如果 省略xpos，则对话框会在水平方向居中。Prompt----必须的。提示信息字符串。如果prompt

包含多个行，则可在各行之间用回车符 (Chr(13))、换行符(Chr(10))或回车 换行