giúp em về combo box

[duc30121989]

Cho em hỏi cách tạo kiểu bảng cửu chương như sau. Phần tạo list bảng cửu chương em làm rồi, nhưng em muốn tạo 1 combo box gồm các số từ 1 đến 9 khi mình chọn số nào thì dưới list hiện ra bản cửu chương của số đó.
Ví dụ trong danh sách xổ xuống của combo box, chọn số 1 thì ở ô list hiện ra bảng cửu chương naaan 1. còn chọn 2 thì là của bảng nhân 2. Thank các bác trước.

[tinthanhutut]

Cho property "list" của combo1 là số lượng bảng cửu chương.VD:
1
2
3
...
Nhớ đặt tên cho list box là list1.
Sau đó đưa đoạn mã này vào event click của combo1 (combo box):

Mã: Chọn hết

1.  
2. If Combo1.Text = 1 Then
3. List1.Clear
4. List1.AddItem "2 x 1 = 2"
5. List1.AddItem "2 x 2 = 4"
6. List1.AddItem "2 x 3 = 6"
7. List1.AddItem "2 x 4 = 8"
8. List1.AddItem "2 x 5 = 10"
9. List1.AddItem "2 x 6 = 12"
10. List1.AddItem "2 x 7 = 14"
11. List1.AddItem "2 x 8 = 16"
12. List1.AddItem "2 x 9 = 18"
13. List1.AddItem "2 x 10 = 20"
14. Exit Sub
15. End If
16. If Combo1.Text = 2 Then
17. List1.Clear
18. List1.AddItem "3 x 1 = 3"
19. List1.AddItem "3 x 2 = 6"
20. List1.AddItem "3 x 3 = 9"
21. List1.AddItem "3 x 4 = 12"
22. List1.AddItem "3 x 5 = 15"
23. List1.AddItem "3 x 6 = 18"
24. List1.AddItem "3 x 7 = 21"
25. List1.AddItem "3 x 8 = 24"
26. List1.AddItem "3 x 9 = 27"
27. List1.AddItem "3 x 10 = 30"
28. Exit Sub
29. End If
30.  

Tùy theo số lượng bảng cửu chương mà thêm các đoạn đó vào.

[DQHung]

Có thể code ngắn hơn và đến 9 bản cửu chương luôn .
Tạo 1 project mới,thêm 1 combobox và 1 listbox vào và copy đoạn code vào :

Mã: Chọn hết

1.  
2. Dim i As Integer
3.  
4. Private Sub Combo1_Click()
5.    List1.Clear
6.    For i = 1 To 9
7.       List1.AddItem Combo1.Text & " x " & i & " = " & CInt(Combo1.Text) * i
8.    Next i
9. End Sub
10.  
11. Private Sub Form_Load()
12.    For i = 1 To 9
13.       Combo1.AddItem i
14.    Next i
15. End Sub

[duc30121989]

Cảm ơn các anh nhiều lắm. Diễn đàn này nhiệt tình hết chê, mình vừa post bài buổi chiều thì đã có 2 bác trả lời rồi.

List1.AddItem Combo1.Text & " x " & i & " = " & CInt(Combo1.Text) * i
Nhưng em chưa hiểu ở dòng 7 bài của anh DQHung cái chỗ CInt là cái gì. bỏ C thì em thấy vẫn đúng kết quả còn bỏ Int giữ lại chữ C thì sai. Anh giải thích hộ em cái. Đồng thời nói cho em biết cái kí hiệu & là gì. Hic, em mới học VB nên nhiều cái không hiểu.

[DQHung]

CInt là Convert (Conversion.CInt của thư viện VBA) sang dạng Integer,nếu bỏ đi cả hàm đó thì code vẫn chạy bình thường.Mình chỉ phòng hờ trường hợp Combo1.Text có word bên trong.Bạn có thể thay hàm đó = hàm Val(Combo1.Text) cũng được.
"&" là kí hiệu nối giữa 2 chuỗi với nhau.Chỉ dùng cho kiểu String (chuỗi)

[rHT]

"CInt là Convert (Conversion.CInt của thư viện VBA) sang dạng Integer,nếu bỏ đi cả hàm đó thì code vẫn chạy bình thường.Mình chỉ phòng hờ trường hợp Combo1.Text có word bên trong.Bạn có thể thay hàm đó = hàm Val(Combo1.Text) cũng được.
"&" là kí hiệu nối giữa 2 chuỗi với nhau.Chỉ dùng cho kiểu String (chuỗi)"
bạn ơi cho mình hỏi chút là nếu trong textbox là dạng word thì nó xử lí thế nào?

[khoabi]

ComBo.JPG (21.77 KiB) Đã xem 1207 lần

Nhờ các bạn giúp mình một ví dụ hoặc Code về Combo box (như hình vẽ gửi kèm)

Nhập SL vào Text1, nếu Combo1 là (một trong List):
Song Thu Bon
Song Huong
Song Cuu Long
...

Cho kết quả Text2.

Các bạn tranh thủ giúp mình. Chân thành cám ơn trước các bạn.
khoabi@gmail.com