Loại: Winforms Control dll
Ngôn ngữ lập trình: Vb Net
Tác giả: khoaph - phvankhoa@gmail.com
Nói là listbox nhưng nó không kế thừa listbox mà từ Control
đây là vài hình ảnh gõ dấu chấm "." sau tên đối tượng để biết các thuộc tính và phương thức
lớp BangMenu có phương thức CapNhatBang với 1 tham số kiểu List(Of LienKet)
lớp LienKet có vài thuộc tính Shared hay Static về định dạng màu sắc
nhớ luôn gán giá trị cho thuộc tính Shared LienKet.Icons nếu không sẽ lỗi
cách sử dụng
- Imports Menu_5
- Public Class Form1
- Dim ctrl As BangMenu
- Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
- MyBase.OnLoad(e)
- Dim bLienkets As List(Of LienKet) = New List(Of LienKet)
- Dim bI As Integer
- For bI = 1 To 7
- If bI Mod 2 = 0 Then
- bLienkets.Add(New LienKet("id" + bI.ToString, "Menu dsf sd fsdf gh fgh fh g gh h gh g fhgd" + bI.ToString, "Gfgs dfg sdf gs j gkjk luikui kuikuyik uikiktky juttgh fdg hdsfg sdfgs dfgdsfg sdfg dfgdfg dfg dfgsdfg " + bI.ToString, False, bI Mod 5))
- Else
- bLienkets.Add(New LienKet("id" + bI.ToString, "Menu dsf sd fsdf gh fgh fh g gh h gh g fhgd" + bI.ToString, "Gfgs dfg sdf g Xin chào tất cả các bạn sdfg dfg sdfg nj hj gkjk luikui kuikuyik uikiktky juttgh fdg hdsfg sdfgs dfgdsfg sdfg dfgdfg dfg dfgsdfg " + bI.ToString, True, bI Mod 5))
- End If
- Next
- Dim imgl As ImageList = New ImageList()
- imgl.ImageSize = New Size(30, 30)
- LienKet.Icons = ImageList1 'imgl
- ctrl = New BangMenu(2, New Padding(10), 5, Color.WhiteSmoke, Color.CadetBlue, ButtonBorderStyle.Inset, bLienkets, Drawing2D.SmoothingMode.AntiAlias)
- ctrl.Dock = DockStyle.Fill
- AddHandler ctrl.MenuClick, AddressOf MenuClick
- Controls.Add(ctrl)
- End Sub
- Private Sub MenuClick(ByVal tsId As String)
- MessageBox.Show(tsId)
- End Sub
- End Class
control vẫn còn lỗi là đôi khi chữ bị nhòe khi cuộn(tức là đôi lúc nhòe, đôi lúc không), nếu các bạn phát hiện ra khi nào thì chữ bị nhòe thì xin gửi tin nhắn cho mình