Viết lệnh trong Option group

[phuyen89]

Chào mọi người em mày mò tập viết lệnh trong Option group.Em nghĩ nó cũng giống với Access nên em làm thế này.Mà khi chạy nó sai bét.Anh chị xem lại và chỉnh sửa giùm,do kiến thức còn non yếu,anh chị đừng chê cười nghen!

Private Sub cmdChon_Click()
If opt1 = 1 Then
MsgBox "Ban chon nut 1"
ElseIf opt = 2 Then
MsgBox "Ban chon nut 2"
ElseIf opt = 3 Then
MsgBox "Ban chon nut 3"
Else
MsgBox "Ban khong chon nut nao"
End If
End Sub

Còn file em đính kèm:

 

[ptm0412]

Dĩ nhiên là cách 2. Cách 2 chỉ thay giá trị biến Loi có 1 lần hoặc khộng lần nào, cách 1 thay giá trị biến Dem 19 hoặc 20 lần.

 

[ndu96081631]

Đối với OptionButton còn dể (ít nhất còn phân biệt được cái nào = TRUE) chứ còn với CommandButton thi... ẹc.. ẹc... phải dùng đến ClassModule mới giải quyết được
Giả sử tôi có UserForm thế này:

Và có 10 Sub tương ứng với từng nút
Private Sub Test1()
MsgBox "Bam nut 1"
End Sub
Private Sub Test2()
MsgBox "Bam nut 2"
End Sub
.....
Private Sub Test10()
MsgBox "Bam nut 10"
End Sub
--------------------------
Bài toán đặt ra là làm sao khi tôi click nút nào thì chạy sub ấy ---> Chả lẽ viết 10 code cho 10 Button? Vẫn là For.. Next nhưng phải kết hợp với Class
1> Insert 1 Class Module với code sau:

Public WithEvents CB As CommandButton
Private Sub CB_Click()
  Run CB.Name
End Sub

2> Code trong UserForm như sau:

Dim Button(1 To 10) As New Class1
Private Sub UserForm_Initialize()
  Dim i As Long, Cmd As Control
  For Each Cmd In UserForm1.Frame1.Controls
    i = i + 1
    Set Button(i).CB = Cmd
  Next Cmd
End Sub

Khởi động Form và bấm nút thử
(xem file đính kèm)
Trò chơi này còn được ứng dụng để giải quyết nhiều bài toán khác liên quan đến các sự kiện do người dùng tự tạo ra
-------------------------------
Xong bài này, mời các bạn áp dụng nó để làm giống hình này xem

Tức khi ta click nút nào thì Label bên cạnh sẽ hiện màu giống với màu của Button vừa click (Ẹc... Ẹc... rất đơn giản)

 

[sealand]

Ndu à, mình có thể đưa thẳng code vào sub class chứ để 10 sub trong module thì rối quá.

 

[ndu96081631]

Ndu à, mình có thể đưa thẳng code vào sub class chứ để 10 sub trong module thì rối quá.

Dạ vâng! 10 sub ấy là em ví dụ thôi ---> Cũng có thể trong thực tế chỉ có 1 sub hoặc thậm chí chẳng có sub nào
Mục đích cuối cùng là làm sao phát hiện được ta vừa click button nào thôi anh à!
Em đưa file này cho anh xem (không có 1 sub nào cả)

 

[manhhung12]

Ndu à, mình có thể đưa thẳng code vào sub class chứ để 10 sub trong module thì rối quá.

còn tuy công việc chứ. nếu đưa vào class, khi cần sửa code lai vạo class sửa thì chua lắm.
class bao ở ngoài còn những công việc cụ thể thì để trong modul hoặc các sub của form hay hơn.
tôi nghĩ nên gán1 giá trị ban đầu cho biến i vì lỡ may trong ctrình có 1 nơi nào đó có biến i và nó chưa được reset thì khi chạy ctrình sẽ dễ bị lỗi.

 

[johntrungcuong]

bảng tra xác suất thống kê

Chào mọi người em mày mò tập viết lệnh trong Option group.Em nghĩ nó cũng giống với Access nên em làm thế này.Mà khi chạy nó sai bét.Anh chị xem lại và chỉnh sửa giùm,do kiến thức còn non yếu,anh chị đừng chê cười nghen!

Private Sub cmdChon_Click()
If opt1 = 1 Then
MsgBox "Ban chon nut 1"
ElseIf opt = 2 Then
MsgBox "Ban chon nut 2"
ElseIf opt = 3 Then
MsgBox "Ban chon nut 3"
Else
MsgBox "Ban khong chon nut nao"
End If
End Sub

Còn file em đính kèm:

tôi muốn có bảng tra môn xác suất thống kê để làm bài tập, bạn có ko post lên đi , cám ơn nhiều