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.
- 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
Điều hành viên: tungblt
-
- 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
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):
Tùy theo số lượng bảng cửu chương mà thêm các đoạn đó vào.
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
-
- If Combo1.Text = 1 Then
- List1.Clear
- List1.AddItem "2 x 1 = 2"
- List1.AddItem "2 x 2 = 4"
- List1.AddItem "2 x 3 = 6"
- List1.AddItem "2 x 4 = 8"
- List1.AddItem "2 x 5 = 10"
- List1.AddItem "2 x 6 = 12"
- List1.AddItem "2 x 7 = 14"
- List1.AddItem "2 x 8 = 16"
- List1.AddItem "2 x 9 = 18"
- List1.AddItem "2 x 10 = 20"
- Exit Sub
- End If
- If Combo1.Text = 2 Then
- List1.Clear
- List1.AddItem "3 x 1 = 3"
- List1.AddItem "3 x 2 = 6"
- List1.AddItem "3 x 3 = 9"
- List1.AddItem "3 x 4 = 12"
- List1.AddItem "3 x 5 = 15"
- List1.AddItem "3 x 6 = 18"
- List1.AddItem "3 x 7 = 21"
- List1.AddItem "3 x 8 = 24"
- List1.AddItem "3 x 9 = 27"
- List1.AddItem "3 x 10 = 30"
- Exit Sub
- End If
-
Tùy theo số lượng bảng cửu chương mà thêm các đoạn đó vào.
- DQHung
- 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
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 :

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
-
- Dim i As Integer
-
- Private Sub Combo1_Click()
- List1.Clear
- For i = 1 To 9
- List1.AddItem Combo1.Text & " x " & i & " = " & CInt(Combo1.Text) * i
- Next i
- End Sub
-
- Private Sub Form_Load()
- For i = 1 To 9
- Combo1.AddItem i
- Next i
- End Sub
-
- 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
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.

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
- 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
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)
"&" là kí hiệu nối giữa 2 chuỗi với nhau.Chỉ dùng cho kiểu String (chuỗi)
Re: giúp em về combo box
"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?
"&" 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?
Xin một ví dụ hoặc Code về Combo box
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: Không có thành viên nào trực tuyến. và 7 khách