资源描述
第5章常用控件,5.1单选按钮和复选框5.2框架5.3列表框和组合框5.4滚动条5.5时钟-计时器5.6鼠标器、键盘,单选按钮（OptionButton）和复选框（CheckBox）都属于选择性控件，用来指示用户进行项目选择。在一组单选按钮中必须且最多只能选中一项；在一组复选框中可以同时选中一项或多项，甚至一个不选。当单选按钮被选中时，其左侧的圆圈中出现一个黑点；当复选单选框被选中时，其左侧的方框中出现一个对勾。,51单选按钮和复选框,单选,复选,Caption属性：文本标题。Alignment属性0：控件钮在左边，标题显示在右边。1：控件钮在右边，标题显示在左边。Value属性单选钮复选框True：选定0-Unchecked：未被选定False：未选定1-Checked：选定2-Grayed：灰色，禁止选择Style属性0-Standard：标准方式1-Graphical：图形方式Picture属性未选定时的图标或位图DownPicture属性选定时的图标或位图DisabledPicture属性禁止选择时的图标或位图,5.1单选钮和复选框,常用属性,有Click事件，因为单击时自动改变状态，故不需要编写过程。,5.1单选钮和复选框,常用事件,【例5-1】,用单选按钮和复选框制作如图所示窗口。当用户选择了“所在学院”和“学习课程”后，单击“确定”，则选择结果显示在下面的文本框中。,【属性设置】,框架创建方法：建立框架及其内部控件时，须先建框架，然后在其中建立控件。在框架内建立控件的方法：方法1：单击工具箱上的相应工具，然后在框架中适当位置拖拉出适当大小的控件。方法2：将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架中。注意：不能使用双击工具箱上工具的自动方式。,使用框架（Frame）把具有同一性质的控件集中在一起，好处是各框架中的控件相对独立，不会互相干扰；操作起来更直观、更方便；框架中的控件会与框架成为一个整体一起被移动，不必每次单独修改。,52框架（Frame）,Caption属性：框架标题Enabled属性：False：标题呈灰色，不允许对框架内的对象进行操作。Visible属性：True：框架及其控件可见。False：框架及其控件被隐含起来。,5.2框架,常用属性,常用事件,Click、DblClick事件：一般不需要编写框架的事件过程。,5.2框架,【例5-2】完成图示窗口界面。当用户选择了具体的“字体”和“对齐方式”后，单击“确定”，通过上面的文本框显示效果。,【属性设置】,列表框（ListBox）和组合框（ComboBox）都是选择控件，提供多个选项供用户选择，以达到交互的目的。,53列表框和组合框,列表框仅仅把可以选择的项目列出来，不能直接修改项目。,组合框是列表框和文本框的组合，不仅可以选项，还允许用户输入数据。组合框有三种类型，由其Style属性值决定，Style可为0、1或2。0默认值。下拉式组合框。1简单组合框。2下拉式列表框。,说明：P只可在程序中设置或引用，D只可在设计状态设置List(PD)：字符型数组，存放列表框的项目，下标从0开始。ListIndex(P)：选中项目的序号，无项目被选定时为-1。ListCount(P)：项目的数量，ListCount-1是最后一项的下标。Selected(P)：逻辑数组。Selected(i)的值为True表示第i+1项被选中。Sorted(D)：True：按字母顺序排列。False：按加入先后顺序排列。Text(P)：被选中列表项的内容，如：List1.List(List1.ListIndex)=List1.TextMultiSelect：0-None：禁止多项选择；1-Simple：简单多项选择；2-Extended：扩展多项选择。,5.3列表框和组合框,常用属性,AddItem对象.AddItemitem,indexRemoveItem对象.RemoveItemindexClear对象.Clear说明：“对象”可是列表框、组合框或剪贴板。,方法,5.3列表框和组合框,【例5-3】用组合框制作一个国家选择窗口。,程序运行后，首先出现图示界面，在Form的Load事件中，使用了ComboBox的AddItem方法，向组合框中添加选项；当用户在ComboBox中选择了一个国家后，点击“确定”按钮，就会弹出一个消息窗口，通过检查ComboBox的Text属性，显示出用户做出的选择。,在项目列表很长或者信息量很大时，可以使用滚动条（ScrollBar）来协助观察数据或确定位置。有水平滚动条和垂直滚动条两种。,54滚动条(ScrollBar),Max：返回或设置当滑块处于最大位置时所代表的值，-3276832767间的一个整数。默认值为32767Min：返回或设置当滑块处于最小位置时所代表的值，-3276832767间的一个整数。默认值为0。SmallChange:最小变动值，单击箭头时移动的增量值。LargeChange:最大变动值，单击空白处时移动的增量值。Value:滑块所处位置所代表的值。,常用属性,5.4滚动条,事件,Scroll：拖动滑块时会触发Scroll事件。Change：Value属性改变时触发Change事件。,SubhsbSpeed_Change()txtSpeed.Text=hsbSpeed.ValueEndSub,【例5-4a】用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。,【例5-4】设计一个调色板程序。,使用三个滚动条作为三种基本颜色的输入工具，合成的颜色显示在右边的颜色区中。颜色区实际上是一个文本框，用合成的颜色设置其BackColor属性。当完成调色后，用“设置前景颜色（Command1）”或“设置背景颜色（Command2）”按钮设置右边文本框（Text2）的颜色。,5.4滚动条,时钟控件以Interval为时间间隔产生Timer事件。,55时钟（Timer）,属性Interval:Timer事件产生的时间间隔。单位：ms(0.001s)，0.5秒是500。Interval0：屏蔽计时器。Enabled属性：True：有效计时False：停止时钟工作Timer事件,【例5-5】利用计时器产生闪烁的窗体和标签。程序运行后，每隔0.6秒发生一次Timer事件，相邻的Timer事件中显示位置不同的亮和暗标签，就出现了闪烁的窗体。,鼠标器事件MouseDown事件：当鼠标的任意一个按钮按下时被触发。SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MouseUp事件：当鼠标的任意一个按钮释放时被触发。SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MouseMove事件：当鼠标移动时被触发。SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)这三个事件被触发时，可检测到键盘的Shift、Ctrl或Alt键是否同时被按下，鼠标目前的位置以及当前按下或放开的是哪一个鼠标按键。x,y：鼠标的当前位置Button、Shift参数含义如表,56鼠标与键盘,5.6.1鼠标,【例5-6】实现用鼠标当作画笔在窗体上写字的功能。,KeyPress事件用户按下并且释放一个会产生ASCII码的键时被触发。PrivateSub控件_KeyPress(KeyAsciiAsInteger)其中KeyAscii为与按键相对应的ASCII码值。例如，限制数据输入，文本框只能接收“0”“9”的数字字符。Subtext1_KeyPress(KeyAsciiAsInteger)IfKeyAscii57ThenBeepKeyAscii=0EndIfEndSub,5.6.2键盘,5.6鼠标与键盘,KeyDown事件：用户按下键盘上任意一个键时被触发。KeyUp事件：用户释放键盘上任意一个键时被触发。【格式】Sub控件_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Sub控件_KeyUp(KeyCodeAsInteger,ShiftAsInteger)【说明】（1）KeyCode参数值是用户所操作键的扫描代码。不管键盘处于小写状态还是大写状态，用户在键盘按“A”键，KeyCode参数值相同。对于有上档字符和下档字符的键，其KeyCode也是相同的，为下档字符的ASCII码。（2）当窗体的KeyPreview属性为true时，首先触发窗体的KeyPress、KeyDown、KeyUp事件，然后触发其它控件的KeyPress、KeyDown和KeyUp事件。（3）如果窗体的事件过程将KeyAscii设置为0，则不再调用对象的KeyPress事件过程。【例5-7】制作一个对文本框中键入内容加以限制的程序,5.6鼠标与键盘,拖放（DragandDrop）是使用鼠标将对象从一个地方拖动到另一个地方再放下。1DragDrop事件：拖动的控件放在了另一个窗体或控件上时引发【格式】PrivateSub控件_DragDrop(SourceAsControl,XAsSingle,YAsSingle)【说明】Source参数表示被拖动的对象，Control类型的变量是说明这个变量代表一个控件，也就是控件的名字，但在传递这个参数时不必打上引号；X、Y参数表明鼠标指针所在的位置。2DragOver事件：被拖动的控件可能会从其它控件上空飘过，或者在目标控件上空盘旋一下时引发。可以修改被拖动控件的DragIcon属性，使它表明是否允许控件的着陆。【格式】PrivateSub控件_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)【说明】DragOver事件的Source、X、Y参数的意义与DragDrop的相同。State参数表明被拖动的控件相对于它飘过的控件的迁移状态。含义见表。,5.6.3拖放,5.6鼠标与键盘,自动拖放,手工拖放,3.拖放的模式,5.6鼠标与键盘,DragIcon属性拖动过程中显示的图标(Ico或Cur文件)。lblExample1.DragIcon=LoadPicture(C:IconsMail.ico)lblExample2.DragIcon=picIcon.PictureDrag方法当DragMode为0时，需用Drag方法启动拖放控件名称.Drag参数0：开始拖放操作1(省略)：结束拖放操作2：取消拖放操作,5.6鼠标与键盘,5.6鼠标与键盘,【例5-8】鼠标拖放应用程序设计。,程序运行后，出现图示画面，左边的图像框采用手工拖动模式，标签采用自动拖动模式。图像框只能用鼠标左键拖动，拖到右边的图像框后消失，而且拖动时图像框中的图标作为拖动图标使用。标签可以拖动，但拖到图像框后显示“Error”。,【控件属性】,【例5-9】设计一个趣味打字程序。,【画面说明】程序运行后，出现图示画面，单击“开始”按钮，则从屏幕顶端的随机位置上不断地落下一个个随机字母，游戏者通过按键盘相应的键将其“打落”。同时在屏幕右下角显示得分和所用的时间。单位时间内击落的字母越多，分数越高。最后根据得分给出相应的评语。,
展开阅读全文