其他控件的使用.ppt
Visual Basic程序设计,第6章 其他控件的使用,Visual Basic程序设计,第6章 其他控件的使用,6.4 键盘事件,6.2 组合框,6.1 列表框,6.3 鼠标事件,6.5 拖放事件,Visual Basic程序设计,工具箱中的控件,Visual Basic程序设计,6.1 列表框控件,用于列出可供用户选择的项目列表（1）List属性：用于列出列表项内容，保存了列表框中所有值的数组，通过下标访问数组中的值（列表项索引值从0开始）,List1.ListCount-1,.,注意：若数据项较多，自动在列表框边上加一个垂直滚动条,在窗体上打印列表框中第3项的内容?,Print List1.List(2),格式：列表框名.List(列表项索引值),Visual Basic程序设计,6.1 列表框控件,（2）ListCount属性：列表项总数如何用循环逐个访问列表项？For i=0 To List1.ListCount-1 使用List1.List(i)表示列表框中的第i项 Next i例6-1：单击“连接到文本框”按钮将列表框中的列表项逐个正序连接到文本框中,Visual Basic程序设计,6.1 列表框控件,常用属性：（3）ListIndex属性：返回选中列表项的索引值（4）Text属性：返回选中列表项的内容如果用户选择了多个列表项，则Text是最近所选列表项的文本内容；如果用户没有从列表框中选择任何一项，则Text为空字符串,Visual Basic程序设计,6.1 列表框控件,例6-1：窗体运行后，在左边标签中显示列表框中列表项总数；单击列表框中的任意一项，在文本框中显示选中列表项的内容，同时在在右边标签中显示选中列表项的索引值,Visual Basic程序设计,6.1 列表框控件,（5）MultiSelect属性：设置是否可以同时选中多个列表项该属性必须在设计时设置，运行时只能读取0 不允许复选（缺省值）1 简单复选，鼠标单击在列表中选中或取消选中2 扩展复选，鼠标单击在列表中进行单选。用 Shift 键辅助进行区间选择，用 Ctrl 键辅助进行附加选择,Visual Basic程序设计,6.1 列表框控件,（6）Selected属性：该属性是一个布尔型数组，其元素对应于List属性中的各个列表项，表示相应的项在程序运行期间是否被选中例如，List1.Selected(3)的值为True，表示第四项被选中，如为False，表示第四项未被选中例6-2,Visual Basic程序设计,6.1 列表框控件,常用属性：（7）Style属性：设置列表项是否以复选形式显示（8）Columns属性：设置列表项是否按多列显示例6-1,Visual Basic程序设计,6.1 列表框控件,常用属性：（9）Sorted属性：设置列表项是否按字母、数字升序排列,Visual Basic程序设计,6.1 列表框控件,常用方法：AddItem：添加列表项。对象名.AddItem,插入位置序号注意：若不指定插入位置，则插入到列表尾。RemoveItem：删除列表项。对象名.RemoveItem 删除项序号Clear：删除列表所有项。例6-1：单击“添加列表项”按钮在列表框后添加一个列表项；在列表框中选中一项后单击“移除列表项”则从列表框中移除选中的列表项；单击“清空列表项”则将列表框所有列表项移除,Visual Basic程序设计,6.1 列表框控件实例,例6-2：在左边的列表框中选中多个列表项，单击“选中”按钮，将中间的列表框中逆序显示选中的列表项；单击“显示”按钮，在右边的文本框中正序显示选中的城市,Visual Basic程序设计,6.2 组合框控件,组合框是文本框和列表框的组合方式Style属性：设置组合框的外观0-Dropdown Combo 包含一个可编辑的文本框 和一个下拉列表（默认）1-Simple Combo 包含一个可编辑的文本框和一个不下拉的列表2-Dropdown List 只允许从下拉列表中选择 不允许编辑文本框部分,Visual Basic程序设计,6.2 组合框控件,常用方法与列表框相同事件：Style=0时，响应Click,Change事件；Style=1时，响应DbClick，Change事件；Style=2时，响应Click事件。,Visual Basic程序设计,6.3 鼠标事件,在程序中识别鼠标的左右键时，需使用鼠标事件鼠标事件主要有MouseDown、MouseMove和MouseUp，对应鼠标的按下、移动和释放Private Sub 对象名_MouseDown(Button As Integer,Shift As Integer,X As Single As Single)End Sub（1）Button=1，鼠标左键；Button=2，鼠标右键，Button=4，鼠标中间键；（2）Shift参数返回在发生鼠标事件的同时，Shift、Alt和Ctrl键是否被按下：按下Shift键返回1，按Ctrl键返回2，按Alt键返回4；（3）参数x、y返回当前鼠标的位置坐标。,Visual Basic程序设计,鼠标事件实例,按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线 例6-3,Visual Basic程序设计,鼠标事件习题,窗体的MouseDown事件过程Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)有4个参数，关于这些参数，正确的描述是。A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数X,Y用来设置鼠标当前位置的坐标,Visual Basic程序设计,6.4 键盘事件,在VB中，窗体和文本框的键盘事件应用最多在文本框中输入字符后将先后触发以下事件KeyDown-KeyPress-Change-KeyUp,Visual Basic程序设计,6.4 键盘事件,（1）对象的KeyPress事件过程形式为：Private Sub 对象名_KeyPress(KeyAscii As Integer)End Sub其中KeyAscii参数返回按下键的ASCII码（按下大小写字母ASCII码值不同）只有按下一个具有ASCII码的键才能触发KeyPress事件若按下方向键、CapsLock、Shift等功能键不会触发KeyPress事件,例6-4,Visual Basic程序设计,6.4 键盘事件,（2）对象的KeyDown和KeyUp事件过程参数相同Private Sub 对象名_KeyDown(KeyCode As Integer,Shift As Integer)End SubKeyCode参数返回所按键的键码，按下键盘上的任意键都将触发KeyDown以及KeyUp事件（按下大小写字母KeyCode值相同）Shift参数返回在发生鼠标事件的同时，Shift、Alt和Ctrl键是否被按下：按下Shift键返回1，按Ctrl键返回2，按Alt键返回4,Visual Basic程序设计,键盘事件例题,以下叙述中错误的是_。A）在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母B）在KeyUp和KeyDown事件过程中，键盘上的“1”和右侧小键盘上的“1”具有不同的KeyCodeC）KeyPress事件中不能识别键盘上某个键的按下与释放D）KeyPress事件中可以识别键盘上某个键的按下与释放,Visual Basic程序设计,键盘事件例题,【解析】KeyUp和KeyDown事件的参数KeyCode返回所按键的键码，只要按的键相同其键码就相同，大小写字母都对应键盘的同一个键，因此其KeyCode值相同；而按下键盘上的1和小键盘上的1对应的键盘键不同，所以其KeyCode不同。因此选项A和B正确。KeyPress事件可以识别键盘上某个键的按下，但不能识别某个键的释放，因此选D,Visual Basic程序设计,键盘事件例题,以下关于Keypress事件过程中参数KeyAscii的叙述中正确的是_。A）KeyAscii参数是所按键的ASCII码 B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略 D）KeyAscii参数是所按键上标注的字符,Visual Basic程序设计,6.5 拖放事件（选讲）,拖放（Drag and Drop）是一种将一个对象（源对象）拖到另一个对象（目标对象）上执行某种操作的功能拖放有两种形式：对象名.DragMode=1 自动拖放对象名.DragMode=0 手工拖放若使用自动拖放，在源对象上按下并拖动鼠标，源对象随鼠标移动到目标对象上产生DragOver事件，释放鼠标产生DragDrop事件注意：拖放过程本身不会将源对象放到目标对象上，要将源对象拖放到某处，需编写DragOver事件或DragDrop事件,Visual Basic程序设计,6.5 拖放事件实例,例6-5,
