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

[meetweb]

刚使用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

[DoItBetter]

谢谢楼主！
[e-mail]

• 打赏
• 举报

回复 赞

[xiaohonghui]

我是新来的 请给我发一份
[e-mail]

• 打赏
• 举报

回复 赞

[webspice]

UP !!
[e-mail]

• 打赏
• 举报

回复 赞

[NETVSJAVA]

我也想知道,跟我發一份
[e-mail]

• 打赏
• 举报

回复 赞

[zyzhaoluck]

好dd我要！！！
upupupupupupupupupupupupupupupupup！

[e-mail]

• 打赏
• 举报

回复 赞

[yufenfeila]

[e-mail]

谢谢了！

• 打赏
• 举报

回复 赞

[昵称不腻]

[e-mail] 我也想要，谢谢！

• 打赏
• 举报

回复 赞

[tinghuyang]

[e-mail] 我也想要，谢谢了!

• 打赏
• 举报

回复 赞

[andyxiao36]

也给咱一份吧！
[e-mail]

• 打赏
• 举报

回复 赞

[meetweb]

您的信件已经成功发送到[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail]。
您的信件已经成功发送到[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail]。

• 打赏
• 举报

回复 赞

[最后一步]

能给我一份吗？[e-mail]

• 打赏
• 举报

回复 赞

[iloveyour]

[e-mail]

• 打赏
• 举报

回复 赞

[lyy316]

[e-mail] ,谢谢

• 打赏
• 举报

回复 赞

[ZQY801105]

谢谢呀!呵呵,楼主真是活雷锋呀!
[e-mail]

• 打赏
• 举报

回复 赞

[gimemos]

[e-mail]
也给我一份吧
先谢谢了

• 打赏
• 举报

回复 赞

[soulland]

[e-mail]

• 打赏
• 举报

回复 赞

[Randy002]

[e-mail]

非常感谢

• 打赏
• 举报

回复 赞

[designonline]

祝福大家新年快乐！！！

您的信件已经成功发送到[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail],[e-mail]。

• 打赏
• 举报

回复 赞

[ybdeepblue]

http://expert.csdn.net/Expert/TopicView1.asp?id=2557044

• 打赏
• 举报

回复 赞

[designonline]

To:各位朋友.原来的帐号meetweb由于忘记密码,已经不能使用.
该贴子已经不能结贴啦.
希望各位不要在此留下Email

• 打赏
• 举报

回复 赞