ToolBar上加ComboBox

想学好编程，学好外语很重要 [enadd 2006年12月25日]

	您现在的位置：编程笔记网 >> 应用开发 >> vb >> 控件 >> 文章正文

ToolBar上加ComboBox

【字体：小大】

ToolBar上加ComboBox

作者：－文章来源：- 点击数：更新时间：2006-6-10

其实不只是ComboBox，其他的Control项也可以加入
' Need a Combox, Toolbar
Private Sub Form_load()
Dim btn As Button
Combo1.AddItem "Item1"
Combo1.AddItem "Item2"
Combo1.AddItem "Item3"
Combo1.Text = "Item1"
Me.Show
Set btn = Toolbar1.Buttons.Add()
btn.Style = tbrSeparator
Set btn = Toolbar1.Buttons.Add()
btn.Style = tbrPlaceholder
btn.Key = "ComboBox"
btn.Width = 1000

Set btn = Toolbar1.Buttons.Add
btn.Style = tbrDefault

Set btn = Toolbar1.Buttons.Add
btn.Style = tbrDefault

With Combo1
    Set .Container = Toolbar1
    .ZOrder 0
    .Width = Toolbar1.Buttons("ComboBox").Width
    .Top = Toolbar1.Buttons("ComboBox").Top
    .Left = Toolbar1.Buttons("ComboBox").Left
End With
Combo1.Visible = True

End Sub

[1]

文章录入：enadd 责任编辑：enadd

上一篇文章：加强型的 MSFlexGrid

下一篇文章：使两个ListBox项目同步

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				用VB编写DirectX7.0游戏（下… 用VB编写DirectX7.0游戏（上… 使用OLE DB和ADO调用返回记录… 使用VB调用Oracle程序包内的… VB中用ADO对象动态创建数据库… fffff 如何用MSComm Control传Bina… MultiLink的WinSock Server程… 用VB制作浏览器用VB编写网络寻呼机

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd