项目总结[2]--菜单篇

meetweb 2003-12-12 02:37:24
刚使用VB.Net开发项目,在使用vb.net的过程中走了很多弯路.
希望自己的经验能给各位带来一些帮助.
[如果各位需要代码的话,可以留下Email,大家互相交流经验]
'写C/S程序的人员都希望自己写的程序比较规范化.
'例如自己的菜单想VS.Net Menu一样.
'幸好,前人都帮助我们做了以上工作.下面我们只是继承了他们的类,方法
',就可以自由的按照自己的相象画出自己个性化的Menu.....
'本人没有贡献,只是采取"拿来主义",应用而已.为了方便各位刚进门写程序人员抛一个引门的砖 :-)
由于近来比较忙,项目总结[4]--数据备份 可能要晚点出台啦
'菜单示范篇
'1通过自己重画方式画Menu
'2003-11-10 MeetWeb
Public Class Menu1
Inherits System.Windows.Forms.Form

Dim bmHelp As Bitmap
Public Sub New()
MyBase.New()
'定义窗体名称
Text = "Menu1"
' 从资源中取的菜单需要显示的图片
bmHelp = New Bitmap([GetType], "Bitmap1.bmp")
'定义主菜单
Menu = New MainMenu()
'添加菜单项Help
Menu.MenuItems.Add("&Help")
Dim mi As New MenuItem("&Help")

mi.OwnerDraw = True
'定义该菜单激发事件
AddHandler mi.Click, AddressOf MenuHelpOnClick
AddHandler mi.DrawItem, AddressOf MenuHelpOnDrawItem
AddHandler mi.MeasureItem, AddressOf MenuHelpOnMeasureItem
Menu.MenuItems(0).MenuItems.Add(mi)
End Sub 'New

Sub MenuHelpOnMeasureItem(ByVal obj As Object, ByVal miea As MeasureItemEventArgs)
'设置显示菜单的大小和宽度
miea.ItemWidth = bmHelp.Width
miea.ItemHeight = bmHelp.Height
End Sub 'MenuHelpOnMeasureItem

Sub MenuHelpOnDrawItem(ByVal obj As Object, ByVal diea As DrawItemEventArgs)
'重画该菜单
Dim rect As Rectangle = diea.Bounds
rect.X += diea.Bounds.Width - bmHelp.Width
rect.Width = bmHelp.Width
diea.DrawBackground()
diea.Graphics.DrawImage(bmHelp, rect)
End Sub 'MenuHelpOnDrawItem

Sub MenuHelpOnClick(ByVal obj As Object, ByVal ea As EventArgs)
'点击该菜单Event
MessageBox.Show("Help not yet implemented.", [Text])
End Sub 'MenuHelpOnClick
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
...全文
85 86 打赏 收藏 举报
写回复
86 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
designonline 2004-01-30
To:各位朋友.原来的帐号meetweb由于忘记密码,已经不能使用.
该贴子已经不能结贴啦.
希望各位不要在此留下Email
  • 打赏
  • 举报
回复
ybdeepblue 2004-01-30
http://expert.csdn.net/Expert/TopicView1.asp?id=2557044
  • 打赏
  • 举报
回复
designonline 2004-01-20
祝福大家新年快乐!!!

您的信件已经成功发送到chenwei800710@sina.com,iokala@126.com,lyy316@hotmail.com,zqy801105@jxfw.com,gimemos@online.sh.cn,ortega@51xtx.com,wangming_holy@163.com。


  • 打赏
  • 举报
回复
Randy002 2004-01-19
wangming_holy@163.com

非常感谢
  • 打赏
  • 举报
回复
soulland 2004-01-18
ortega@51xtx.com
  • 打赏
  • 举报
回复
gimemos 2004-01-18
gimemos@online.sh.cn
也给我一份吧
先谢谢了
  • 打赏
  • 举报
回复
ZQY801105 2004-01-18
谢谢呀!呵呵,楼主真是活雷锋呀!
zqy801105@jxfw.com
  • 打赏
  • 举报
回复
lyy316 2004-01-18
lyy316@hotmail.com ,谢谢
  • 打赏
  • 举报
回复
iloveyour 2004-01-17
iokala@126.com
  • 打赏
  • 举报
回复
最后一步 2004-01-13
能给我一份吗?chenwei800710@sina.com
  • 打赏
  • 举报
回复
meetweb 2004-01-13
您的信件已经成功发送到mars07@163.com,daniel@dgkye.vicp.net,hhh_firewolf@163.net,lchgo_on@eyou.com,xiaoer8888@sina.com,webspice@163.com。
您的信件已经成功发送到iloveyou_51314520@hotmial.com,dfg027@dfg.com.cn,yufenfeila@163.com,tipiy@163.com,desnoc@yahoo.com.cn,andyxiao@jxfw.com。
  • 打赏
  • 举报
回复
andyxiao36 2004-01-11
也给咱一份吧!
andyxiao@jxfw.com
  • 打赏
  • 举报
回复
tinghuyang 2004-01-11
desnoc@yahoo.com.cn 我也想要,谢谢了!
  • 打赏
  • 举报
回复
昵称不腻 2004-01-09
tipiy@163.com 我也想要,谢谢!
  • 打赏
  • 举报
回复
yufenfeila 2004-01-09
yufenfeila@163.com

谢谢了!
  • 打赏
  • 举报
回复
zyzhaoluck 2004-01-09
好dd我要!!!
upupupupupupupupupupupupupupupupup!

dfg027@dfg.com.cn
  • 打赏
  • 举报
回复
NETVSJAVA 2004-01-09
我也想知道,跟我發一份
Iloveyou_51314520@hotmial.com
  • 打赏
  • 举报
回复
webspice 2004-01-09
UP !!
webspice@163.com
  • 打赏
  • 举报
回复
xiaohonghui 2004-01-08
我是新来的 请给我发一份
xiaoer8888@sina.com
  • 打赏
  • 举报
回复
DoItBetter 2004-01-07
谢谢楼主!
lchGO_ON@eyou.com
  • 打赏
  • 举报
回复
加载更多回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2003-12-12 02:37
社区公告
暂无公告