VB教案(2-3)

工具提示文本：ToolTipText 关键字：每个Panel不重的名字 最小宽度
状态条—StatusBar
样式：

sbrText: 可显示文本和图片内容；

sbrCaps: 显示Caps键状态
sbrDate, sbrTime:显示日期，时间
(类推：sbrNum, sbrIns, sbrScrl)

应用举例

完善记事本功能 1.添加确定 2.添加窗体公用变量 3.添加时钟控件
确定代码

Private Sub CmdOk_Click()
FrmMain.Tmsave.Interval = 60000 FrmMain.mytime = Val(Me.Txtime.Text) Unload Me
状态条—StatusBar
(7) 用程序设置属性
例如：设有状态条stbStatus含有一个窗格
(Panels)，其索引=1，关键=“Status”。
…… stbStatus.Panels(1).text=“提示” 或 stbStatus.Panels(“Status”).text=“提示”
图象列表—ImageList
进度条—ProgressBar



mylength = mylength + LenB(StrConv(str, vbFromUnicode)) +2 PrgBar.Value = mylength Loop Close #1 PrgBar.Visible = False
SSTab控件
进度条—ProgressBar
(4)程序控制: 用语句变化Value。 例如：Open fname For Input As #1 PrgBar.Max = LOF(1)‟获取文件长度 PrgBar.Visible = True Do Until EOF(1) Line Input #1, str RichTextBox.Text = RichTextBox.Text & str & Chr(13) & Chr(10)
图象列表—ImageList
(5)常用方法

Add: 添加图象 Remove: 删除图象
Clear: 清除所有图象
例子
……
Dim img1 as ListImage, picPath as String
picPath=“……\copy.bmp”
set img1 =iml1.ListImage.Add(,”copy”,_
Chktime
Txtime
代码

百度文库
Private Sub UpDown_DownClick() If UpDown.Value = 1 Then UpDown.SyncBuddy = False End If If UpDown.Value = 0 Then Chktime.Value = 0 Txtime.Text = "" End If End Sub
代码







Private Sub UpDown_UpClick() If UpDown.Value = 1 Then Chktime.Value = 1 Txtime.Text = 1 UpDown.SyncBuddy = True End If If UpDown.Value = 2 Then Txtime.Text = 2 UpDown.SyncBuddy = True End If End Sub
VB6.0提供许多ActiveX控件
“工程”菜单->“部件”->控件
“
Microsoft
windows
common
controls 6.0” ->选择√ ->“确定”
状态条—StatusBar
(1) 功能：

确定用户操作的位置；

指示系统当前的状态。
一般包括键盘开关键的状态，用户 操作提示，时间，日期等
状态条—StatusBar
斜面(Bevel):

sbrNoBevel(平面)


sbrInset(凹面) —默认
sbrRaised(凸面)
状态条—StatusBar
自动调整大小：

sbrNoAutoSize: 按最小宽度设置；


sbrSpring: 占剩余的全部(都是则平分)；
sbrContents: 按内容分大小。
MocroSoft windows common controls-2
6.0-> 选择√ ->“确定”
(2)功能：
与其他控件关联
UpDown控件
(3)属性 Increment：单击时改变的数值 Min,Max：滚动下界和上界 Value：滚动当前值 SyncBuddy：与合作控件同步标志 (4)常用事件 UpClick：单击向上箭头运行 downClick：单击向下箭头运行
(2) 内容：
状态条—StatusBar
(3) 命名：类型前缀为 stb
(4) 位置：一般位于窗口的底部。
即 Align=vbAlignBottom (默认)
(5) 其它属性的设置可用属性页（右键 菜单激活）
状态条—StatusBar
(6) 窗格(Panel)的设置

索引：从1开始


文本：状态条显示的文本
Visual Basic 教案
（2-3）
第3节 高级控件

ActiveX控件 状态条—StatusBar 图象列表—ImageList 工具条—ToolBar 进度条—ProgressBar SSTab控件 UpDown控件 应用举例 上机练习
ActiveX控件

tlb1.buttons(1).image=“new”
……
工具条的ButtonClick事件示例
Private Sub Tlb1_ButtonClick(ByVal Button As MSComctlLib.Button) Select case Button.key Case “New” Call filNew_Click „调文件菜单New选项 Case “Open” Call filOpen_Click …… End Select
End Sub


窗体公用变量

Public mytime As Integer Public fname As String Dim countime As Integer Public mydir As String Public p1 As String, p2 As String
上机练习

上机完成记事本功能
完
(1)调用： “工程”菜单->“部件”->控件-> MocroSoft Tabbed Dialog control 6.0->
选择√ ->“确定”
SSTab控件
(2)属性

Style：选项卡样式 Tabs：选项卡总数

TabsPerRow：每一行选项卡数目
UpDown控件
(1)调用：
“工程”菜单->“部件”->控件->

图象列表 :选择为工具条提供图象的图象列表； 禁用图象列表 :无效时图象列表； 热图象列表 :鼠标在工具条时的图象列表；


样式: 工具条按钮样式(0-标准；1-平面)；
边框样式: 整个工具条的边框(0-标准；1-平面)。
工具条—ToolBar
(6) 按钮属性的设置

索引：按钮的编号。 标题：按钮上的文字(一般有图就不写了)。 关键字：用于程序访问按钮(唯一)。
LoadPicture(picPath))
……
工具条—ToolBar
(1) 功能：一般用于菜单命令的简化。 (2) 准备工作：需要ImageList控件。 (3) 位置：一般在窗体上部。

即：Align=“vbAlignTop” (默认)
(4) 类型前缀：tlb
工具条—ToolBar
(5) 通用属性的设置
tbrButtonGroup: 组按钮(多选一式)
tbrSeparator: 分割钮


tbrPlaceHolder: 放置其它控件的空间；
tbrDropdown: 下拉式按钮菜单。
用代码修改工具条属性
……
„设工具条名为tlb1
tlb1.buttons(1).key=“new”
tlb1.buttons(1).style=tbrDefault


样式
图像：对应ImageList的索引值或关键字
工具条—ToolBar
(7) 其它属性：

Value: 0-按钮未按下，1-按钮被按下；
(8) 用代码修改工具条属性
(9) 工具条的ButtonClick事件示例
样式

tbrDefault: 标准单击式按钮；
tbrCheck: 双态按钮（按下与未按下）；
(1) 功能：主要用于为其它控件提供图
象（用户无法直接使用它）。

注意：一个应用程序只有一个ImageList
(2) 前缀： iml
图象列表—ImageList
(3)图象大小设定： 用右键菜单->属性页->通用
(4)图象属性设定：
属性页->图象->插入图片(同时给关键字和索 引)

注意：图片位置 ……\Graphics\Bitmap\Tlbr_w95目录。
时钟控件


Private Sub Tmsave_Timer() countime = countime + 1 If mytime = countime And fname <> "" Then Open fname For Output As #2 Write #2, RichTextBox.Text Close #2 End If countime = 0 End Sub
进度条—ProgressBar
(1)进度条的功能： 一般用于显示工作进程。 (2)类型前缀：
prg
进度条—ProgressBar
(3)属性

Min ,Max, Value: 最大、最小和当前值 orientation: 水平(H)或垂直(V)
Scrolling: 平滑(smooth)或分段(segment)