精华区文章阅读

发信人: zhaowei (还珠格格), 信区: VisualBasic
标  题: VB 5.0下工具条的制作八
发信站: 紫丁香 (Tue Jun  1 18:13:04 1999), 转信

         文件存盘的按钮，另外还有一个设置窗口客户区颜色的组合
         框。为免去烦琐地介绍工具条的设置过程，在窗体制作时仅仅
         加入一个Toolbar控件和一个ImageList控件，另外在Toolbar中
         加入一个组合框ComboBox。其它所有与Toolbar的设置和控制有
         关的操作都在程序代码中实现，包括为ImageList1加入图片
         库、建立Toolbar1和ImageList1的关联关系、在Toolbar1中加
         入按钮并为每个按钮设置属性、对Combo1进行初始化等等。下
         面给出窗体Form1的程序代码。

         Private Sub Form_Load()

         ' Create object variable for the ImageList.

         Dim imgX As ListImage

         ' Load pictures into the ImageList control.

         Set imgX = ImageList1.ListImages. _

         Add(, "open",
         LoadPicture("Graphics\bitmaps\tlbr_w95\open.bmp"))

         Set imgX = ImageList1.ListImages. _

         Add(, "save",
         LoadPicture("Graphics\bitmaps\tlbr_w95\save.bmp"))

         Toolbar1.ImageList = ImageList1

         ' Create object variable for the Toolbar.

         Dim btnX As Button

         ' Add button objects to Buttons collection using the

         ' Add method. After creating each button, set both

         ' Description and ToolTipText properties.

         Toolbar1.Buttons.Add , , , tbrSeparator

         Set btnX = Toolbar1.Buttons.Add(, "open", , tbrDefault,
         "open")

         btnX.ToolTipText = "Open File"

         btnX.Description = btnX.ToolTipText

         Set btnX = Toolbar1.Buttons.Add(, "save", , tbrDefault,
         "save")

         btnX.ToolTipText = "Save File"

         btnX.Description = btnX.ToolTipText

         Set btnX = Toolbar1.Buttons.Add(, , , tbrSeparator)

         ' The next button has the Placeholder style. A

         ' ComboBox control will be placed on top of this
         button.

         Set btnX = Toolbar1.Buttons.Add(, "combo1", ,
         tbrPlaceholder)

         btnX.Width = 1500 ' Placeholder width to accommodate a
         combobox.

         Show ' Show form to continue configuring ComboBox.

         ' Configure ComboBox control to be at same location as
         the

         ' Button object with the PlaceHolder style (key =
         "combo1").

         With Combo1

         .Width = Toolbar1.Buttons("combo1").Width

         .Top = Toolbar1.Buttons("combo1").Top

         .Left = Toolbar1.Buttons("combo1").Left

         .AddItem "Black" ' Add colors for text.

         .AddItem "Blue"

         .AddItem "Red"

         .ListIndex = 0

         End With

         End Sub

         Private Sub Form_Resize()

         ' Configure ComboBox control.

         With Combo1

         .Width = Toolbar1.Buttons("combo1").Width

         .Top = Toolbar1.Buttons("combo1").Top

         .Left = Toolbar1.Buttons("combo1").Left

         End With

         End Sub

         Private Sub toolbar1_ButtonClick(ByVal Button As
         Button)

         ' Use the Key property with the SelectCase statement to
         specify

         ' an action.

         Select Case Button.Key

         Case Is = "open" ' Open file.

         MsgBox "Add code to open file here!"

         Case Is = "save" ' Save file.

         MsgBox "Add code to save file here!"

         End Select

         End Sub

         Private Sub Combo1_Click()

         ' Change backcolor of form using the ComboBox.

         Select Case Combo1.ListIndex

         Case 0

         Form1.BackColor = vbBlack

         Case 1

         Form1.BackColor = vbBlue

         Case 2

         Form1.BackColor = vbRed

         End Select

         End Sub

?

--
----------------------
        %-%      身  人
      % * * %    不  在
      %  .  % /   由江
         \\--/     己湖                    �
-----------------------

※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.118.243.47]

VB 版 (精华区)