首页 >> 读书频道 >> 电脑 >> 放一个Combo到Toolbar中
 
· 用VB编写DirectX
· 用VB编写DirectX
· 用VB5访问具有用户级安
· VB5在处理数据库时的几
· RDO 放资料进入MSF
· RDO之Blob资料的存
· RDO之MultiRes
· RDO rdoConne
· RDO Stored P
· RDO 之Addnew/
· RDO 结果集之Isol
· RDO 的建立记录集(二
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

放一个Combo到Toolbar中


查看有无更新版本

关键字:VB 2006-9-18

 

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
在Visual Basic中如何拖动窗体或控件    现在的许多Windows下的应用程序,都采用了图形化的界面,例如:WINAMP等!这样做的好处是可以使程序界面更漂亮生动,更具吸引力。但是在这样的界面下就不能使用Windows原来的标题条了,否则会影响界面的美观性。那么在没有标题条的情况下如何用鼠标拖动窗体呢?或者拖动其它的控件呢?
    其实,采用API函数调用很容易实现,下面我们以拖动窗体(Form1)为例来具体讲一下实现方法:
    1.新建立一个项目,名称为:test.vbp.
    2. 填加一个模块,名称为:test.bas,并且在声明部分加入以下代码:
        Declare Function ReleaseCapture Lib "user32" () As Long
        Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
        Public Const WM_SYSCOMMAND = &H112
        Public Const SC_MOVE = &HF012
    其中ReleaseCapture函数是用来释放鼠标捕获的,SendMessage函数是一个在WindowsAPI中非常重要的函数,在这里的作用是用来向Windows发送移动窗体的消息。WM_SYSCOMMAND是向Windows发送消息的常量。SC_MOVE是控制移动窗体的常量。请注意:这里SC_MOVE的赋值一定要是&HF012,它表示鼠标对象。
    3.在窗体的MouseDown过程中加入以下代码:
        ReleaseCapture
        SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
    其中ReleaseCapture函数用来释放鼠标捕获,SendMessage函数向Windows发送移动窗体的消息。
    4.保存并运行程序,按下鼠标,你会发现窗体会随着鼠标的移动而移动。就和其它著名的应用程序一样。
    以上讲述了如何在VB中用鼠标拖动窗体,其实,控件的拖动的原理是一样的。
    例如以下代码可以实现图片框的拖动:
        ReleaseCapture
        SendMessage Picture1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
    其实,运用API函数可以实现许多你意想不到的功能。如果需要更多有关VB的其它经验与技巧。建议访问http://vb2000.kstar.com站点。

放一个Combo到Toolbar中

[ 1 ]
放一个Combo到Toolbar中 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑