动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
   .Net → 阅读文章

 VB.NET状态栏控件上添加任意控件

作者来源: 
阅读 数 311 人次 , 2006-4-20 9:24:00 

  微软提供的标准控件总是很简单,.NET也很好地继承了微软的这一“优良传统”。近日我因编程的需要,需要在状态栏做一个进度条,查看了Statusbar中各个Panel对象提供的所有功能,都没有直接将进度条控件放在面板中的方法,看了MSDN中的描述:在DrawItem事件中若要显示 StatusBarPanel(显示进度栏),则可以使用此事件在面板上执行进度栏的描述操作。如果什么都要我自己画出来的话,我还要控件干什么。当时我被迫自己用了二三十行代码摸拟了一个进度条,可怜啊!事后我冥思苦想了很久,终于发现微软其实是已经将任意的控件放在状态栏的方法提供了给我,只不过我没有觉悟而已,下面小子将以这一方法介绍给大家。

  这个示例是将一个按钮放在状态栏的第一个面板上,第二个面板显示按钮点击时鼠标的屏幕坐标。首先在窗体放入下表中的控件并按之设置各控件属性

控件类型 属性 设置值
Panel Name Panel1
Dock Bottom
StatusBar Name StatusBar1
Dock Fill
Panels 1、加入一个Name为stabutton的面板将其Style设为OwnerDraw。
2、加入一个Name为staStatus的面板,将其Style设为Text,AutoSize设为Spring,Text设为“状态栏上放置控件”。
Button Name Button1

  注:StatusBar1、Button1均需为Panel1的子控件,具体做法是先画出Panel1,然后选定它,再在其上画出StatusBar1和Button1,再设置StatusBar1和Button1的相应属性,这样一来StatusBar1和Button1就会随Panel的移动而移动了(这是日后不会导致窗体上因控件过多而出现混乱的较好方法)。

  窗体的代码中加入如下代码:

Private Sub StatusBar1_DrawItem _
(ByVal sender As Object, ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) _
Handles StatusBar1.DrawItem
 If sbdevent.Panel Is stabutton Then
 ‘此处是关键,一定要根据Statusbar控件中相应面板的调整大小时,
 ‘将放置在该面板上用户放置的控件(此处是Button1)调整为面板的尺寸。
 ‘,在sbdevent.Bounds提供的面板大小中使用的坐标系统原点是在StatusBar1的左上角,
 ‘而因为Button1.Bounds使用的坐标系统的原点都是在Panel1的左上角,而StatusBar1和Button1的父对象
 ‘同为Panel1,所以只需将sbdevent.Bounds的X及Y坐标加上StatusBar1.Location的X和Y做一个平移
 ‘就可以得到Button1所应处的正确位置。

  Button1.Bounds = New Rectangle(sbdevent.Bounds.X + StatusBar1.Location.X, _
   sbdevent.Bounds.Y + StatusBar1.Location.Y, _
   sbdevent.Bounds.Width, _
   sbdevent.Bounds.Height)
 End If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 StatusBar1.Panels(1).Text = "你点击了按钮,鼠标位置为" & Cursor.Position.ToString
End Sub

  一切OK,按下运行按钮执行程序就可以看到运行结果了。

  看了以上代码,大伙儿明白了吧,只要将需要放上控件的状态栏面板的Style属性设为OwnerDraw,然后在状态栏的DrawItem中利用sbdevent提供Bounds中的坐标针对对应的面板调整控件的尺寸即可,放任何控件都可以。呵呵,所有的一切就那么简单。
  
 
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:VB.NET编写测试硬盘速度的程序
· 下一篇:VB.NET与GDI+结合编程示范
· 关于远程方法调用(RMI)的实现 
· Cancel、Delete、Edit、Item、Sort、Update 事件的宣告
· 用ImessageFilter接口实现截获键盘消息
· DataSetCommand 对象读取以及更新数据的方式
· 开心就贴(二)


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077