VB课件10

MouseMove、MouseDown或MouseUp
Private Sub 对象名_鼠标事件(Button As Integer, Shift As
Integer, X As Single,Y As Single)
说明：(1) Button参数表示哪个鼠标键被按下或释放。用0，1，2位分 别表示鼠标的左、右、中键，用1或0表示被按下或释放
Text1.Text = ""
Label1.Caption = Chr(keyasc) & "的ASCII码是：" & keyasc
End Sub
主页
10.1.2 鼠标事件
常用Click、DblClick、MouseMove、MouseDown和MouseUp等事件
后三种事件可以区分鼠标的左、右、中键与Shift、Ctrl、Alt键
Private Sub 对象名_DragOver(Source As Control, X As Single, _ Y As Single, State As Integer)
State参数：0 表示进入，即源对象正进入目标对象内； 1 表示离开，即源对象正在离开目标对象； 2 表示跨越，即源对象在目标范围内移动位置 主页
'移动到窗体的左上角
End If
End Sub
例10.2
主页
10.1.3 拖放操作
“拖放”(DragDrop)就是使用鼠标将对象从一个地方拖动到 另一个地方再放下 控件拖放是指运行时将控件拖放到新的位置
它可以分解为两种操作：一个是发生在源对象的“拖”操 作，另一个是发生在目标对象上的“放”操作
1. 属性
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

窗体的方法与事件
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。

1. 添加工具栏控件
(1) “工程→部件”，选Microsoft Windows Common

Controls 6.0
用 (2)
在窗体任意位置添加一个ImageList控件，名称默
认为ImageList1
(3) 用
在窗体上添加一个Toolbar控件(该控件自动位于菜
单栏的下面) ，其名称默认为Toolbar1。
MSComctlLib.Button)


End Select
OpenDoc
End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As Select Case Button.Key Case “open” OpenDoc …… “打开”按钮的关键字为open，图像值为 1 '或Case 1，表示单击“打开”按钮

编辑菜单控件
如果菜单 控件的前面 没有内缩符 号“ · · · · ”， 表明该控件 建立的是主 菜单，否则 为菜单命令 或子菜单。
3 方法： 先通过菜单编辑器设计菜单，然后编写各菜单控件的 Click事件过程。
[例] 创建简易编辑器 (1) 设计菜单
(2) 设计界面
菜单下面绘制两条直线 ( 两个 Line 控件 ) ，一条为黑色，一条 为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3
(3) 编写菜单控件的Click事件过程
10. 2 弹出菜单的设计
用PopupMenu方法可显示弹出式菜单

[对象.]PopupMenu 菜单控件名称

设置在对话框的文件类型列表框中所显示的过滤器 （即限定的文件类型）。如： CommonDialog1.Filter = “Word文档(*.Doc) |*.Doc| 文本文件(*.Txt) |*.txt|所有文件(*.*)|*.*” 用来指定初始化打开或保存的路径，如果该属性 没有指定，则默认我的文档。
下一页 返回本章首页
第8页 2019年3月20日
例10.1：菜单应用举例
界面如图： li10_1.vbp
上一页 下一页 返回本章首页
第9页 2019年3月20日
2. 弹出式菜单 弹出式菜单是独立于菜单栏的浮动菜单，其在窗 体上的显示位置由单击鼠标时指针的位置决定。 在VB中，使用PopupMenu方法来显示弹出菜单。
菜单项上显示的文字（菜单标题），可以用 & 定义菜单项的热 键。分隔条的标题为一个连字符 (-) 。
为菜单控件名，仅用于访问代码中的菜单项。
Index
ShortCut Checked Enabled Visible 协调位置
设置菜单控件数组的下标。
为每个菜单项选定快捷键，即通过键盘来选择某个菜单项 当 "复选" 属性设置为True 时，在相应的菜单项旁加上 "√" 以表 明该菜单项处于活动状态 用来设置菜单项的可用性，当该属性设置为False时，相应的菜 单项呈灰色，表明不会相应用户事件 设置该菜单项是否可见。不可见的菜单项时不能被执行的 NegotiatePosition 属性决定是否及如何在容器窗体中显示菜单
（3）Flags属性
用来修改通用对话框的每个具体对话框的默认设置。 通用对话框的属性除了在属性窗口和程序代码中设置外 ，还可以在其“属性页”对话框中设置。右键单击窗体上通 用对话框控件，从弹出的快捷菜单中选择“属性”命令即可 打开“属性页”对话框。