1、V i s u a l B A S I C 程序设计程序设计第第6章窗体和常用内部控件章窗体和常用内部控件6.1 窗体窗体6.2 标准控件标准控件（通用属性、方法和事件）（通用属性、方法和事件）6.3标准控件的使用标准控件的使用命令按钮、显示和输入文本的控件、命令按钮、显示和输入文本的控件、提供选择的控件、图像框和图片框控件提供选择的控件、图像框和图片框控件6.4 其他控件其他控件计时和计时和OLE控件控件1第六章第六章 窗体和常用内部控件窗体和常用内部控件 窗体窗体(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台 窗体本身是一个对象，又是其他对象的载窗体本身是一个对象，又是其
2、他对象的载体或容器体或容器 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的;一个一个程序可以有多个窗体程序可以有多个窗体 窗体分为单文档窗体窗体分为单文档窗体(SDI)(SDI)和多文档窗体和多文档窗体(MDI)(MDI)6.1.1 6.1.1 窗体的结构窗体的结构 6.1.2 6.1.2 添加和移出窗体添加和移出窗体6.1 窗体2第六章第六章 窗体和常用内部控件窗体和常用内部控件6.1.3 6.1.3 窗体的基本属性窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口中设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现手工设置，也可以在程序运行
3、时由代码实现 一些常用的窗体属性：一些常用的窗体属性：NameName属性：属性：用于设置窗体的名称，通过该名称引用于设置窗体的名称，通过该名称引用窗体对象及其属性、事件和方法。用窗体对象及其属性、事件和方法。CaptionCaption属性属性：用于设置窗体标题栏上的标题内：用于设置窗体标题栏上的标题内容。容。Appearance Appearance属性：属性：用于设置窗体的外观是平面还用于设置窗体的外观是平面还是三维的是三维的 BackColorBackColor和和ForeColorForeColor属性：设置窗体的背景色属性：设置窗体的背景色和前景色和前景色BorderStyleBo
4、rderStyle属性属性:返回或设置对象的边框样式返回或设置对象的边框样式3第六章第六章 窗体和常用内部控件窗体和常用内部控件ControlBoxControlBox、MaxbuttonMaxbutton、MinbuttonMinbutton属性属性:用于控制是否有控制菜单、最大化、最小化按钮。用于控制是否有控制菜单、最大化、最小化按钮。EnabledEnabled属性：属性：用于确定窗体是否能够对用户产生的用于确定窗体是否能够对用户产生的事件做出反应。事件做出反应。HeightHeight和和WidthWidth属性：属性：确定窗体的初始高度和宽度，确定窗体的初始高度和宽度，单位是缇。单位
5、是缇。LeftLeft和和TopTop属性：属性：确定窗体的左上角在屏幕上的横、确定窗体的左上角在屏幕上的横、纵坐标。单位是缇。纵坐标。单位是缇。PicturePicture属性：属性：用于在窗体上设置要显示的图形。用于在窗体上设置要显示的图形。对象对象.Picture=Picture=LoadPictureLoadPicture(文件名文件名)Visible(Visible(可见性可见性)：设置对象的可见性，默认值为设置对象的可见性，默认值为True WindowStateWindowState属性：属性：用于返回或设置窗体运行时的状用于返回或设置窗体运行时的状态态4第六章第六章 窗体和常用
6、内部控件窗体和常用内部控件6.1.4窗体的事件窗体的事件 与窗体有关的常用事件有以下几种。与窗体有关的常用事件有以下几种。1.鼠标事件鼠标事件 (1)Click(单击单击)事件事件 包含包含3个事件个事件 (2)DblClick(双击双击)事件包含事件包含6个事件个事件 (3)MouseMove(鼠标移动鼠标移动)事件事件 (4)MouseDown(鼠标按下鼠标按下)事件事件 (5)MouseUp(鼠标释放鼠标释放)事件事件 5第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.2】编写程序在窗口标题栏中显示当前的坐编写程序在窗口标题栏中显示当前的坐标位置标位置Private Sub
7、Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Form1.Caption=鼠标事件演示鼠标事件演示 水平坐标水平坐标=&X&垂直坐标垂直坐标=&YEnd Sub6第六章第六章 窗体和常用内部控件窗体和常用内部控件2.键盘事件键盘事件 (1)KeyDown(键按下键按下)事件事件 (2)KeyUp(键弹起键弹起)事件事件 (3)KeyPress(按键按键)事件：当按下键盘上的事件：当按下键盘上的某个健时，将触发某个健时，将触发KeyPress事件。其事件事件。其事件过程的格式为：过程的格式为：P
8、rivate Sub 对象对象_KeyPress(KeyAscii As Integer)End Sub 参数参数KeyAscii返回所按键的返回所按键的ASCII码码 7第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.3】编写程序利用键盘编写程序利用键盘“”和和“”实现窗口实现窗口的变小和变大的变小和变大Private Sub Form_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case Asc()Me.Width=Me.Width*0.9 Me.Height=Me.Height*0.9 Case Asc()Me.Widt
9、h=Me.Width*1.1 Me.Height=Me.Height*1.1 End SelectEnd Sub8第六章第六章 窗体和常用内部控件窗体和常用内部控件3.其他事件其他事件 (1)Load(装载装载)事件事件【例例6.4】设计程序设计程序,使窗体一打开就在屏幕的右上使窗体一打开就在屏幕的右上角角 Private Sub Form_Load()Form1.Top=0 Form1.Left=Screen.Width-Form1.Width End Sub (2)Unload(卸载卸载)事件事件 (3)Activate(活动活动)、Deactivate(非活动非活动)事件事件 (4)Pa
10、int事件事件 当移动窗体、改变窗体大小，最大化，最小化，窗体当移动窗体、改变窗体大小，最大化，最小化，窗体被其他窗体遮住后再次显示，等等时都会发生被其他窗体遮住后再次显示，等等时都会发生 9第六章第六章 窗体和常用内部控件窗体和常用内部控件 (1)Show(1)Show方法：用于快速显示一个窗体，使该窗方法：用于快速显示一个窗体，使该窗体变成活动窗体体变成活动窗体 (2)Hide (2)Hide方法方法:用于隐藏用于隐藏formform对象对象,将其将其VisibleVisible属属性设置为性设置为False.False.(3)Print(3)Print方法：用于在窗体上输出表达式的值方法
11、：用于在窗体上输出表达式的值 (4)Cls(4)Cls方法：用于清除运行时在窗体中显示的文方法：用于清除运行时在窗体中显示的文本或图形本或图形.Picture.Picture属性和控件不受影响属性和控件不受影响.激活前把激活前把AutoDrawAutoDraw属性设置为属性设置为true.true.(5)Move(5)Move(移动移动)方法：用于移动并改变窗体或控方法：用于移动并改变窗体或控件的位置和大小件的位置和大小 Form1.move,Form1.move,top,width,heighttop,width,height Form1.Move Form1.Left+500,Form1.
12、Top+500,Form1.Width*26.1.5 6.1.5 窗体的方法窗体的方法10第六章第六章 窗体和常用内部控件窗体和常用内部控件6.2 标准控件标准控件复选框复选框(CheckBox)图片框图片框(pictureBox)命令按钮命令按钮(CommandButton)文本框文本框(TextBox)单选按钮单选按钮(OptionButton)列表框列表框(ListBox)驱动器列表框驱动器列表框(DriveListBox)文件列表框文件列表框(FileListBox)直线直线(Line)数据控件数据控件(Data)标签标签(Label)框体框体(Frame)组合框组合框(ComboBo
13、x)定时器定时器(Timer)目录列表框目录列表框(DirListBox)形状形状(Shape)图像图像(Image)OLE对象对象(OLE)垂直滚动条垂直滚动条(VScrollBar)水平滚动条水平滚动条(HScrollBar)11第六章第六章 窗体和常用内部控件窗体和常用内部控件ActiveX控件控件:一般以很多一般以很多*.ocx文件独立存在，是文件独立存在，是对标准控件的扩充，不会自动显示在工具箱对标准控件的扩充，不会自动显示在工具箱中需用利用菜单对应的文件加载到工程中中需用利用菜单对应的文件加载到工程中“工程工程”“部件部件”12第六章第六章 窗体和常用内部控件窗体和常用内部控件6.
14、2.1 6.2.1 控件的通用属性控件的通用属性1.Name属性属性(1)运行时是只读的运行时是只读的(2)缺省名称缺省名称(3)以字母开始，最长以字母开始，最长40个字符，可包括字母、数字个字符，可包括字母、数字和下划线，不能包括标点符号或空格和下划线，不能包括标点符号或空格(允许汉字允许汉字)(4)所有控件都有此属性所有控件都有此属性2.Caption属性属性(1)标题文本属性标题文本属性(2)Label控件标题大小没有限制。其他有标题的控控件标题大小没有限制。其他有标题的控件，标题大小限制为件，标题大小限制为255个字符。个字符。(3)注意与注意与Name属性、属性、Text属性的区别属
15、性的区别13第六章第六章 窗体和常用内部控件窗体和常用内部控件3.Height、Width、Left、Top属性属性 用于设置对象的高度、宽度和控件距离容器用于设置对象的高度、宽度和控件距离容器的左边距和顶边距。的左边距和顶边距。4.BackColor、ForeColor属性属性 设置控件的背景色和前景色设置控件的背景色和前景色 如设置窗体如设置窗体form1的背景色为红色：的背景色为红色：(1)form1.backcolor=vbred(2)form1.backcolor=RGB(255,0,0)(3)form1.backcolor=&HFF14第六章第六章 窗体和常用内部控件窗体和常用内部
16、控件5.Font属性属性格式格式:.Font.:Name、Size、Bold、Italic、Underline、Strikethrough例例:Form1.Font.Size=14 Command1.FontItalic=True6.Enabled属性属性 决定控件是否能够对用户产生的事件作出响应决定控件是否能够对用户产生的事件作出响应 7.Visible属性属性 注意注意:如果在属性窗口中将控件的如果在属性窗口中将控件的Visible属性设属性设置为置为False，则控件在设计窗体上仍是可见的，仅则控件在设计窗体上仍是可见的，仅在运行时才不可见。在运行时才不可见。15第六章第六章 窗体和常用
17、内部控件窗体和常用内部控件6.2.2 控件的通用事件控件的通用事件1.Click事件和事件和DblClick事件事件2.Change事件事件3.GotFocus和和LostFocus事件事件【例例6.9】焦点事件实例。当文本获得焦点时，文焦点事件实例。当文本获得焦点时，文本背景为白色，处于激活状态，当失去焦点时，背本背景为白色，处于激活状态，当失去焦点时，背景为浅灰色。景为浅灰色。Private Sub Text1_GotFocus()Text1.BackColor=&HFFFFFF End Sub Private Sub Text1_LostFocus()Text1.BackColor=&H
18、C0C0C0 End Sub16第六章第六章 窗体和常用内部控件窗体和常用内部控件4.KeyPress事件事件5.KeyDown和和KeyUp事件事件6.MouseMove事件事件7.MouseDown事件和事件和MouseUp事件事件17第六章第六章 窗体和常用内部控件窗体和常用内部控件6.2.3 控件的通用方法控件的通用方法1.Move方法方法功能：用于移动控件，或改变控件大小功能：用于移动控件，或改变控件大小语法：语法：Move Left,top,Width,Height【例例6.10】当按钮当按钮Cmd1Cmd1获得焦点时，按键盘获得焦点时，按键盘上任意字符键后使文本框保持原位置不变且
19、上任意字符键后使文本框保持原位置不变且扩大扩大1.51.5倍倍.Private Sub cmd1_KeyPress(KeyAscii As Integer)Text1.Move 4440,720,Text1.Width*1.5,Text1.Height*1.5End Sub18第六章第六章 窗体和常用内部控件窗体和常用内部控件2.Refresh方法方法用于窗体和控件的刷新用于窗体和控件的刷新下列情况使用下列情况使用Refresh方法方法(1)在另一个窗体被加载时显示一个窗体的全在另一个窗体被加载时显示一个窗体的全部部(2)更新诸如更新诸如FilelistBox控件之类的文件列表控件之类的文件列
20、表框的内容框的内容.(3)更新更新Data控件的数据结构控件的数据结构.3.Setfocus方法方法19第六章第六章 窗体和常用内部控件窗体和常用内部控件6.3 标准控件的使用标准控件的使用6.3.1 命令按钮控件命令按钮控件属性属性:Default:属性为属性为true时时,则该按钮为默认按钮则该按钮为默认按钮,回车回车相当于单击该按钮相当于单击该按钮.在一个窗体中在一个窗体中,只允许一个只允许一个命令按钮的命令按钮的Default属性设置为属性设置为true.Cancel:属性为属性为true时时,则该按钮为默认的取消按则该按钮为默认的取消按钮钮,按按ESC相当于单击该按钮相当于单击该按钮
21、.在一个窗体中在一个窗体中,只只允许一个命令按钮的允许一个命令按钮的Cancel属性设置为属性设置为true.20第六章第六章 窗体和常用内部控件窗体和常用内部控件Style:用来设置命令按钮的显示类型用来设置命令按钮的显示类型Standard:Graphical Picture:设置命令按钮中要显示的图形，但只有设置命令按钮中要显示的图形，但只有在在Style属性设置为时图形才能显示属性设置为时图形才能显示DownPicture:返回返回/设置按钮按下时显示的图形设置按钮按下时显示的图形,通过文件加载此图形通过文件加载此图形21第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.12
22、】两个命令按钮两个命令按钮,按钮一初始状态为可用按钮一初始状态为可用,按钮二初始状态为不可用按钮二初始状态为不可用,点击按钮一点击按钮一,按钮二变按钮二变为可用为可用,按钮一变为不可用按钮一变为不可用;点击按钮二点击按钮二,按钮一变按钮一变为可用为可用,按钮二变为不可用按钮二变为不可用Private Sub Command1_Click()Command1.Enabled=FalseCommand2.Enabled=TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled=FalseCommand1.Enabled=TrueEnd Sub2
23、2第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.13】在窗体上添加一个按钮在窗体上添加一个按钮,通过点击按钮通过点击按钮实现窗口的最大化和还原实现窗口的最大化和还原Private Sub Command1_Click()If Command1.Caption=最大化（最大化（&L）Then Me.WindowState=2 Command1.Caption=还原（还原（&B）Else Me.WindowState=0 Command1.Caption=最大化（最大化（&L）End IfEnd Sub23第六章第六章 窗体和常用内部控件窗体和常用内部控件6.3.2 6.3.2 显示
24、和输入文本的控件显示和输入文本的控件(Label(Label和和TextBoxTextBox)1.标签的属性标签的属性(1)Caption:标签的标题。标签的标题。(2)Alignment:确定标签标题的对齐方式。确定标签标题的对齐方式。(3)AutoSize:确定标签是否随标题自动调整大小。确定标签是否随标题自动调整大小。(4)BorderStyle:确定标签的边框。确定标签的边框。0 无边框；无边框；1 有边框。有边框。(5)BackStyle:指定背景是透明或不透明。指定背景是透明或不透明。1不透明；不透明；0透明。透明。(6)WordWrap:指示是否随标题沿垂直方向自动扩展。指示是否
25、随标题沿垂直方向自动扩展。True标签将随标题在垂直方向变化。标签将随标题在垂直方向变化。(此时此时AutoSize属性值应设置为属性值应设置为True)False标签不能在垂直方向上扩展。标签不能在垂直方向上扩展。24第六章第六章 窗体和常用内部控件窗体和常用内部控件【例【例3】测试标签的边框样式和透明样式。测试标签的边框样式和透明样式。在窗体上放置一标签，显示在窗体上放置一标签，显示“Visual Basic程序设程序设计教程计教程”，放置四个命令按钮，放置四个命令按钮，Command1放在放在Command2上，上，Command3放在放在Command4上。运行上。运行时，单击相应按钮
26、，界面发生相应变化。时，单击相应按钮，界面发生相应变化。Label1Command2Command1Command3Command425第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub Command2_Click()Label1.BorderStyle=0 Command1.Visible=True Command2.Visible=FalseEnd SubPrivate Sub Command1_Click()Label1.BorderStyle=1 Command1.Visible=False Command2.Visible=TrueEnd Sub26第六章第六
27、章 窗体和常用内部控件窗体和常用内部控件Private Sub Command3_Click()Label1.BackStyle=1 Command3.Visible=False Command4.Visible=TrueEnd SubPrivate Sub Command4_Click()Label1.BackStyle=0 Command3.Visible=True Command4.Visible=FalseEnd Sub 27第六章第六章 窗体和常用内部控件窗体和常用内部控件2.文本框的属性文本框的属性(1)Text:返回或设置文本框显示的内容。返回或设置文本框显示的内容。例例:Tex
28、t1.Text=欢迎使用欢迎使用Visual Basic(2)MultiLine:决定是否可以显示多行文本决定是否可以显示多行文本。(3)PasswordChar:常用于输入口令。常用于输入口令。在文本框中键入字符显示为该指定的字符。在文本框中键入字符显示为该指定的字符。(此时此时MultiLine属性值应为属性值应为False)(4)ScrollBars:用于确定文本框是否带滚动条以及用于确定文本框是否带滚动条以及滚动条的方向滚动条的方向。(仅当仅当MultiLine属性值为属性值为True时才可以带滚动条时才可以带滚动条)28第六章第六章 窗体和常用内部控件窗体和常用内部控件(5)SelL
29、ength:在运行期返回或设置选择的字符数。在运行期返回或设置选择的字符数。例例:Text1.SelLength=Len(Text1.Text)表示选中文本框表示选中文本框Text1中所有字符。中所有字符。(6)SelStart:在运行期返回或设置当前选择文本的起在运行期返回或设置当前选择文本的起始位置。始位置。例例:Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。表示选择文本的起始位置从第一个字符开始。(7)Locked:指定运行时文本框内容是否可以编辑。指定运行时文本框内容是否可以编辑。False可以编辑可以编辑 True不可编辑不可编辑(只读只读)2.文本框的事
30、件和方法文本框的事件和方法 事件事件:Change、Click、DblClick、GotFocus、LostFocus、KeyPress等等 方法方法:SetFocus29第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.14】模拟会员信息登记模拟会员信息登记.在窗口在窗口FormTxtBox中输入相关信息，并做简单的中输入相关信息，并做简单的输入信息合法检查，在窗口输入信息合法检查，在窗口FormBack中输中输出合法信息出合法信息30第六章第六章 窗体和常用内部控件窗体和常用内部控件31第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub CmdClear_C
31、lick()TextID.Text=TextPassWord.Text=TextName.Text=TextMail.Text=TextResume.Text=End Sub32第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub CmdOK_Click()Dim TextPassWordLength As Integer Dim flag As Integer TextPassWordLength=Len(TextPassWord.Text)If(TextID.Text=Or TextPassWord.Text=_ Or TextName.Text=Or TextMail
32、.Text=_ Or TextResume.Text=)Then MsgBox(信息输入不完整！信息输入不完整！)TextID.SetFocus flag=0 Else 33第六章第六章 窗体和常用内部控件窗体和常用内部控件 If(TextPassWordLength 1:水平多列水平多列 MultiSelect 指示是否能多选指示是否能多选.0:(缺省缺省)不允许重选不允许重选 1:简单复选简单复选,鼠标单击或按下空格键在列表鼠标单击或按下空格键在列表框中选中或取消选中项框中选中或取消选中项 2:扩展复选扩展复选,按下按下Ctrl键或键或Shift键进行复选键进行复选.45第六章第六章 窗体
33、和常用内部控件窗体和常用内部控件Selected运行期用，用于选择某项运行期用，用于选择某项 如如List1.Selected(3)=True 选择第选择第4 4项项Sortedtrue:元素自动按字母顺序排序元素自动按字母顺序排序 False:元素按加入的先后顺序排序元素按加入的先后顺序排序3.3.事件事件:Click,DblClick,ChangeClick,DblClick,Change3.方法方法 AddItem向列表框中添加新的项目向列表框中添加新的项目 .AddItem ,项目项目为字符串表达式为字符串表达式,表示要加入的项目表示要加入的项目.索引索引为数值表达式为数值表达式,指新
34、增项目的位置指新增项目的位置.若为若为0,0,则将新项目插入到第一个位置则将新项目插入到第一个位置,若省略且若省略且SortedSorted属性为属性为False,False,则插入到最后一个位置则插入到最后一个位置;若若SortedSorted属性为属性为True,True,则插入到合适的排序位置则插入到合适的排序位置.46第六章第六章 窗体和常用内部控件窗体和常用内部控件RemoveItem从列表框中移除项目从列表框中移除项目 .RemoveItem 要删除列表框中所选的项目要删除列表框中所选的项目,程序段如下程序段如下:i=0Do While i=list1.listCount-1 if
35、 list1.Selected(i)=true then list1.RemoveItem i end if i=i+1LoopClear方法方法 .Clear如如List1.Clear.删除列表框中所有的项目删除列表框中所有的项目47第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.17】从一个列表框中选择城市名加入从一个列表框中选择城市名加入到另一个列表框中到另一个列表框中.48第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub Form_Load()List1.AddItem 昆明昆明 List1.AddItem 北京北京 List1.AddItem 上海
36、上海 List1.AddItem 济南济南 List1.AddItem 成都成都 List1.AddItem 长春长春 List1.AddItem 广州广州 List1.AddItem 珠海珠海 List1.AddItem 郑州郑州 List1.AddItem 香港香港 List1.AddItem 大连大连 List1.AddItem 贵阳贵阳End Sub49第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub List1_DblClick()List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubP
37、rivate Sub Command1_Click()List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.Text List2.RemoveItem List2.ListIndexEnd Sub50第六章第六章 窗体和常用内部控件窗体和常用内部控件五五 组合框组合框(ComboBoxComboBox)1.作用作用:允许从已有的选项中进行选择，还允许输入允许从已有的选项中进行选择，还允许输入列表中不包括的内容列表中不包括的内容
38、 列表框列表框和和文本框文本框的组合的组合 具有列表框和文本框的大部分属性和方法。具有列表框和文本框的大部分属性和方法。不同的属性如下：不同的属性如下：2.属性属性 Style外形外形 0下拉组合框下拉组合框(折叠折叠)1简单组合框简单组合框(不折叠不折叠)2下拉列表框下拉列表框(不能修改不能修改Text属性属性)Text 返回组合框中选定项目的值返回组合框中选定项目的值,设计时可修改设计时可修改51第六章第六章 窗体和常用内部控件窗体和常用内部控件3.事件事件 组合框的事件与组合框的事件与Style属性有关。属性有关。Style为为0时时:响应响应Click、Change、DropDown事
39、事件件 Style为为1时时:响应响应Click、DblClick、Change事件事件 Style为为2时时:响应响应Click、DropDown事件事件4.方法方法 AddItem:向组合框中添加新的项目向组合框中添加新的项目 .AddItem ,RemoveItem:从组合框中移除项目从组合框中移除项目 .RemoveItem Clear:清除组合框中的所有项目清除组合框中的所有项目 .Clear 52第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.19】组合框的应用组合框的应用Private Sub Combo1_Click()Text1.Text=Combo1.TextE
40、nd SubPrivate Sub Form_Load()Combo1.AddItem 北京北京 Combo1.AddItem 上海上海 Combo1.AddItem 天津天津 Combo1.AddItem 广州广州 Combo1.AddItem 昆明昆明 Combo1.AddItem 长沙长沙End Sub53第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.20】在窗体中输入个人信息在窗体中输入个人信息,单击确定单击确定按钮后按钮后,将个人信息显示在信息框中将个人信息显示在信息框中54第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub Form_Load()
41、Combo1.AddItem 正高正高 Combo1.AddItem 副高副高 Combo1.AddItem 中级中级 Combo1.AddItem 初级初级 Combo1.AddItem 无职称无职称 Combo1.Text=Combo1.List(0)Combo2.AddItem 研究生研究生 Combo2.AddItem 大学大学 Combo2.AddItem 大专大专 Combo2.AddItem 高中高中 Combo2.AddItem 初中初中 Combo2.Text=Combo2.List(0)End Sub55第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Su
42、b Command1_Click()p1=Text1.Text&p2=IIf(Option1.Value,男男,女女)&p3=Text2.Text&岁岁&p4=IIf(Option3.Value,已婚已婚,未婚未婚)&_&Chr(13)p5=职称：职称：&Combo1.Text&,p6=学历：学历：&Combo2.Text p=p1&p2&p3&p4&p5&p6 MsgBox p,vbOKOnly+vbInformation,_ Text1.Text&基本情况基本情况End Sub56第六章第六章 窗体和常用内部控件窗体和常用内部控件Private Sub Command2_Click()Un
43、load MeEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then Text2.SetFocus End IfEnd Sub57第六章第六章 窗体和常用内部控件窗体和常用内部控件六六 滚动条滚动条(HScroIIBarHScroIIBar、VScrollBarVScrollBar)1.作用作用 常用于附在某个窗口上帮助观察数据或常用于附在某个窗口上帮助观察数据或确定位置确定位置,也可以用来作为数据输入的工具
44、也可以用来作为数据输入的工具.2.滚动条结构滚动条结构 使用方法使用方法:(1)拖动拖动.用鼠标拖动用鼠标拖动滚动块滚动块(2)单击滚动框空白区域单击滚动框空白区域,可以可以“快速快速”滚动滚动(3)单击滚动箭头单击滚动箭头,可以一步步地可以一步步地“慢速慢速”滚动滚动滚动箭头滚动箭头滚动块滚动块滚动箭头滚动箭头58第六章第六章 窗体和常用内部控件窗体和常用内部控件3.属性属性 Value设置或返回滑块当前位置的值，介于设置或返回滑块当前位置的值，介于Min ,Max之间。之间。Max滚动条的滚动条的 Value 属性最大值。属性最大值。Min滚动条的滚动条的 Value 属性最小值。属性最小
45、值。SmallChange单击滚动箭头时，滚动条的单击滚动箭头时，滚动条的Value 值的改变量。值的改变量。LargeChange单击滚动块和滚动箭头之间的单击滚动块和滚动箭头之间的空白区域时，滚动条空白区域时，滚动条 Value 值的改变量。值的改变量。4.事件事件 Change(单击时、单击时、Value改变时改变时)Scroll(拖动时拖动时)59第六章第六章 窗体和常用内部控件窗体和常用内部控件【例例6.21】利用滚动条来设置文本框中字体的颜利用滚动条来设置文本框中字体的颜色色Private Sub hsColor_Change(Index As Integer)txtColor(I
46、ndex).Text=hsColor(Index).Value Text1.ForeColor=RGB(hsColor(0).Value,_ hsColor(1).Value,hsColor(2).Value)End Sub60第六章第六章 窗体和常用内部控件窗体和常用内部控件6.3.46.3.4图片框和图像框控件图片框和图像框控件一图片框一图片框(PictureBoxPictureBox)1.作用作用 作为容器，对控件进行分组作为容器，对控件进行分组 显示图像显示图像2.属性属性Picture:在在PictureBoxPictureBox框中显示的图像文件名可以在框中显示的图像文件名可以在属
47、性窗口中设置属性窗口中设置,也可以在代码中用也可以在代码中用LoadPictureLoadPicture函数设置函数设置.显示图像显示图像:对象名对象名.Picture=LoadPicture(图形文件名图形文件名)删除图像删除图像:对象名对象名.Picture=LoadPicture()(也清除文也清除文字字)Appearance:设置图片框的绘图风格设置图片框的绘图风格.0-平面绘图平面绘图;1-三三维风格维风格AutoSizeAutoSize:设置图片框是否按装入图形的大小做自动设置图片框是否按装入图形的大小做自动调整调整.其值为其值为truetrue和和FalseFalse61第六章第
48、六章 窗体和常用内部控件窗体和常用内部控件Align:Align:设置图片框的显示位置设置图片框的显示位置,其值为其值为1 1、2 2、3 3、4 4时，图片分别放置在窗体的顶部、底部、左侧时，图片分别放置在窗体的顶部、底部、左侧和右侧。和右侧。BorderStyleBorderStyle:图片框的边框图风格图片框的边框图风格.无边框，无边框，单线边框单线边框AutoRedrawAutoRedraw:该属性设置为该属性设置为truetrue时，可以将图形方时，可以将图形方法的输出显示在图片框上，并在调整图片框大法的输出显示在图片框上，并在调整图片框大小或移去遮挡图片框的对象时，自动重绘输出小或
49、移去遮挡图片框的对象时，自动重绘输出的图片的图片Image:Image:记录了图片框中的所有图形信息，包括用记录了图片框中的所有图形信息，包括用绘图方法所产生的图形图像和文字信息。绘图方法所产生的图形图像和文字信息。CurrentXCurrentX:在代码中设置或返回在代码中设置或返回PrintPrint方法或绘图方法或绘图方法的水平起始位置方法的水平起始位置CurrentYCurrentY:在代码中设置或返回在代码中设置或返回PrintPrint方法或绘图方法或绘图方法的垂直起始位置方法的垂直起始位置62第六章第六章 窗体和常用内部控件窗体和常用内部控件图片框的图片框的常用方法常用方法(P2
50、55)Line:用来在窗体或图片框中画直线和矩形用来在窗体或图片框中画直线和矩形格式格式:Object.Linestep(x1,y1)-(x2,y2),Color,BFPset:用来在窗体或图片框中画点用来在窗体或图片框中画点格式格式:Object.Psetstep(x,y),ColorCircle:用于画圆、画弧、扇形、椭圆用于画圆、画弧、扇形、椭圆格式格式:Object.Circlestep(x,y),Radius,Color,Start,End,AspectPrint:用于在图片框中输入文字用于在图片框中输入文字63第六章第六章 窗体和常用内部控件窗体和常用内部控件例：例：Private
