-
本版专家分：10450结帖率 100% -
刚使用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![]()
-
本版专家分：10450
-
''菜单示范篇
'2:使用著名的MagicLibrary.dll做菜单
'功能强大,实现所有功能但是使用比较复杂
'2003-11-10 MeetWeb
由于该篇幅比较大,只提供部分关键代码,并附解释
Public Class Menu2
Inherits System.Windows.Forms.Form
Private _count As Integer = 1
Private _images As ImageList = Nothing
Private _status As StatusBar = Nothing
Private _statusBarPanel As StatusBarPanel = Nothing
Private _topMenu As Crownwood.Magic.Menus.MenuControl = Nothing
#Region "资源图片"
Protected Sub LoadResources()
'建立imageslist对象,把资源图片装载
' Create a strip of images by loading an embedded bitmap resource
_images = ResourceHelper.LoadBitmapStrip(Me.GetType(), "Menu_Vb.MenuImages.bmp", New System.Drawing.Size(16, 16), New System.Drawing.Point(0, 0))
End Sub 'LoadResources
#End Region
#Region "建立状态栏"
Protected Sub SetupStatusBar()
'建立状态栏,具体操作请查看状态栏建立帮助
' Create and setup the StatusBar object
_status = New StatusBar()
_status.Dock = DockStyle.Bottom
_status.ShowPanels = True
' Create and setup a single panel for the StatusBar
Dim _statusBarPanelk As New StatusBarPanel()
_statusBarPanel = New StatusBarPanel()
_statusBarPanel.AutoSize = StatusBarPanelAutoSize.Spring
_status.Panels.Add(_statusBarPanelk)
_status.Panels.Add(_statusBarPanel)
Controls.Add(_status)
End Sub 'SetupStatusBar
#End Region
#Region "建立菜单"
Protected Sub SetupMenus()
'正题,创建菜单项目
'1,建立Magic,Menus对象
' Create the MenuControl
_topMenu = New Crownwood.Magic.Menus.MenuControl()
' We want the control to handle the MDI pendant
_topMenu.MdiContainer = Me
'建立顶级菜单
'顶级菜单演示1和顶级菜单演示2
' Create the top level Menu
Dim top1 As New MenuCommand("&顶级菜单演示1")
Dim top2 As New MenuCommand("&顶级菜单演示2")
'将菜单加入MenuControl对象
_topMenu.MenuCommands.AddRange(New MenuCommand() {top1, top2})
' Create the submenus
'分别建立子菜单
CreateAppearanceMenu(top1)
CreateWindowsMenu(top2)
'设置Menu显示方式
' Add to the display
_topMenu.Dock = DockStyle.Top
'委托事件
AddHandler _topMenu.Selected, AddressOf OnSelected
AddHandler _topMenu.Deselected, AddressOf OnDeselected
Controls.Add(_topMenu)
End Sub 'SetupMenus
' Create an initial MDI child window
'建立子菜单项
Protected Sub CreateAppearanceMenu(ByVal mc As MenuCommand)
' Create menu commands
'建立Menu命令,并委托事件
Dim style1 As New MenuCommand("&IDE", New EventHandler(AddressOf OnNewWindowSelected))
Dim styleC As New MenuCommand("-")
Dim styleD As New MenuCommand("E&xit", New EventHandler(AddressOf OnExit))
' Setup event handlers
AddHandler style1.Update, AddressOf OnIDEUpdate
mc.MenuCommands.AddRange(New MenuCommand() {style1, styleC, styleD})
End Sub 'CreateAppearanceMenu
'同上
Protected Sub CreateWindowsMenu(ByVal mc As MenuCommand)
' Create menu commands
Dim window1 As New MenuCommand("&New Window", _images, 0, New EventHandler(AddressOf OnNewWindowSelected))
Dim window2 As New MenuCommand("Cl&ose", _images, 1, New EventHandler(AddressOf OnNewWindowSelected))
'window1.Shortcut = Shortcut.Ctrl0
' Setup event handlers
Dim spain0 As New MenuCommand("&Nerja", _images, 5, New EventHandler(AddressOf OnNewWindowSelected))
Dim spain1 As New MenuCommand("&Madrid", _images, 6, New EventHandler(AddressOf OnNewWindowSelected))
Dim spain2 As New MenuCommand("&Barcelona", _images, 0, New EventHandler(AddressOf OnNewWindowSelected))
window1.MenuCommands.AddRange(New MenuCommand() {spain0, spain1, spain2})
mc.MenuCommands.AddRange(New MenuCommand() {window1, window2})
End Sub 'CreateWindowsMenu
#End Region
#Region "菜单执行Event"
'下面是设置点击Menu项激发事件,你可以自己定义自己事件
Protected Sub OnIDESelected(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("OK")
End Sub 'OnIDESelected
Protected Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
Close()
End Sub 'OnExit
Protected Sub OnNewWindowSelected(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("Hi")
End Sub 'OnNewWindowSelected
Protected Sub OnIDEUpdate(ByVal sender As Object, ByVal e As EventArgs)
Dim mc As MenuCommand = sender '
mc.Checked = _topMenu.Style = VisualStyle.IDE
End Sub 'OnIDEUpdate
'当菜单选择时候激发事件,显示选择Menu在状态栏
Protected Sub OnSelected(ByVal mc As MenuCommand)
SetStatusBarText(("Selection over " + mc.Description))
End Sub 'OnSelected
'当菜单不选择时候激发事件,清楚状态栏
Protected Sub OnDeselected(ByVal mc As MenuCommand)
SetStatusBarText("")
End Sub 'OnDeselected
#End Region
#Region "属性设置"
'设置状态栏属性
Public Sub SetStatusBarText(ByVal [text] As String)
_statusBarPanel.Text = [text]
End Sub 'SetStatusBarText
'图片
Public ReadOnly Property Images() As ImageList
Get
Return _images
End Get
End Property
'风格
Public ReadOnly Property Style() As VisualStyle
Get
Return _topMenu.Style
End Get
End Property
#End Region
-
本版专家分：10450
-
''菜单示范篇
'3:使用著名的DotNet menu做菜单
'功能强大,实现所见即所得,配合MainMenu工作,特别灵活.
'2003-11-10 MeetWeb
Public Class Menu3
Inherits System.Windows.Forms.Form
Private dotNetMenuProvider As DotNetWidgets.DotNetMenuProvider
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents SmallimageList As System.Windows.Forms.ImageList
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Menu3))
Me.SmallimageList = New System.Windows.Forms.ImageList(Me.components)
Me.dotNetMenuProvider = New DotNetWidgets.DotNetMenuProvider()
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'SmallimageList
'
Me.SmallimageList.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.SmallimageList.ImageSize = New System.Drawing.Size(16, 16)
Me.SmallimageList.ImageStream = CType(resources.GetObject("SmallimageList.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.SmallimageList.TransparentColor = System.Drawing.Color.Transparent
'
'dotNetMenuProvider
'
Me.dotNetMenuProvider.ImageList = Me.SmallimageList
Me.dotNetMenuProvider.OwnerForm = Me
'
'MenuItem1
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem1, True)
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4})
Me.MenuItem1.Text = "Top Menu1"
'
'MenuItem3
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem3, True)
Me.dotNetMenuProvider.SetImageIndex(Me.MenuItem3, 1)
Me.MenuItem3.Index = 0
Me.MenuItem3.Text = "Sub Menu1"
'
'MenuItem4
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem4, True)
Me.dotNetMenuProvider.SetImageIndex(Me.MenuItem4, 1)
Me.MenuItem4.Index = 1
Me.MenuItem4.Text = "Sub Menu2"
'
'MenuItem2
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem2, True)
Me.MenuItem2.Index = 1
Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem7})
Me.MenuItem2.Text = "Top Menu2"
'
'MenuItem5
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem5, True)
Me.MenuItem5.Index = 0
Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6})
Me.MenuItem5.Text = "Sub Menu21"
'
'MenuItem6
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem6, True)
Me.dotNetMenuProvider.SetImageIndex(Me.MenuItem6, 1)
Me.MenuItem6.Index = 0
Me.MenuItem6.Text = "Submenu211"
'
'MenuItem7
'
Me.dotNetMenuProvider.SetDrawSpecial(Me.MenuItem7, True)
Me.dotNetMenuProvider.SetImageIndex(Me.MenuItem7, 2)
Me.MenuItem7.Index = 1
Me.MenuItem7.Text = "Sub Menu22"
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2})
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(34, 125)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(224, 23)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Menu范例3"
'
'Menu3
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1})
Me.Menu = Me.MainMenu1
Me.Name = "Menu3"
Me.Text = "Menu3"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Menu3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
-
本版专家分：4022 -
这个控件免费,功能强大.
不用书写一行代码,即可实现 office 2003 样式的菜单.
http://expert.csdn.net/Expert/TopicView1.asp?id=2529339
-
本版专家分：2580 -
thanks
zll6688@sohu.com
-
本版专家分：2695
-
学习
-
本版专家分：62332
-
- 黄花 2004年11月 .NET技术大版内专家分月排行榜第二
-
- 蓝花 2004年12月 .NET技术大版内专家分月排行榜第三
-
-
up
-
本版专家分：0 -
yangjie_1982@163.com
thank you mail me!!!
-
本版专家分：10450
-
项目总结--启动窗体篇
http://expert.csdn.net/Expert/TopicView1.asp?id=2513452
项目总结[2]--菜单篇
http://expert.csdn.net/Expert/TopicView1.asp?id=2557044
项目总结[3]--浅谈窗体间传值,并提供实例
http://expert.csdn.net/Expert/TopicView1.asp?id=2523412
-
本版专家分：3962
-
fenghuangwei@sohu.com
thanks
-
本版专家分：2789
-
我要，justok@yeah.net
-
本版专家分：41
-
我要谢谢
seekafei@sina.com
-
本版专家分：41
-
搂主，能不能还发一个您的“启动窗体篇"
的源码给我。小虾，感激不尽。
seekafei@sina.com
-
本版专家分：10450
-
您的信件已经成功发送到fenghuangwei@sohu.com,justok@yeah.net,seekafei@sina.com,wonderf2001@21cn.com,liutf@catv.net,zll6688@sohu.com。
您的信件已经成功发送到oliver.yin@gcecn.com,young@topsee.com,liqaingjun@126.com,ustczhy@yeah.net,yangjie_1982@163.com,bobshi@nttc.edu.cn,sain1982@163.com。
To:NewHand11111(新新手（不懂就问）)
当然可以啦.不过重要的是领会代码,非Copy代码......
您的信件已经成功发送到seekafei@sina.com。
-
本版专家分：321 -
meetweb (niky) ：
看了你的原代码，发现不能运行，错误：
bmHelp = New Bitmap([GetType], "Bitmap1.bmp")
未处理的“System.ArgumentException”类型的异常出现在 system.drawing.dll 中。
其他信息: 未能在类“Menu_Vb.Menu1”中找到资源“Bitmap1.bmp”。
请问如何处理？
-
本版专家分：2599
-
收藏
-
本版专家分：910 -
thanks!
chineselw@hotmail.com
-
本版专家分：7196 -
To: xmzhy(张缘)
解决方式：
1。确保该图片Bitmap1.bmp在项目Menu_Vb的根目录下，而包含在项目里
2。使用属性窗，观看bitmap1.bmp的属性。注意这里把生成操作--内容 改为嵌入的资源
--------------------------
MeetWeb(Niky)
--------------------------
-
本版专家分：1906 -
收藏！
-
本版专家分：8162
-
thank you yaotiebing@163.net
-
本版专家分：2049
-
Thank,s zxlovelt@163.com
-
本版专家分：70
-
hh75428@yahoo.com.cn
不知晚不晚？
很想求一份启动窗体篇！
谢谢！！
-
本版专家分：12167
-
楼主，要菜单篇的源码！
谢谢
-
本版专家分：12167
-
polarlm@163.com
-
本版专家分：0
-
朋友,麻烦给我发个能在VB.NET下能使用的DotNet menu控件吧,我找得好辛苦,先谢了.
zonsen@hotmail.com
-
本版专家分：7354
-
thanks
lx@newcn.cn
-
本版专家分：15
-
我是 vb.net 的新手
xiaotl2001@163.com
-
本版专家分：2022
-
Longsea@taitungbox.com
我做生产管理程序，能否给点好的建议!
-
本版专家分：7196
-
您的信件已经成功发送到qqnet@eastday.com,yaotiebing@163.net,zxlovelt@163.com,polarlm@163.com,zonsen@hotmail.com,lx@newcn.cn,ongsea@taitungbox.com,5939709@sina.com。
您的信件已经成功发送到liufu627@sohu.com,hh75428@yahoo.com.cn。
-
本版专家分：2026
-
好心人,给我发一份,希望不会太晚.
VINCOER@HOTMAIL.COM
-
本版专家分：7023
-
要收藏：spinage@163.com 谢谢！！！