Trang 1 trên 1

Menu 1 cấp dạng List box có định dạng màu sắc

Đã gửi: T.Ba 16/02/2016 12:25 pm
gửi bởi khoaph
Tên: Menu 1 cấp dạng List box
Loại: Control dll
Ngôn ngữ lập trình: Vb Net
Tác giả: phvankhoa@gmail.com">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
MenuTraiCoMoTa2.JPG
MenuTraiCoMoTa2.JPG (52.29 KiB) Đã xem 1991 lần

MenuTraiCoMoTa1.JPG
MenuTraiCoMoTa1.JPG (49.67 KiB) Đã xem 1991 lần

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
  1. Imports Menu_5
  2. Public Class Form1
  3.     Dim ctrl As BangMenu
  4.     Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
  5.         MyBase.OnLoad(e)
  6.         Dim bLienkets As List(Of LienKet) = New List(Of LienKet)
  7.         Dim bI As Integer
  8.         For bI = 1 To 7
  9.             If bI Mod 2 = 0 Then
  10.                 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))
  11.             Else
  12.                 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))
  13.             End If
  14.         Next
  15.         Dim imgl As ImageList = New ImageList()
  16.         imgl.ImageSize = New Size(30, 30)
  17.         LienKet.Icons = ImageList1 'imgl
  18.         ctrl = New BangMenu(2, New Padding(10), 5, Color.WhiteSmoke, Color.CadetBlue, ButtonBorderStyle.Inset, bLienkets, Drawing2D.SmoothingMode.AntiAlias)
  19.         ctrl.Dock = DockStyle.Fill
  20.         AddHandler ctrl.MenuClick, AddressOf MenuClick
  21.         Controls.Add(ctrl)
  22.     End Sub
  23.     Private Sub MenuClick(ByVal tsId As String)
  24.         MessageBox.Show(tsId)
  25.     End Sub
  26. 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