标题：[分享]界面导航的另外一种方式

该效果最初由【伟盛007】实现，本次实现这个效果，只是感觉这个效果很不错(会搭配)

该功能已被封装成控件，通过类库的方式分享给大家，使用起来会更加方便

使用前先引用Navigation.dll文件(或者将Navigation.dll文件复制到弧表的安装目录)

以下是效果图：

此主题相关图片如下：1.png


此主题相关图片如下：2.png

使用方式非常简单，只需2步即可(下面的代码只是一个示例，下载后可根据需求做对应的修改)

第一步：在全局代码中定义事件，例如

Public Sub UserControl1_ItemClicked(sender As Object, e As Navigation.UserControl.Item)
messagebox.show("您点击的项是:" & e.Name)
End Sub

第二步，在窗口中动态实例化该控件，例如

Dim ct As New Navigation.UserControl
ct.Add("新增进货", ProjectPath & "xzjh.png")
ct.Add("新增销售", ProjectPath & "xzxs.png")
ct.Add("客户管理", ProjectPath & "khgl.png")
ct.Add("记收支", ProjectPath & "jsz.png")
ct.Add("商品列表", ProjectPath & "splb.png")
ct.Add("组装拆卸", ProjectPath & "zjcx.png")
ct.Add("库存查询", ProjectPath & "kccx.png")
ct.Add("经营状况", ProjectPath & "jyzk.png")
ct.Dock = Windows.Forms.DockStyle.Fill
ct.Font = New System.Drawing.Font("微软雅黑", 10.0!) '可以不设置该属性,默认9号宋体

ct.ButtonSize = New System.Drawing.Size(150, 130) '可以不设置该属性,默认为100,100
ct.BackColor = color.FromArgb(224, 224, 224)
AddHandler ct.ItemClicked, AddressOf UserControl1_ItemClicked
e.form.panel.controls.add(ct)

回复后可下载示例文件

不错

顶