vb程序设计(复习用) ppt课件
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End Sub
10 第 章 键盘与鼠标事件过程
10.4 鼠标光标的形状
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 99
MousePointer MouseIcon
10 第 章 键盘与鼠标事件过程 P272
10.5 拖放
拖放，就是用鼠标从屏幕上把一个对象从一个地方“拖拉”( Dragging)到另一个 地方再放下( Dropping)。
列表框有两种风格：标准和复选列表框。 通过它的Style属性来设置
组合框共三种风格：下拉式组合框、简 单组合框和下拉式列表框
第6章 常用标准控件
6.5 选择控件 列表框和组合框
List
存放列表框的项目数据，下标是从0开始的设定
ListCount 表示项目的数量，ListCount-1是最后一项的下标
KeyDown事件在用户按下按键时发生; 而KeyUp事件在用户将按键抬起的时候被激发。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub
带2个参数
难点
Shift
Ctrl
A
65
Alt
a
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)
第10章 习题
P280
4.关于鼠标的MouseDown事件下列说法正确的是_________。 A) MouseDown事件是鼠标向下移动时被激发的事件 B) MouseDown事件的Button参数是用来判断组合键的 C) MouseDown事件不能判断鼠标的位置MouseDown事件不能判断鼠标的位置 D) MouseDown事件可以判断用户是否使用组合键
第10章 习题
P280
7. 关于使用MouseIcon属性自定义鼠标的说法正为是_________。 A) MouseIcon属性可以使用动态鼠标 B) 一般在MousePointe = 99 时使用 C) MouseIcon属性要求图标文件大小一定 D)只有窗体具有MouseIcon属性
第6章 常用标准控件
6.1 文本控件（文本框）
文本框（TextBox）在窗体中为用户提供一个既能显示文本又能编辑文 本的区域。在文本框内，用户可以对文字进行编辑，例如进行输入、删 除、选择、复制及粘贴等各种操作。
Text
MaxLength
常 MultiLine 用 ScrolBars 属 PasswordChar 性 SelLength
10 第 章 习题(例题)
P280
1. 关于KeyPress事件的KeyAscii参数，下列说法正确的是 _________。 A) KeyAscii参数返回用户所按键的ASCⅡ码 B) KeyAscii参数为字符型 C) KeyAscii参数与KeyCode参数返回值一样 D) KeyAscii参数可以省略
End Sub
程序运行后，如果在键盘上输入字母"a "，则文件框中显示的内容为
A) a
B) A
C) aaaaaa
D) AAAAAA
Private Sub Form_KeyPress(KeyAscii As Integer) Char = “Cah”r(K97e)yAscii) KeyAscii = A65sc(“UAC”a)se (C“ah”a)r))) Text1.Text = “SAtrAinAgA(6A, A6K5”e)yAscii)
2. 使用KeyUp事件的KeyCode参数判断用户的按键，若键"B"的KeyCode = 66， 则_________。 A) Shift+B 的 KeyCode = 66 + 1 B) Shift+B、Ctrl+B、Alt+B 的 KeyCode = 66 C) Ctrl+B 的 KeyCode = 66 + 2 D) Alt+B 的 KeyCode = 66 + 4
End Sub Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Textl.SetFocus End Sub
Chr(65) Asc("a")
第10章 键盘与鼠标事件过程
10.2 KeyDow 和 KeyUP 事件
SelStar
SelText
Lock
设置文本框中显示的内容
常用事件
设定文本框中最多可容纳的字数
设置文本框采用单行还是多行
设置文本框是否有滚动条
设置在文本框中显示效果为密码效果
当前文本框中选择的字符数
关联！
当前文本框中选择的文本起始位置
Change() Click() DblClick() GotFocus SetFocus LostFocus等
常 ListIndex 选中的项目的序号， 没有项目选中时为-1。
用 Style
值用来指示控件的显示类型和行为
属 MultiSelect 能否在列表框中进行复选以及如何进行复选。
性 Selected
返回或设置列表框控件中的一个项目的选择状态。
Text
返回最后一次选中的表项的文本
Sorted
确定列表框中的项目是否按升序排列
5. 更改鼠标指针样式使用_________。 A) MouseMove事件 B) MouseDown事件 C) MousePointer属性 D) MouseUp事件
6. MouseMove事件的发生是_________。 A) 当鼠标移动时将无限次的被激发 B) 每秒激发一次 C) 与鼠标灵敏度相关的 D) 伴随鼠标指针移动而连续不断发生的
Print List1.List(3) List1.List(2)=“应用学院” List1.(List1.ListCount-1)=“俄语系”
Print List1.Selected(1) List1.Selected(4) = True
第6章 常用标准控件
6.5 选择控件 列表框和组合框
AddItem 在列表框或组合框中插入一行文本
事件
DragOver
当拖动对象越过一个控件时，产生的事件
Private Sub 对象名_DragOver(Source As Control, X As Single, Y As Single,State As Integer)
End Sub
第10章 习题(课)
P280
Private Sub Form_KeyPress(KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char)) Text1.Text = String(6, KeyAscii)
3.当用户按键时，KeyPress事件、KeyDown事件、KeyUp事件的执行顺序为 _________。 A) KeyPress事件KeyDown事件 KeyUp事件 B) KeyDown事件KeyPress事件KeyUp事件 C) KeyDown事件KeyUp事件 KeyPress事件 D) KeyDown事件、KeyUp事件不与KeyPress事件同时激发
设置标签中的内容能否自动调整大小
WordWrap
设置标签标题属性的显示方式
Font
设置标题内容的字体字号
BackStyle
用于设置背景是否透明
常用事件
Click() DblClick() 等
第6章 常用标准控件
6.1 文本控件
例6.1 在窗体上，放置5个标签，其名称使用默认值Label1－Label5， 它们的高度与宽度相同，在属性窗口，按示图设置它们的属性
Private Sub Form_KeyUP(KeyCode As Integer, Shift as Integer)
Print Chr(KeyCode +2)
End Sub
程序运行后，如果在按“A”键，则输出结果为
A) A
B) A
C) A
D) A
A
B
C
D
Print “CAh”r (K65e)yCode) Print “CCh”r(K65e+y2c)ode+2)
方 Clear 法
<列表框 | 组合框>.AddItem <项目字符串>[，<索引值>] 清除列表框或组合框中的全部内容。 列表框|组合框.Clear
RemoveItem 删除列表框中指定的项目
列表框|组合框.RemoveItem 索引值
List1.AddItem “新闻传播学院” List1.AddItem “新闻传播学院”，2 List1.AddItem “新闻传播学院”，List1.ListIndex List1.AddItem Text1.Text List1.AddItem “Text1.Text”
List1.RemoveItem 2 List1.RemoveItem List1.ListIndex List1.Clear
6 第 章 常用标准控件
P141
6.7 计时器
计时器控件(Timer)也称定时器或时钟，是按一定时间间隔周期性地自动触发 事件的控件。在程序运行时，计时器是不可见的。
常用属性
间隔
P250
10 第 章 键盘与鼠标事件过程
10.1 KeyPress 事件
Private Sub Text1_KeyPress(KeyAscii As Integer)
End Sub
A
a
65
带参数 ASCII码
Enter
97
13
KeyAscii参数是KeyPress 事件过程的关键，一般都 是通过KeyAscii参数来获 得用户的按键信息的。
第6章 常用标准控件 6.1 文本控件（标签）
标签（Label）主要用于显示不需要用户修改的文本。
Name
标签控件的名称，仅供程序设计时使用
常 Caption
标签中的显示的文本内容
用 Alignment
设置文字的对齐方式（0，1，2）
属 BorderSaidtyle 设置标签文本框中所选择的文本 设置文本框中的内容可否编辑
文本框没有 Caption属性
第6章 常用标准控件
6.5 选择控件 列表框和组合框
列表框（ListBox）用于显示项目列 表，用户可从中选择一个或多个项目。 如果项目总数超过了可显示的项目数， VB会自动加上滚动条。
组合框（ComboBox）将文本框和列表框 的功能结合在一起，用户可以在列表中选 择某项（只能选取一项）。或在编辑区域 中直接输入文本内容来选定项目。
10 第 章 键盘与鼠标事件过程 P273
10.5 拖放
事件
DragDrop
将一个控件拖动到一个对象上，并释放鼠标按钮
Private Sub 对象名_DragDrop(Source As Control, X As Single, Y As Single)
End Sub 将一个控件拖动到一个对象上，并释放鼠标按钮产生的事件。
Aa
码
KeyPreview
一般不能获得焦点控件也不具有 KeyPress事件，如标签(Label)、框 架(Frame)和图像框(Image)等。
第10章 键盘与鼠标事件过程
10.1 KeyPress 事件
Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus
End Sub
第10章 习题
P280
把窗体的KeyPreview属性设置为True，然后编写如下过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift as Integer)
Print Chr(KeyCode)
End Sub
-------------------------------------------------------------------------------
拖放是一种重要的鼠标操作。Visual Basic提供了Drag方法、DragOver事件、 DragDrop事件、DragMode属性和DragIcon属性等用于鼠标拖放操作的处理。
常用属性
DragMode 设置自动或人工(手动)拖放模式。 DragIcon 在拖动时作为控件的图标。
事件
DragDrop DragOver
Enable Interval
设置计时器是否对Timer事件产生响应 设置计时器触发Timer事件的时间间隔，为0时屏蔽计时器。 以毫秒为单位，取值范围为0~65535
事件
Private Sub Timer1_Timer()
End Sub
由Enable 决定是否对
事件响应
由Interval 决定是时间
10 第 章 键盘与鼠标事件过程
10.4 鼠标光标的形状
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 99
MousePointer MouseIcon
10 第 章 键盘与鼠标事件过程 P272
10.5 拖放
拖放，就是用鼠标从屏幕上把一个对象从一个地方“拖拉”( Dragging)到另一个 地方再放下( Dropping)。
列表框有两种风格：标准和复选列表框。 通过它的Style属性来设置
组合框共三种风格：下拉式组合框、简 单组合框和下拉式列表框
第6章 常用标准控件
6.5 选择控件 列表框和组合框
List
存放列表框的项目数据，下标是从0开始的设定
ListCount 表示项目的数量，ListCount-1是最后一项的下标
KeyDown事件在用户按下按键时发生; 而KeyUp事件在用户将按键抬起的时候被激发。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub
带2个参数
难点
Shift
Ctrl
A
65
Alt
a
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)
第10章 习题
P280
4.关于鼠标的MouseDown事件下列说法正确的是_________。 A) MouseDown事件是鼠标向下移动时被激发的事件 B) MouseDown事件的Button参数是用来判断组合键的 C) MouseDown事件不能判断鼠标的位置MouseDown事件不能判断鼠标的位置 D) MouseDown事件可以判断用户是否使用组合键
第10章 习题
P280
7. 关于使用MouseIcon属性自定义鼠标的说法正为是_________。 A) MouseIcon属性可以使用动态鼠标 B) 一般在MousePointe = 99 时使用 C) MouseIcon属性要求图标文件大小一定 D)只有窗体具有MouseIcon属性
第6章 常用标准控件
6.1 文本控件（文本框）
文本框（TextBox）在窗体中为用户提供一个既能显示文本又能编辑文 本的区域。在文本框内，用户可以对文字进行编辑，例如进行输入、删 除、选择、复制及粘贴等各种操作。
Text
MaxLength
常 MultiLine 用 ScrolBars 属 PasswordChar 性 SelLength
10 第 章 习题(例题)
P280
1. 关于KeyPress事件的KeyAscii参数，下列说法正确的是 _________。 A) KeyAscii参数返回用户所按键的ASCⅡ码 B) KeyAscii参数为字符型 C) KeyAscii参数与KeyCode参数返回值一样 D) KeyAscii参数可以省略
End Sub
程序运行后，如果在键盘上输入字母"a "，则文件框中显示的内容为
A) a
B) A
C) aaaaaa
D) AAAAAA
Private Sub Form_KeyPress(KeyAscii As Integer) Char = “Cah”r(K97e)yAscii) KeyAscii = A65sc(“UAC”a)se (C“ah”a)r))) Text1.Text = “SAtrAinAgA(6A, A6K5”e)yAscii)
2. 使用KeyUp事件的KeyCode参数判断用户的按键，若键"B"的KeyCode = 66， 则_________。 A) Shift+B 的 KeyCode = 66 + 1 B) Shift+B、Ctrl+B、Alt+B 的 KeyCode = 66 C) Ctrl+B 的 KeyCode = 66 + 2 D) Alt+B 的 KeyCode = 66 + 4
End Sub Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Textl.SetFocus End Sub
Chr(65) Asc("a")
第10章 键盘与鼠标事件过程
10.2 KeyDow 和 KeyUP 事件
SelStar
SelText
Lock
设置文本框中显示的内容
常用事件
设定文本框中最多可容纳的字数
设置文本框采用单行还是多行
设置文本框是否有滚动条
设置在文本框中显示效果为密码效果
当前文本框中选择的字符数
关联！
当前文本框中选择的文本起始位置
Change() Click() DblClick() GotFocus SetFocus LostFocus等
常 ListIndex 选中的项目的序号， 没有项目选中时为-1。
用 Style
值用来指示控件的显示类型和行为
属 MultiSelect 能否在列表框中进行复选以及如何进行复选。
性 Selected
返回或设置列表框控件中的一个项目的选择状态。
Text
返回最后一次选中的表项的文本
Sorted
确定列表框中的项目是否按升序排列
5. 更改鼠标指针样式使用_________。 A) MouseMove事件 B) MouseDown事件 C) MousePointer属性 D) MouseUp事件
6. MouseMove事件的发生是_________。 A) 当鼠标移动时将无限次的被激发 B) 每秒激发一次 C) 与鼠标灵敏度相关的 D) 伴随鼠标指针移动而连续不断发生的
Print List1.List(3) List1.List(2)=“应用学院” List1.(List1.ListCount-1)=“俄语系”
Print List1.Selected(1) List1.Selected(4) = True
第6章 常用标准控件
6.5 选择控件 列表框和组合框
AddItem 在列表框或组合框中插入一行文本
事件
DragOver
当拖动对象越过一个控件时，产生的事件
Private Sub 对象名_DragOver(Source As Control, X As Single, Y As Single,State As Integer)
End Sub
第10章 习题(课)
P280
Private Sub Form_KeyPress(KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char)) Text1.Text = String(6, KeyAscii)
3.当用户按键时，KeyPress事件、KeyDown事件、KeyUp事件的执行顺序为 _________。 A) KeyPress事件KeyDown事件 KeyUp事件 B) KeyDown事件KeyPress事件KeyUp事件 C) KeyDown事件KeyUp事件 KeyPress事件 D) KeyDown事件、KeyUp事件不与KeyPress事件同时激发
设置标签中的内容能否自动调整大小
WordWrap
设置标签标题属性的显示方式
Font
设置标题内容的字体字号
BackStyle
用于设置背景是否透明
常用事件
Click() DblClick() 等
第6章 常用标准控件
6.1 文本控件
例6.1 在窗体上，放置5个标签，其名称使用默认值Label1－Label5， 它们的高度与宽度相同，在属性窗口，按示图设置它们的属性
Private Sub Form_KeyUP(KeyCode As Integer, Shift as Integer)
Print Chr(KeyCode +2)
End Sub
程序运行后，如果在按“A”键，则输出结果为
A) A
B) A
C) A
D) A
A
B
C
D
Print “CAh”r (K65e)yCode) Print “CCh”r(K65e+y2c)ode+2)
方 Clear 法
<列表框 | 组合框>.AddItem <项目字符串>[，<索引值>] 清除列表框或组合框中的全部内容。 列表框|组合框.Clear
RemoveItem 删除列表框中指定的项目
列表框|组合框.RemoveItem 索引值
List1.AddItem “新闻传播学院” List1.AddItem “新闻传播学院”，2 List1.AddItem “新闻传播学院”，List1.ListIndex List1.AddItem Text1.Text List1.AddItem “Text1.Text”
List1.RemoveItem 2 List1.RemoveItem List1.ListIndex List1.Clear
6 第 章 常用标准控件
P141
6.7 计时器
计时器控件(Timer)也称定时器或时钟，是按一定时间间隔周期性地自动触发 事件的控件。在程序运行时，计时器是不可见的。
常用属性
间隔
P250
10 第 章 键盘与鼠标事件过程
10.1 KeyPress 事件
Private Sub Text1_KeyPress(KeyAscii As Integer)
End Sub
A
a
65
带参数 ASCII码
Enter
97
13
KeyAscii参数是KeyPress 事件过程的关键，一般都 是通过KeyAscii参数来获 得用户的按键信息的。
第6章 常用标准控件 6.1 文本控件（标签）
标签（Label）主要用于显示不需要用户修改的文本。
Name
标签控件的名称，仅供程序设计时使用
常 Caption
标签中的显示的文本内容
用 Alignment
设置文字的对齐方式（0，1，2）
属 BorderSaidtyle 设置标签文本框中所选择的文本 设置文本框中的内容可否编辑
文本框没有 Caption属性
第6章 常用标准控件
6.5 选择控件 列表框和组合框
列表框（ListBox）用于显示项目列 表，用户可从中选择一个或多个项目。 如果项目总数超过了可显示的项目数， VB会自动加上滚动条。
组合框（ComboBox）将文本框和列表框 的功能结合在一起，用户可以在列表中选 择某项（只能选取一项）。或在编辑区域 中直接输入文本内容来选定项目。
10 第 章 键盘与鼠标事件过程 P273
10.5 拖放
事件
DragDrop
将一个控件拖动到一个对象上，并释放鼠标按钮
Private Sub 对象名_DragDrop(Source As Control, X As Single, Y As Single)
End Sub 将一个控件拖动到一个对象上，并释放鼠标按钮产生的事件。
Aa
码
KeyPreview
一般不能获得焦点控件也不具有 KeyPress事件，如标签(Label)、框 架(Frame)和图像框(Image)等。
第10章 键盘与鼠标事件过程
10.1 KeyPress 事件
Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus
End Sub
第10章 习题
P280
把窗体的KeyPreview属性设置为True，然后编写如下过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift as Integer)
Print Chr(KeyCode)
End Sub
-------------------------------------------------------------------------------
拖放是一种重要的鼠标操作。Visual Basic提供了Drag方法、DragOver事件、 DragDrop事件、DragMode属性和DragIcon属性等用于鼠标拖放操作的处理。
常用属性
DragMode 设置自动或人工(手动)拖放模式。 DragIcon 在拖动时作为控件的图标。
事件
DragDrop DragOver
Enable Interval
设置计时器是否对Timer事件产生响应 设置计时器触发Timer事件的时间间隔，为0时屏蔽计时器。 以毫秒为单位，取值范围为0~65535
事件
Private Sub Timer1_Timer()
End Sub
由Enable 决定是否对
事件响应
由Interval 决定是时间