tailieunhanh - Những bài thực hành Visual Basic .Net căn bản part 8

Tham khảo tài liệu 'những bài thực hành visual basic .net căn bản part 8', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Bài 12. Chương trinh ListBox 265 Viết mã lệnh xử lý form frmListEnh Định nghĩa lớp Product gồm 4 thuộc tính có thế đọc ghi đó là ProductlD ProductName UnitPrice và UnitslnStock Public Class Product Khai báo các biến riêng cúa lóp Private mintProductlD As Integer Private mstrProductName As String Private mdecUnitPrice As Decimal Private msrtu nits In Stock As Short Dịnh nghĩa thuộc tính ProductlD Property ProductIDO As Integer Get Return mintProductID End Get SetiByVal Value As Integer mintProductID Value End Set End Property Dịnh nghĩa thuộc tính ProductName Property ProductNameO As String Get Return mstrProductName End Get Set ByVal Value As String mstrProductName Value End Set 266 Những bài thực hành cãn bàn End Property Định nghĩa thuộc tinh UnitPrice Property UnitPriceO As Decimal Get Return mdecUnitPrice End Get Set ByVal Value As Decimal mdecUnitPrice Value End Set End Property Định nghĩa thuộc tính UnitslnStock Property J nits In Stock As short Get Return msrtUnitsInStock End Get SetiByVal Value As Short msrtu nits In Stock Value End Set End Property End Class Dinh nghĩa lớp frmListEnh form frmListEnh Public Class frmListEnh Inherits Region Windows Form Designer generated code Phần mẳ lệnh do Windows Form Designer tự phát sinh Bạn không cần điều chính gì trong đoạn lệnh này Bài 12. Chương trình ListBox 267 End Region Thú tục khới tạo và nạp giá trị cho các đối tượng Product Private Sub ListLoadO Dim oProd As Product Khới tạo 1 đố ì tượng Product mớì oProd New Product Gán các gìâ trị cho đốì tượng vừa khới tạo With oProd . Product D 1 ProductNlame Cam .UnitPrice CDecíl .UnitslnStock - 100 End With Thêm đốì tượng vào Listbox IstProducts oProd Khới tạo ĩ dốì tượng Product mớì thứ 2 oProd New Product Cán các giá trị cho đổi tượng vừa khới tạo With oProd ProdiiCtlD 2 .ProductName Nho .UnitPrice CDec UnitslnStock - 200 End With Tiếp tục thêm dổì tượng vào Listbox ìstProducts IstProducts. Items. Add .

crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.