类(抽象)的成员:属性 、方法、事件
假定实现某汽车最高限速150km/h,在车速(Speed)发生变化后发送一个"事件"通知汽车的控制系统,由系统判断是否超过150km/h,若超过则降低车速car.Slow()
If car.Speed > 150 Then
Car.Slow()
End if
事件编程
PrepareEdit事件通知
e:事件通知的信息,通过e的属性可以访问这些信息
e参数属性:
Table: 准备编辑的表
Row: 准备编辑的行
Col: 准备编辑的列
IsFocusCell: 是否是焦点单元格
Cancel: 默认False,设为True则取消编辑
'非经理用户不可编辑折扣列
If e.Col.Name = "折扣" And User.Group <> "经理" Then
e.Cancel = True
End If
Dim dt As Date = Date.Today '共享属性Today,通过类型访问的属性
Dim cnt As Integer = Date.DaysInMonth(2023, 2)'获取2023年2月的天数,共享方法