VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 放一个Combo到Toolbar中
发表评论(0)作者:, 平台:, 阅读:11973, 日期:2000-03-12
放一个Combo到Toolbar中

1. 放一个 ComboBox 到表单.

2. 放一个 Toolbar?在表单.

3. 增加下面的代码到 Form1 :

Private Sub Form_Load()

Dim btn As Button

Me.Show

Set btn = Toolbar1.Buttons.Add()

btn.Style = tbrSeparator

Set btn = Toolbar1.Buttons.Add()

btn.Style = tbrPlaceholder

btn.Key = "ComboBox"

btn.Width = 2000

With Combo1

.ZOrder 0

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

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

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

End With

End Sub