m57.htm

vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程

        　　'以下代码是用Add方法将按钮对象添加到Buttons集合中。创建每个按钮后，设置Description和        
        <br>
        <br>
        ToolTipText属性。<br>
        　　Toolbar1.Buttons.Add,,,tbrSeparator<br>
        　　Set btnX=Toolbar1.Buttons.Add_(,"open",,tbrDefault,"open")<br>
        　　btnX.ToolTipText="OpenFile"<br>
        　　btnX.Description=btnX.ToolTipText<br>
        　　Set btnX=Toolbar1.Buttons.Add_(,"save",,tbrDefault,"save")<br>
        　　btnX.ToolTipText="SaveFile"<br>
        　　btnX.Description=btnX.ToolTipText<br>
        　　Set btnX=Toolbar1.Buttons.Add(,,,tbrSeparator)<br>
        　End Sub<br>
        <br>
        Private Sub toolbar1_ButtonClick(ByValButton As Button)<br>
        　　'用Key属性和SelectCase语句来指定一个动作。<br>
        　　Select Case Button.Key<br>
        　　　Case Is="open"'打开文件。<br>
        　　　MsgBox"Addcodetoopenfilehere!"<br>
        　　　Case Is="save"'保存文件。<br>
        　　　MsgBox"Addcodetosavefilehere!"<br>
        　　End Select<br>
        　End Sub<br>
        <br>
        <strong>三、精美卡片盒---Tabsterip</strong><br>
        <br>
        　　TabStrip控件象笔记本的书签或者一组文件夹的标签，通过使用TabStrip控件，可以在应用程序中为某个窗口或者对话框的相同区域定义多个页面，如图。其具体使用方法与Toolbar控件相似，限于篇幅，在这里就不再多说了。<br>
        <br>
        <strong>四、实时状态条----StatusBar</strong><br>
        <br>
        　　StatusBar控件代表性地显示有关在窗体上查看的对象、对象组件的信息或关系到对象操作的上下文的信息。StatusBar控件与其它控件如Toolbar控件一起，提供建立界面的工具，该界面既经济又含有丰富的信息。<br>
        　　StatusBar控件提供了一个窗体，通过这一窗体，应用程序能显示各种状态数据。每个窗体由窗格（Panel对象）组成，每一个Panel对象能包含文本或图片。StatusBar最多能被分成16个Panel对象，这些对象组成Panels集合。<br>
        　　在设计时，可以通过StatusBar控件的属性页的“窗格”选项卡来添加和删除窗格并设置每个窗格的各种属性。在这里，我们对其中比较重要的属性作一些介绍。<br>
        斜面（Belvel）属性<br>
        　　该属性返回或设置窗格的斜面样式。<br>
        <br>
        自动调整大小（AutoSize）属性<br>
        　　该属性在调整了StatusBar控件的大小以后，返回或设置窗格对象宽度的值。<br>
        含有目录样式的窗格优先于含有弹回样式的窗格。这就意味着如果含有目录样式的窗格需要空间，则将缩短弹回样式的窗格。<br>
        　　宽度（Width）属性和最小宽度（MinWidth）属性<br>
        宽度属性返回或设置窗格的当前宽度，最小宽度属性则返回或设置窗格的最小宽度。当AutoSize属性被设置为目录或弹回时，使用MinWidth属性可以防止面板因自动调整大小被调整到太小的宽度。当AutoSize属性被设置为None时，MinWidth属性总是被设定为与Width属性相同的值。<br>
        　　下例用StatusBar控件的缺省面板显示当前时间。设置MinWidth属性以便在单击面板时清除时间但保留面板的大小不变。<br>
        <br>
        Private Sub Form_Load()<br>
        　　StatusBar1.Panels(1).AutoSize=sbrContents<br>
        　　StatusBar1.Panels(1).Text="NowTimeis:"&amp;Str(Time)<br>
        　　StatusBar1.Panels(1).MinWidth=StatusBar1.Panels(1).Width<br>
        　　'将最小宽度设置为面板的当前大小。<br>
        　End Sub<br>
        <br>
        Private Sub StatusBar1_PanelClick(ByValPanel As　ComctlLib.Panel)<br>
        　　'清除时间但保持大小在最小宽度。<br>
        　　Panel.Text="NowTimeis:"<br>
        　End Sub<br>
        <br>
        StatusBar控件的重要属性有Style属性和SimpleText属性。<br>
        <br>
        Style属性<br>
        　　该属性返回或设置StatusBar控件的样式。当它为sbrNormal时，StatusBar控件显示所有的Panel对象；当它为sbrSimple时，控件仅显示一个大面板。当设置Style属性为sbrSimple时，用SimpleText属性设置要显示的字符串的文本。<br>
        　　注意当设置Style属性为Simple时，StatusBar控件显示大面板（控件的宽度），该面板不能通过面板集合来控制。<br>
        <br>
        SimpleText属性<br>
        　　该属性是当StatusBar控件的Style属性为Simple时，返回或设置显示文本。<br>
        为了在运行中添加和删除窗格，可以用Add方法，Clear方法和Remove方法。其中Clear方法和Remove方法与前面讲的控件一样，这里不再赘述。(图5)<br>
        <br>
        Add方法<br>
        　　该方法将Panel对象添加到Panels集合中并返回对新建立的Panel对象的引用。它的语法如下：<br>
        StatusBar1.Add(index,key,text,style,picture)<br>
        <br>
        　　下面的代码将两个Panel对象添加到具有Normal样式的StatusBar控件中，然后添加字符串（用SimpleText属性），该字符串在设置Style属性为Simple时才出现。该控件在Simple和Normal样式之间切换。<br>
        <br>
        Private Sub Form_Load()<br>
        　　Dim I As Integer<br>
        　　For I=1 to 2 <br>
        　　　　StatusBar1.Panels.Add<br>
        　　　　'添加两个Panel对象。<br>
        　　　　Next I<br>
        　　With StatusBar1.Panels.Item(1).Style=sbrNum'Number锁定.Item(2).Style=sbrCaps'Caps锁定<br>
        .Item(3).Style=sbrScrl'Scroll锁定<br>
        　　End With<br>
        　End Sub<br>
        <br>
        Private Sub StatusBar1_Click()<br>
        　　'在简单和正常样式之间切换。<br>
        　　With StatusBar1<br>
        　　　　If .Style=0 Then<br>
        　　　　'当StatusBar是用Simple样式时，显示该文本。<br>
        　　　　　　.SimpleText="DateandTime:"&amp;Now.Style=sbrSimple'Simple样式。<br>
        　　　　　Else<br>
        　　　　　　.Style=sbrNormal'Normal样式。<br>
        　　　　End If<br>
        　　End With<br>
        　End Sub<br>
        <br>
        <strong>五、资源管理树---TreeView</strong><br>
        <br>
        　　TreeView控件显示Node对象的分层列表，每个Node对象均由一个标签和一个可选的位图组成。TreeView一般用于显示文档标题、索引入口、磁盘上的文件和目录或能被有效地分层显示的其它各种信息。类似于Win95的资源管理器的界面就可以用该控件来实现。<br>
        　　在设计时可以通过TreeView控件的属性页来指定控件的部分属性。在TreeView控件的属性中，比较重要的有如下属性：<br>
        <br>
        样式（Style）属性<br>
        　　该属性返回或设置Node对象的图形类型（图像、文本、+/-号、直线）以及出现在TreeView控件中每一Node对象上的文本类型。<br>
        <br>
        行样式（LineStyle）属性<br>
        　　这个属性返回或设置在Node对象之间显示的线的样式。<br>
        　　注意：若Style属性设置为包含直线的值，则LineStyle属性就确定了直线的外观。如果Style属性设置为不含直线的值，则LineStyle属性将被忽略。<br>
        <br>
        Sort属性<br>
        　　该属性返回或设置一布尔值，此值确定Node对象的子节点和TreeView控件的根层节点是否按字母顺序排序。<br>
        　　Sorted属性有两种用法：第一，在TreeView控件的根（顶）层排列Node对象；第二，对任何单个Node对象的立即子节点（即第一层子接点）排序。例如，下面的代码是对TreeView控件的根节点排序：<br>
        TreeView1.Sorted=True。而代码Node1.Sorted=True则是对当前选中的Node对象的立即子节点排序。<br>
        <br>
        　　注意：当设置Sorted属性为True时，仅对当前Nodes集合排序；在TreeView控件中添加新的Node对象时，必须再次设置Sorted属性为True，以便对添加的Node对象排序。<br>
        <br>
        FullPath属性<br>
        　　这个属性返回在TreeView控件中引用的Node对象的完整限定路径。通常完整限定路径是引用的Node对象的Text属性中的文本与它的所有前辈的Text属性值的连接。<br>
        <br>
        Root、Parent、Child、FirstSibling、LastSibling、Previous和Next属性<br>
        　　这些属性分别返回对Node对象的根节点，父节点，子节点，同层的第一个节点和最后一个节点，同层的前一个相邻节点和后一个相邻节点的引用。<br>
        　　同前面所讲的控件一样，TreeView控件也使用由ImageList属性指定的ImageList控件，来存储显示于Node对象的位图和图标。任何时刻，TreeView控件只能使用一个ImageList。这意味着，当TreeView控件的Style属性被设置成显示图像的样式时，TreeView控件中每一项的旁边都有一个同样大小的图像。为了使被选中的Node对象显示不同的图像，需要使用SelectedImage属性。<br>
        <br>
        SelectedImage属性<br>
        　　该属性返回或设置当Node对象被选中时显示的图像。如果它为Null，则使用由ImageList属性指定的图像的屏蔽图像。<br>
        　　TreeView控件与前几个控件一样，用Add方法，Clear方法和Remove方法来添加Node对象，但它不能在设计时利用属性页来进行添加和删除。<br>
        　　TreeView控件的Clear方法和Remove方法与前面所讲的控件基本一致，这里主要讲Add方法。<br>
        <br>
        Add方法<br>
        　　该方法在TreeView控件的Nodes集合中添加一个Node对象，语法如下：<br>
        TreeView1.Add(relative,relationship,key,text,<br>
        &nbsp;&nbsp;&nbsp; image,selectedimage)<br>
        　　在这些参数中，只有text参数是必需的，其它的参数都是可选的。relative参数是已存在的Node对象的索引号或键值。Relationship指定了Node对象的相对位置，如后表所述。Key是唯一的字符串，可用于检索Node对象。Text是在Node中出现的字符串。Image是在关联的ImageList控件中的图像的索引。Selectedimage是在关联的ImageList控件中的图像的索引，在Node被选中时显示。<br>
        <br>
        CreateDragImage方法<br>
        　　这个方法使用Node对象的关联图像的抖动形式来创建拖动图像。这种图像一般用于拖放操作。该方法一般用于在拖放操作开始时给DragIcon属性赋值一个图像（图6）。<br>
        <br>
        EnsureVisible方法<br>
        　　这个方法确保指定的ListItem或Node对象是可视的。如果需要，这个方法可展开Node对象并滚动TreeView控件下列代码创建一棵树，并可以演示拖动操作（由于篇幅所限，这段代码并未真正实现拖动）。<br>
        <br>
        Dim indrag As Boolean<br>
        '指示拖放操作的标志。<br>
        Dim nodX As Object<br>
        '被拖动的项。<br>
        Private Sub Form_Load()<br>
        '在Imagelist控件中加载一个位图。<br>
        Dim imgX As ListImage<br>
        Dim BitmapPath As String<br>
        BitmapPath="graphics\icons\mail\mail01a.ico"<br>
        Set imgX=ImageList1.ListImages.Add_<br>
        (,,LoadPicture(BitmapPath))<br>
        '初始化TreeView控件并创建几个节点。<br>
        TreeView1.ImageList=ImageList1<br>
        Dim nodX As Node'创建一棵树。<br>
        Set nodX=TreeView1.Nodes.Add(,,,"Parent1",1)<br>
        Set nodX=TreeView1.Nodes.Add(,,,"Parent2",1)<br>
        Set nodX=TreeView1.Nodes.Add(1,tvwChild,,<br>
        "Child1",1)<br>
        Set nodX=TreeView1.Nodes.Add(1,tvwChild,,"Child2",1)<br>
        Set nodX=TreeView1.Nodes.Add(2,tvwChild,,"Child3",1)<br>
        Set nodX=TreeView1.Nodes.Add(2,tvwChild,,"Child4",1)<br>