• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Thay thế thuộc tính ItemData trong ComboBox, ListBox...

Các mẹo vặt linh tinh không thuộc các nhóm trên

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 954
Ngày tham gia: T.Ba 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 51 time
Been thanked: 66 time
Liên hệ:

Thay thế thuộc tính ItemData trong ComboBox, ListBox...

Gửi bàigửi bởi NoBi » T.Sáu 28/03/2008 2:59 pm

Thủ thuật: Thay thế thuộc tính ItemData trong ComboBox, ListBox
Tác giả: Sưu tầm
Mô tả: Các "tín đồ" vb6 ắt hẳn sẽ cảm thấy khó chịu khi trong .Net thuộc tính itemdata của các control có dạng danh sách như ComboBox, ListBox, CheckedListBox... đã không còn. Tuy nhiên, chúng ta có thể tự thiết kế 1 class riêng để thay thế thuộc tính itemdata và còn có thể mở rộng thêm các thuộc tính khác theo nhu cầu nữa.
---------------------------------------------------
Do các control này cho add 1 object nên chúng ta tạo 1 class và override lại phương thức toString để sử dụng:

Mã: Chọn hết

  1. Private sName As String
  2.     Private iID As Integer   'You can also declare this as String.
  3.  
  4.     Public Sub New()
  5.         sName = ""
  6.         iID = 0
  7.     End Sub
  8.  
  9.     Public Sub New(ByVal Name As String, ByVal ID As Integer)
  10.         sName = Name
  11.         iID = ID
  12.     End Sub
  13.  
  14.     Public Property Name() As String
  15.         Get
  16.             Return sName
  17.         End Get
  18.  
  19.         Set(ByVal sValue As String)
  20.             sName = sValue
  21.         End Set
  22.     End Property
  23.  
  24.     Public Property ItemData() As Integer
  25.         Get
  26.             Return iID
  27.         End Get
  28.  
  29.         Set(ByVal iValue As Integer)
  30.             iID = iValue
  31.         End Set
  32.     End Property
  33.  
  34.     Public Overrides Function ToString() As String
  35.         Return sName
  36.     End Function

Sử dụng:

Mã: Chọn hết

  1. With ComboBox1
  2.         .Items.Add(New MyList("Carol Philips", 101))
  3.         .Items.Add(New MyList("Jim Kim", 102))
  4.         .Items.Add(New MyList("Jossef Goldberg", 103))
  5.         .Items.Add(New MyList("Patricia Doyle", 104))
  6.         .SelectedIndex = 0   'Set first item as selected item.
  7. End With
Tập tin đính kèm
ItemData.rar
VB.Net
(49.95 KiB) Đã tải 664 lần
CheckList.rar
C#
(32.28 KiB) Đã tải 560 lần


:>

Quay về “[.NET] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách