教学课件PPT-广东警官学院.ppt

第八章 界 面 设 计 8.1 通用对话框(CommonDialog) 8.2 菜单的设计 8.3 工具栏和状态栏 第九章 文件 9.1 文件系统控件 9.2 文件的读写 9.3 常用的文件操作语句和函数 Private Sub DelCmd_Click() Dim i As Integer Do While List1.SelCount 0 Do Until List1.Selected(i) i = i + 1 Loop List1.RemoveItem i Loop End Sub 例2：关于列表框 例：关于组合框 Dim op$, a!, b!, r! op = Trim(Combo1.Text) a = Val(Text1.Text) b = Val(Text2.Text) Select Case op Case ＋: r = a + b Case －: r = a - b Case ×: r = a * b Case ÷: r = a / b Case ％: r = a Mod b Case ^: r = a ^ b Case \: r = a \ b End Select Text3.Text = r 7.4 滚动条和Slider控件 共同具有的重要属性 Max：最大值 -32 768~32 767 Min：最小值 -32 768~32 767 SmallChange 最小变动值，单击箭头时移动的增量值。 LargeChange 最大变动值，单击空白处时移动的增量值。 Value 滑块所处位置所代表的值。 水平滚动条 垂直滚动条 SmallChange Min Value Max SmallChange LargeChange LargeChange Slider控件 事件： Scroll：拖动滑块时会触发Scroll事件。 Change：Value属性改变时触发Change事件。 滚动条示例 Private Sub HScroll1_Change() Text2.Text = HScroll1.Value Text3.Text = VScroll1.Value * HScroll1.Value End Sub Private Sub VScroll1_Change() Text1.Text = VScroll1.Value Text3.Text = VScroll1.Value * HScroll1.Value End Sub 时钟控件以Interval为时间间隔产生 Timer事件。 属性 Interval属性 单位：ms(0.001s)，0.5秒是500。 Interval＝0：屏蔽计时器。 Enabled属性 True：有效计时 False：停止时钟工作 事件 Timer 例 时钟示例 7.5 时钟(Timer) Private Sub Timer1_Timer() Dim day As Date, time As Date day = Format(Date, dddddd) time = Format(Now(), hh:mm:ss) Form1.Caption = day time End Sub Private Sub Form_Load() Timer1.Interval=500 End Sub Dim step% Private Sub Form_Load() step = 100 End Sub Private Sub Command1_Click() If Command1.Caption = 启动 Then Timer2.Interval = 1000 Command1.Caption = 停止 Else Timer2.Interval = 0 Command1.Caption = 启动 End If End Sub Private Sub Timer2_Timer() Image1.Left = Image1.Left - step If ( Image1.L