• 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

giúp em về combo box

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

duc30121989
Bài viết: 8
Ngày tham gia: T.Năm 02/10/2008 3:54 pm

giúp em về combo box

Gửi bàigửi bởi duc30121989 » T.Năm 02/10/2008 4:18 pm

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
Thành viên chính thức
Thành viên chính thức
Bài viết: 47
Ngày tham gia: T.Tư 02/04/2008 7:18 pm
Đến từ: TP.HCM Q2

Re: giúp em về combo box

Gửi bàigửi bởi tinthanhutut » T.Năm 02/10/2008 8:44 pm

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.

Hình đại diện của người dùng
DQHung
Guru
Guru
Bài viết: 576
Ngày tham gia: T.Hai 12/02/2007 3:24 pm
Đến từ: Rach Gia - Kien Giang
Been thanked: 40 time
Liên hệ:

Re: giúp em về combo box

Gửi bàigửi bởi DQHung » T.Năm 02/10/2008 8:56 pm

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
Bài viết: 8
Ngày tham gia: T.Năm 02/10/2008 3:54 pm

Re: giúp em về combo box

Gửi bàigửi bởi duc30121989 » T.Năm 02/10/2008 9:57 pm

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.

Hình đại diện của người dùng
DQHung
Guru
Guru
Bài viết: 576
Ngày tham gia: T.Hai 12/02/2007 3:24 pm
Đến từ: Rach Gia - Kien Giang
Been thanked: 40 time
Liên hệ:

Re: giúp em về combo box

Gửi bàigửi bởi DQHung » T.Sáu 03/10/2008 9:45 am

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
Bài viết: 1
Ngày tham gia: T.Hai 26/10/2015 12:11 am

Re: giúp em về combo box

Gửi bàigửi bởi rHT » T.Hai 26/10/2015 12:22 am

"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
Thành viên chính thức
Thành viên chính thức
Bài viết: 26
Ngày tham gia: T.Năm 10/04/2008 8:09 am

Xin một ví dụ hoặc Code về Combo box

Gửi bàigửi bởi khoabi » T.Hai 29/05/2017 5:41 pm

ComBo.JPG
ComBo.JPG (21.77 KiB) Đã xem 875 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


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Bing [Bot]8 khách