Tạo List Box trên Form

[HOACOMAY2010]

Em muốn tạo 1 danh sách cho trước trên form gồm 6 item. Form1 gồm 1 list box , 1 nut command để chấp nhận chọn 1 item trong list box trên và 1 nút cancel để thoat chọn. Form 2 gồm 2 command tính để tính toán và liên quan đến item đã chọn trong lisbox trên. em đã lập ra 2 form này nhưng không biết lấy giá trị item trong lisbox như thế nào. mong các bác chỉ giúp. em có file kèm theo.

 

[ndu96081631]

Em muốn tạo 1 danh sách cho trước trên form gồm 6 item. Form1 gồm 1 list box , 1 nut command để chấp nhận chọn 1 item trong list box trên và 1 nút cancel để thoat chọn. Form 2 gồm 2 command tính để tính toán và liên quan đến item đã chọn trong lisbox trên. em đã lập ra 2 form này nhưng không biết lấy giá trị item trong lisbox như thế nào. mong các bác chỉ giúp. em có file kèm theo.

File phải có dữ liệu ---> 1 file trống không thì làm được cái gì chứ

 

[HOACOMAY2010]

Tạo List Box tren Form

File đã có dữ liệu, các bác xem giúp em với

 

[ndu96081631]

File đã có dữ liệu, các bác xem giúp em với

Trong file bạn nói rằng

Neu Item duoc chon trong ListBox = Bang 500 thi gia tri cot C duoc nhan voi 500
Neu Item duoc chon trong ListBox = Bang 300 thi gia tri cot C duoc nhan voi 301

Thế còn đối với các "Bảng" khác thì sao? Bảng 100, 200, 400 và 600?
???
Thiết nghĩ file này cũng thuộc dạng đơn gian, bạn nói luôn 1 lần thật rõ ràng có phải đở mất công mọi người không?
(Hỏi đi hỏi lại nhiều lần càng... mất bình tĩnh nha)

 

[sealand]

Bạn lưu ý thủ thuật viết code
ví dụ:
nạp Combo, thay vì 6 dòng Add

Private Sub UserForm_Initialize()
For i = 1 To 6
Lsttile.AddItem "Bang " & i * 100
Next
End Sub

Bỏ select case gán giá trị mà lấy luôn

Private Sub CommandButton1_Click()
chon = (Me.Lsttile.ListIndex + 1) * 100
MsgBox "Bang da chon trong danh sach la :" & chon
Unload Me
UserForm2.Show
End Sub

Bạn insert 1 module sau đó vào đó gõ Public chon. Như vậy biến chọn sẽ nhớ giá trị chọn đến bao giờ bạn đóng file thì thôi (Trừ phi bạn cố tình xoa nó)
Nói thì nhiều bạn tham khảo file nhé

 

[HOACOMAY2010]

cảm ơn tất cacr các bác, em muốn dùng add item vì em còn có 1 bài toán khác với item thay đổi không theo quy luật gì cả. ví dụ nếu chọn item bằng Bang1 thì lấy giá trị tương ứng = 1/2, bang2 = 1/5, bang3=1/10, bang4=1/20, bang5= 1/50, bang6=1/100. Làm sao để lấy được giá trị của item đã chọn trong listbox của forrm 1 để dùng cho forrm2 ?

 

[sealand]

Thời buổi này ai đi siêu thị sắm đồ lớn lại mang tiền mặt đi bao giờ, bạn gán tất cả các giá trị đó vào một biến mảng tương ứng với ListIndex là vô tư rồi, thậm chí nhiều chiều là đằng khác. Cái List của bạn nó còn giwows hạn cột giới hạn dòng đấy. Chỉ biết số CMND là có thể tra cơ bản hồ sơ của bạn rồi, nếu bạn có khai báo lý lịch.

 

[HOACOMAY2010]

em không thạo vba lắm, bác nói cụ thể hơn giúp em nhé.

 

[sealand]

cảm ơn tất cacr các bác, em muốn dùng add item vì em còn có 1 bài toán khác với item thay đổi không theo quy luật gì cả. ví dụ nếu chọn item bằng Bang1 thì lấy giá trị tương ứng = 1/2, bang2 = 1/5, bang3=1/10, bang4=1/20, bang5= 1/50, bang6=1/100. Làm sao để lấy được giá trị của item đã chọn trong listbox của forrm 1 để dùng cho forrm2 ?

Nói thì khó giải thích lắm, bạn ráp đoạn code này vào code của Form1 trong file bài trước xem có đúng yêu cầu trên không nha

Private Sub CommandButton1_Click()
Dim Mg()
Mg = Array(0.5, 0.2, 0.1, 0.05, 0.02, 0.01)
chon = Mg(Me.Lsttile.ListIndex)
MsgBox "Bang da chon trong danh sach la :" & chon
Unload Me
UserForm2.Show
End Sub

 

[HOACOMAY2010]

Nhưng ở form 2 em không gọi ra được giá trị của mảng "chon", em đã tạo riêng 1 modul và khai báo

[Option Explicit
Public chon
/QUOTE]
nhưng không được vì project của em có 3 modul. vậy làm sao lấy giá tri "chon" để dùng chung cho các modul khác và cho cả file?

 

[sealand]

Lưu ý: đây là những dòng trước tất cả các code khác

 

[HOACOMAY2010]

Nếu file của em có 3 modul thì khai báo biến "chon" đặt ở modul nào hả bác?
Option Explicit
Public chon